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Introduction 


© Issu d'un cours de programmation à l'université de Tours en premier cycle scientifique, en DESS, 
Master Sciences et technologie compétence complémentaire informatique et en Diplôme 
Universitaire ( DU ) compétence complémentaire informatique pour les NTIC (réservés à des non- 
informaticiens), cet ouvrage est une synthèse (non exhaustive)sur les minima à connaître sur le sujet. 


© 11 permettra au lecteur d'aborder la programmation objet et l'écriture d'interfaces objets 
événementielles sous Windows en particulier. 


© Ce document sera utile à un public étudiant (UT info, BTS info, IUP informatique et scientifique, 
DEUG sciences, licence pro informatique, DESS et DU compétence complémentaire en 
informatique) et de toute personne désireuse de se former par elle-même (niveau prérequis Bac 
scientifique). 


© Le premier chapitre rassemble les concepts essentiels sur la notion d'ordinateur, de codage, de 
programme et d'instruction au niveau machine. 


® Le second chapitre introduit le concept de langage de programmation et de grammaire de 
chomsky, le langage pascal sert d'exemple. 


& Le chapitre trois montre comment utiliser des grammaires pour programmer en mode génération 
ou en mode analyse. 


® Le chapitre quatre forme le noyau dur d'une approche méthodique pour développer du logiciel, les 
thèmes abordés sont : algorithme, complexité, programmation descendante, machines abstraites, 
modularité, types abstraits. Ce chapitre fournit aussi des outils de tris sur des tableaux et des 
algorithmes de traitement d'arbres binaires. 


© Le chapitre cinq contient les éléments fondamentaux de la programmation orientée objet, du 
polymorphisme d'objet, du polymorphisme de méthode, de la programmation événementielle et 
visuelle, de la programmation défensive et de construction d'interface homme-machine. Le langage 
Delphi sert de support à l'implantation pratique de ces notions essentielles. 


& Le chapitre six montre comment utiliser la programmation par composant avec Delphi, puis 
aborde le traitement des messages dans Windows et comment programmer des applications utilisant 
les messages système pour communiquer. 
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Chapitre 1 : La machine 


1.1.0rdinateur et évolution 


e les 3 grandes lignes de pensées 
e les générations d'ordinateurs 
e l'ordinateur 


e _information-informatique 


1.2.Les circuits logiques 


e logique élémentaire pour l'informatique 
e algèbre de Boole 


e circuits booléens 


1.3.Codage numération 
e codage de l'information 


e numération 


1.4.Formalisation de la notion d’ordinateur 


e machine de Türing théorique 
e machine de Türing physique 


1.5.Architecture de l’ordinateur 


e les principaux constituants 
e mémoires, mémoire centrale 


e une petite machine pédagogique 


1.6.Système d’exploitation 


e__ notion de système d'exploitation 


e systèmes d'exploitation des micro-ordinateurs 


1.7.Les réseaux 


e les réseaux d'ordinateurs 


e liaisons entre réseaux 
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1.1 Ordinateur et évolution 


Plan du chapitre: Ë 


1 


Les 3 grandes lignes de pensée 


1.1 Les machines à calculer 
1.2 Les automates 
1.3 Les machines programmables 


Les générations de matériels 


2.1 Première génération 1945-1954 

2.2 Deuxième génération 1955-1965 

2.3 Troisième génération 1966-1973 

2.4 Quatrième génération à partir de 1974 


. L’ordinateur 


3.1 Utilité de l’ordinateur 

3.2 Composition minimale d’un ordinateur 
3.3 Autour de l’ordinateur : les périphériques 
3.4 Pour relier tout le monde 


. Information - Informatique 


4.1 Les définitions 
4.2 Critère algorithmique élémentaire 
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1. Les 3 grandes lignes de pensée 


mm Les machines + 
di 
ds <d 
Les 3 grandes lignes D 
de pensée | 


L'histoire de l’informatique débute par l’invention de machines (la fonction crée l’organe) qui au 
départ correspondent à des lignes de pensée différentes. L'informatique résultera de la fusion des 
savoirs acquis dans ces domaines. Elle n’est pas une synthèse de plusieurs disciplines, mais plutôt 
une discipline entièrement nouvelle puisant ses racines dans le passé. Seul l’effort permanent du 
génie créatif humain l’a rendue accessible au grand public de nos jours. 


Les automates 
{ du XIII au XVIII ème siècle) 


Le métier à tisser La machine à calculer 
{Jacquard XVIII ème siècle) (Pascal XVII ème siècle) 


La cybernétique 
{années 1950-1960) 


_ L'ordinateur 
La machine (Von Neuman 1945 ) 


mécanographique 
(les années 1950) 


L'informatique 
(depuis 1970) 


1.1 Les machines à calculer 
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La Pascaline de Pascal, 177% siècle. Pascal invente la Pascaline, première machine à calculer 
(addition et soustraction seulement), pour les calculs de son père. 

La machine multiplicatrice de Leibniz, 17°"° 
les quatre opérations de base (+.,-,*,/). 


siècle. Leibniz améliore la machine de Pascal pour avoir 


1.2 Les automates 


Les automates, les horloges astronomiques, les machines militaires dès le 12°” siècle. 


1.3 Les machines programmables 
Le métier à tisser de Jacquard, 1752-1834 
Début de commercialisation des machines mécaniques scientifiques (usage militaire en général). 


Babage mvente la première machine analytique programmable. 


2. Les générations de matériels 


troisième es * 
deuxième génération Er 1973 
Ko 1955 - 1965 9 km 


: uatrième génération 
Les générations de “+ “ : 


1973 --> 29 


première génération 


1945 - 1954 


On admet généralement que l'ère de l'informatique qui couvre peu de décennies se divise en plusieurs 
générations essentiellement marquées par des avancées technologiques 


2.1 Première génération 1945 - 1954 


Informatique scientifique et militaire. 
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Il faut résoudre les problèmes des calculs répétitifs. 


Création de langages avec succès et échecs dans le but de résoudre les problèmes précédents. 
Technologie lourde (Tube et tore de ferrite), qui pose des problèmes de place et de consommation 
électrique. 


Les très grandes nations seules possèdent l'outil informatique. 


2.2 Deuxième génération 1955-1965 
Naissance de l’informatique de gestion. 


Nouvelle technologie basée sur le transistor et le circuit imprimé. Le langage Fortran règne en 
maître incontesté. Le langage de programmation Cobol orienté gestion, devient un concurrent de 
Fortran. 


Les nations riches et les très grandes entreprises accèdent à l'outil informatique. 


2.3 Troisième génération 1966-1973 
Naissance du circuit intégré. 
Nouvelle technologie basée sur le transistor et le circuit intégré. 


Les ordinateurs occupent moins de volume, consomment moins d’électricité et sont plus rapides. Les 
ordinateurs sont utilisés le plus souvent pour des applications de gestion. 


Les PME et PMI de tous les pays peuvent se procurer des matériels informatiques. 


2.4 Quatrième génération à partir de 1974 
Naissance de la micro-informatique 


La création des microprocesseurs permet la naissance de la micro-informatique(le micro-ordinateur 
Micral de R2E est inventé par un français François Gernelle en 1973). Steve Jobs (Apple) invente 
un nouveau concept vers la fin des années 70 en recopiant et en commercialisant les idées de Xerox 
parc à travers le Maclntosh et son interface graphique. 


Un individu peut actuellement acheter son micro-ordinateur dans un supermarché. 
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Nous observons un phénomène fondamental : 


La démocratisation d’une science à travers un outil. L'informatique qui à ses débuts était une 
affaire de spécialistes, est aujourd’hui devenue l’affaire de tous; d’où l’importance d’une 
solide formation de tous aux différentes techniques utilisées par la science informatique, car 
la banalisation d’un outil ou d’une science a son revers : l’assoupissement de l’attention 
envers les inconvénients inhérents à tout progrès technique. 


Tableau synoptique des générations d’ordinateurs : 


1ère 2ème 3ème 4ème 
Génér. Génér. Génér. Génér. 
45 - 54 55 -65 66-73 74 --—> ? 


composants tubes radios transistor circuit intégré VLSI 
mémoires tubes/tores tores de ferrite circuit intégré 
de ferrite 
temps de 


traitement 


système rudimentaire PENARTEGFAN 
d'exploitation -mation 


multiprogram 
-mation 


3. L'ordinateur 


Les 
Nos 


er 
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3.1 Utilité de l’ordinateur 
Un ordinateur est une machine à traiter de l’information. 


L'information est fournie sous forme de données traitées par des programmes (exécutés par 
des ordinateurs). 


3.2 Composition minimale d’un ordinateur : le cœur 
Une mémoire Centrale . 

Une unité de traitement avec son UAL (unité de calcul). 
Une unité de commande ou contrôle. 


Une ou plusieurs unités d’échanges. 


Schéma simplifié du cœur de l'ordinateur 
UNITE 
de 
TRAITEMENT 


UNITE 


UNITE 
de 
COMMANDE 


d'ECHANGE 


3.3 Autour de l’ordinateur : les périphériques 


Les périphériques sont chargés d’effectuer des tâches d’entrées et/ou de sortie de l’information. 
En voici quelques uns. 


Périphériques d’entrée 
Clavier, souris, crayon optique, écran tactile, stylo code barre, carte son, 
scanner, caméra, etc. 
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Périphériques de sortie 
Ecran, imprimante, table traçante, carte son, télécopie, modem etc. 


Périphériques d’entrée sortie 
Mémoire auxiliaire (sert à stocker les données et les programmes): 


1. Stockage de masse sur disque dur ou disquette. 


2. Bande magnétique sur dérouleur (ancien) ou sur 
streamer. 


3. Mémoire clef USB 


4. CD-Rom, DVD, disque magnéto-électrique etc. 


3.4 Pour relier tout le monde : Les Bus 


Les Bus représentent dans l’ordinateur le système de communication entre ses divers constituants. Ils 
sont au nombre de trois : 


le Bus d’adresses, (la notion d’adresse est présentée plus loin) 
le Bus de données, 


le Bus de contrôle. 


4, Information - informatique 


4.1 Les définitions 


L’information est le support formel d’un élément de connaissance humaine 
susceptible d’être représentée à l’aide de conventions (codages) afin d’être 
conservée, traitée ou communiquée. 
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L'informatique est la science du traitement de l’information dans les domaines 
scientifiques, techniques, économiques et sociaux. 


Une donnée est la représentation d’une information sous une forme 
conventionnelle (codée) destinée à faciliter son traitement. 


schéma simplifié du traitement de l’information 


4.2 Critère algorithmique élémentaire 


Une application courante est justiciable d’un traitement 
informatique si : 


Il est possible de définir et de décrire parfaitement les données d’entrée et les résultats de sortie. 


Il est possible de décomposer le passage de ces données vers ces résultats en une suite d’opérations 
élémentaires dont chacune peut être exécutée par une machine. 


Nous pouvons considérer ce critère comme une définition provisoire d’un algorithme. 


Actuellement l’informatique intervient dans tous les secteurs d’activité de la vie quotidienne : 


démontrer un théorème (mathématique) 

faire jouer aux échecs (intelligence artificielle) 
dépouiller un sondage (économie) 

gérer un robot industriel (atelier) 

facturation de produits (entreprise) 

traduire un texte (linguistique) 

imagerie médicale (médecine) 

formation à distance (éducation) 

Internet (grand public)..etc 
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1.2 Les circuits logiques 


Plan du chapitre: É 


1. Logique élémentaire pour l’informatique 
1.1 Calcul propositionnel naïf 
1.2 Propriétés des connecteurs logiques 
1.3 Règles de déduction 


2. Algèbre de Boole 


2.1 Axiomatique pratique 
2.2 Exemples d’algèbre de Boole 
2.3 Notation des électroniciens 


3.Circuits booléens ou logiques 
3.1 Principaux circuits 
3.2 Fonction logique associée à un circuit 


3.3 Circuit logique associé à une fonction 
3.4 Additionneur dans l’'UAL 


a 
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1. Logique élémentaire pour l’informatique 


1.1 Calcul propositionnel naïf 


Construire des programmes est une activité scientifique fondée sur le raisonnement logique. Un peu 
de logique simple va nous aider à disposer d’outils pratiques mais rigoureux pour construire des 
programmes les plus justes possibles. Si la programmation est un art, c’est un art rigoureux et 
logique. La rigueur est d’autant plus nécessaire que les systèmes informatiques manquent totalement 
de sens artistique. 


Une proposition est une propriété ou un énoncé qui peut avoir une valeur de vérité vraie (notée V) ou 
fausse (notée F). 


" 2 est un nombre impair " est une proposition dont la valeur de vérité est F. 


Par abus de langage nous noterons avec le même symbole une proposition et sa valeur de vérité, 
car seule la valeur de vérité d’une proposition nous intéresse ici. 


Soit l’ensemble P = { V , F } des valeurs des propositions. 

On le munit de trois opérateurs appelés connecteurs logiques : — , A, v. 
A:PxP-P (se lit" et ") 

v :P x PP (se lit " ou") 


— : PP (se lit" non") 


Ces connecteurs sont définis en extension par leur tables de vérité : 


PNEU c pPAgq PS 
VV F V V 
VE F F V 
F'V V F V 
FF V F F 
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1.2 Propriétés des connecteurs logiques 


e __ Nous noterons p = q , le fait la proposition p et la proposition q ont la même valeur de vérité. 


e Le lecteur pourra démontrer à l’aide des tables de vérité par exemple, que V et À possèdent les 


propriétés suivantes : 


H Nous notons p — q, la proposition : — p V q (l’implication). 


pvq=qvp 

PAg=qAP 
pvqvn=(pvqvr 
pAGqAnN=(pAgAr 
pVqAn=pVJdJAhApVvr 


pAgvn=(pAagv(par 


PVP=P 
PAP=P 
—171p = P 


—(pVqd=-pA-q 


—(pAdd=-pV-q 


Table de vérité du connecteur = : 


P | aq P—q 
VV \. 
VF F 
EF  V V 
EF V 


Œ Ilest aussi possible de prouver des " égalités ” de propositions en utilisant des combinaisons de 
résultats précédents. 
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Exemple : Montrons que : p = q=- q— - p (implication contrapposée), par définition et 
utilisation évidente des propriétés : 


Pæq=-pVq=qvap=-(dqvp=-q-p 


1.3 Règles de déduction 


Assertion : 


c’est une proposition construite à l’aide des connecteurs logiques (— , A , V, en particulier) dont la 


valeur de vérité est toujours V (vraie). 


Les règles de déduction permettent de faire du calcul sur les assertions. Nous abordons ici le 
raisonnement rationnel sous son aspect automatisable, en donnant des règles d’inférences 
extraites du modèle du raisonnement logique du logicien Gentzen. Elles peuvent être une aide 
très appréciable lors de la construction et la spécification d’un programme. 


Les règles de déduction sont séparées en deux membres. Le premier contient les prémisses ou 
hypothèses de la règle, le deuxième membre est constitué par une conclusion unique. Les deux 
membres sont séparés par un trait horizontal. Gentzen classe les règles de déduction en deux 
catégories : les règles d’introduction car il y a utilisation d’un nouveau connecteur, et les règles 
d’éliminations qui permettent de diminuer d’un connecteur une proposition. 


Syntaxe d'une telle règle : pl,p2...,pn 
q 


Quelques règles de déductions pratiques : 


Règle d’introduction du À : pP:4 
P- 
Règle d’introduction du v : p:4 
p.14 
Règle d’introduction du = : P:4 
P=-t 
Règles d’élimination du A : PAU PAU 
r] P 
Les bases de l'informatique - programmation - (76,. 05.09.2004 ) page 


17 


Règle du modus ponens : P:P=-q 


Règle du modus tollens : 710 ,p=-ù 
7 p 


Le système de Gentzen contient d’autres règles sur le ou et sur le non. Enfin il est possible de 
construire d’autres règles de déduction à partir de celles-ci et des propriétés des connecteurs 
logiques. Ces règles permettent de prouver la valeur de vérité d’une proposition. Dans les cas 
pratiques l’essentiel des raisonnements revient à des démonstrations de véracité d’implication. 


La démarche est la suivante : pour prouver qu’une implication est vraie, il suffit de supposer que le 
membre gauche de l’implication est vrai et de montrer que sous cette hypothèse le membre de droite 
de l’implication est vrai. 


Exemple : 
soit à montrer que la règle de déduction Ro suivante est exacte : 


P=q, d=>r 
Ro : P=-r (transitivité de = ) 


Hypothèse : p est vrai 
nous savons que : p — q est vrai et que q — rest vrai 
P:P=-4 


e En appliquant le modus ponens : 4 nous déduisons que : q est vrai. 
e En appliquant le modus ponens à (q , q = r) nous déduisons que : r est vrai. 


e Comme p est vrai (par hypothèse) on applique la règle d’introduction de = sur (p , r) nous 
déduisons que : p = rest vrai (cqfd). 


Nous avons prouvé que Ri est exacte. Ainsi nous avons construit une nouvelle règle de déduction qui 
pourra nous servir dans nos raisonnements. 


Nous venons d'exhiber un des outils permettant la construction raisonnée de programmes. La logique 
interne des ordinateurs est encore actuellement plus faible puisque basée sur la logique booléenne, en 
attendant que les machines de 5°” génération basées sur la logique du premier ordre (logique des 
prédicats, supérieure à la logique propositionnelle) soient définitivement opérationnelles. 


2. Algèbre de Boole 
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2.1 Axiomatique pratique 

Du nom du mathématicien anglais G.Boole qui l’inventa. Nous choisissons une axiomatique 
compacte, l’axiomatique algébrique : 

On appelle algèbre de Boole tout ensemble E muni de : 

deux lois de compositions internes notées par exemple : e et ®, 


M une application involutive f (f° = Id ) de E dans lui-même,notée J'a di 


M chacune des deux lois e , ® , est associative et commutative, 
M chacune des deux lois e , ® , est distributive par rapport à l’autre, 
M la loi e admet un élément neutre unique noté e1, 
XEE, xee;=x 
M /a loi ® admet un élément neutre noté eo, 
xEeE, x® e=x 
M out élément de E est idempotent pour chacune des deux lois : 
XEE, xex=xetx®x=x 
M axiomes de complémentarité : 


VxEeE xeX=-& 
Vref x®7X7-=e 


M Lois de Morgan : 


(xy) cE. x*y=xœ7y 


(Xy) € E? x®y=7e7y 
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2.2 Exemples d’algèbre de Boole 


a) L'ensemble P(E) des parties d’un ensemble E, muni des opérateurs intersection © ,union L, et 
l'application involutive complémentaire dans E — CE, (si E Z © ), si E est fini et possède n 
éléments, P(E) est de cardinal 2”. 


Il suffit de vérifier les axiomes précédents en substituant les lois du nouvel ensemble E aux loise, 
® ,et T.Il est montré en mathématiques que toutes les algèbres de Boole finies sont isomorphes à un 
ensemble (P(E), N, L , Cp) : elles ont donc un cardinal de la forme 2”. 


b) L’ensemble des propositions (en fait l'ensemble de leurs valeurs {V, F} ) muni des connecteurs 
logiques — (l’application involutive) , À , V , est une algèbre de Boole minimale à deux éléments. 


2.3 Notation des électroniciens 


L’algèbre des circuits électriques est une algèbre de Boole minimale à deux éléments : 


L’ensemble E = {0,1} muni des lois "e "et "+" et de l’application complémentaire PAPE, 


Formules pratiques et utiles (résultant de l’axiomatique) : 


Formule d’absorbtion : 


a+(b.a) = a.(a+b) = (a+b).a = a+b.a = a 


Montrons par exemple : a+(b.a) = a 
a+(b.a)= a+a.b = a.1+a.b = a.(1+b) = a.1 =a 
Le reste se montrant de la même façon. 


Cette algèbre est utile pour décrire et étudier les schémas électroniques, mais elle sert aussi dans 
d’autres domaines que l’électricité. Elle est étudiée ici parce que les ordinateurs actuels sont basés sur 
des composants électroniques. Nous allons descendre un peu plus bas dans la réalisation interne du 
cœur d’un ordinateur, afin d’aboutir à la construction d’un additionneur en binaire dans l’'UAL. 
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Tables de vérité des trois opérateurs : 


X | y x X.y X+y 
11 0 1 1 
110 0 0 1 
01 1 0 il 
0 0 1 0 0 


2. Circuits booléens ou logiques 


Nous représentons par une variable booléenne x € {0,1} le passage d’un courant électrique. 
Lorsque x = 0, nous dirons que x est à l’état 0 (le courant ne passe pas) 
Lorsque x = 1, nous dirons que x est à l’état 1 (le courant passe) 


Une telle variable booléenne permet ainsi de visualiser, sous forme d’un bit d’information (0,1) le 
comportement d’un composant physique laissant ou ne laissant pas passer le courant. 


Nous ne nous préoccuperons pas du type de circuits électriques permettant de construire un circuit 
logique (les composants électriques sont basés sur les circuits intégrés). Nous ne nous intéresserons 
qu’à la fonction logique (booléenne) associée à un tel circuit. 


En fait un circuit logique est un opérateur d’une algèbre de Boole c’est-à-dire une combinaison de 


symboles de l’algèbre {0,1}, . ,+,7). 


3.1 Principaux circuits 


Nous proposons donc 3 circuits logiques de base correspondant aux deux lois internes et à l’opérateur 
de complémentation involutif. 


Le circuit OÙ associé à la loi "+ ": Le circuit ET associé à la loi "e" : 
a a 
a+b a.b 
b b 
La table de vérité de ce circuit est celle de La table de vérité de ce circuit est celle de 
l'opérateur + l'opérateur e 
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Le circuit NON associé à la loi" x ": 


a a 


la table de vérité est celle de l'opérateur involutif * 


On construit deux circuits classiques à l’aide des circuits précédents : 


L'opérateur XOR = "ou exclusif " : 


a Bb=ab+ab 


dont voici le schéma : 


a 
a&b 
b 


Table de vérité du ou exclusif : 


a b a®b 
1 1 0 
1 0 1 
0 1 1 
0 0 0 


L'opérateur NAND (le NON-ET): 


aQb=ab=4+b 


dont voici le schéma : 


a 


a@b 
L 

Table de vérité du Nand : 

a b a © 

1 1 0 

1 0 1 

0 1 1 

0 0 1 
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3.2 Fonction logique associée à un circuit 


Un circuit logique est un système de logique séquentielle où la valeur de sortie 
S (état de la variable booléenne S de sortie) dépend des valeurs des entrées 
€1,€2..€n (états des variables booléennes d’entrées e;). Sa valeur de sortie est 
donc une fonction S = f(e1,e2,...,en). 


Pour calculer la fonction f à partir d’un schéma de circuits logiques, il suffit d’indiquer à la sortie de 
chaque opérateur (circuit de base) la valeur de l’expression booléenne en cours. Puis, à la fin, nous 
obtenons une expression booléenne que l’on simplifie à l’aide des axiomes ou des théorèmes de 
l’algèbre de Boole. 


Exemple : 


S = (a*b).b +b 


En simplifiant S : (a+b).b+P =b+pb (formule d’absorbtion) 
b+b=1. 


3.3 Circuit logique associé à une fonction 


A l’inverse, la création de circuits logiques à partir d’une fonction booléenne f à n entrées est aussi 
simple. Il suffit par exemple, dans la fonction, d’exprimer graphiquement chaque opérateur par un 
circuit, les entrées étant les opérandes de l’opérateur. En répétant l’action sur tous les opérateurs, on 
construit un graphique de circuit logique associé à la fonction f. 


Exemple : Soit la fonction f de 3 variables booléennes, f (a,b,c) = (a+b)+(b.c) 
Construction progressive du circuit associé. 


1°) opérateur " +": 


ah 
bc 
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2°) branche supérieure de l’opérateur " +": 


a 


b 


3°) branche inférieure de l’opérateur " +": 


a 


b 


ath 


bc 


at 


3.4 Additionneur dans l’UAL 


a) Demi-additionneur 


Reprenons les tables de vérités du " ® "(Xor), du "+" et du "+ "et adjoignons la table de calcul de 
l’addition en numération binaire. 


Tout d’abord les tables comparées des opérateurs booléens : 


a | b |a®b]| a+b a.b 
11 0 Il Il 
IA IRC Il Il 0 
O1 Il Il 0 
CAE 0 0 0 


Rappelons ensuite la table d’addition en numération binaire : 


+ 10 1 
0 0 1 
1 1 |0(1) 


O(1) représente la retenue I à reporter. 


En considérant une addition binaire comme la somme à effectuer sur deux mémoires à un bit, nous 


observons dans l’addition binaire les différentes configurations des bits concernés (notés a et b). 
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Nous aurons comme résultat un bit de somme et un bit de retenue : 


D RE 
RES ON 
CE EN ER 
CR CE ES 


Si l’on compare avec les tables d’opérateurs booléens, on s’aperçoit que l’opérateur "@" (Xor) fournit 
en sortie les mêmes configurations que le bit de somme, et que l’opérateur "e" (Er) délivre en sortie 
les mêmes configurations que le bit de retenue. 


Il est donc possible de simuler une addition binaire (arithmétique binaire) avec les deux opérateurs 
"®" et "e". Nous venons de construire un demi-additionneur ou additionneur sur un bit. Nous 
pouvons donc réaliser le circuit logique simulant la fonction complète d’addition binaire, nous 
l’appellerons " additionneur binaire "(somme arithmétique en binaire de deux entiers en binaire). 


e Somxe 


schéma logique d'un demi-additionneur 


a 


b 


b)Additionneur complet 


Une des constructions les plus simples et la plus pédagogique d’un additionneur complet est de 
connecter entre eux et en série des demi-additionneurs (additionneurs en cascade). Il existe une autre 
méthode dénommée " diviser pour régner " pour construire des additionneurs complets plus rapides à 
l’exécution que les additionneurs en cascade. Toutefois un additionneur en cascade pour UAL à 32 
bits, utilise 2 fois moins de composants électroniques qu’un additionneur diviser pour régner. 


Nous concluons donc qu’une UAL n'effectue en fait que des opérations logiques (algèbre de Boole) 
et simule les calculs binaires par des combinaisons d’opérateurs logiques 
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Soient a et b deux nombres binaires à additionner dans l’UAL. Nous supposons qu’ils sont stockés 
chacun dans une mémoire à n bits. Nous notons a,et b, leur bit respectif de rang p. Lors de l’addition 
il faut non seulement additionner les bits a, et b, à l’aide d’un demi-aditionneur, mais aussi 
l’éventuelle retenue notée Rp provenant du calcul du rang précédent. 


je Some 5, 


retenue R; 


retenue Rp+1 


additionneur en cascade (addition sur le bit de rang p) 


On réadditionne Rp à l’aide d’un demi-additionneur à la somme de a,et b,et l’on obtient le bit de 
somme du rang p noté Sp. La propagation de la retenue Rp; est faite par un " ou ” sur les deux 
retenues de chacun des demi-additionneurs et passe au rang p+1. Le processus est itératif sur tous les 
n bits des mémoires contenant les nombres a et b. 


Soit un exemple fictif de réalisation d'un demi-additionneur simulant l'addition binaire suivante : 


0+1=1. Nous avons figuré le passage ou non du courant à l'aide de deux interrupteurs (valeur = 1 
indique que l'interrupteur est fermé et que le courant passe, valeur = 0 indique que l'interrupteur est 
ouvert et que le courant ne passe pas) 


po Bit de somme 


0 @ Bit de retenue 


Greuit booléen 1/2 addifionneur 


Le circuit « et » fournit le bit de retenue soit : 0 e1 =0 


Le circuit « Xor » fournit le bit de somme soit :0@1=1 
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Nous figurons le détail du circuit Xor du schéma précédent lorsqu'il reçoit le courant des deux 
interrupteurs précédents dans la même position (l'état électrique correspond à l'opération0@1=1) 


Û 
Table de vérité Xor 


Si l’'UAL effectue des additions sur 32 bits, il y aura 32 circuits comme le précédent, tous reliés en 
série pour la propagation de la retenue. 


Un exemple d'additionneur sur deux mémoires a et b à 2 bits contenant respectivement les nombres 2 
ét3: 


Les 4 interrupteurs figurent le passage du courant sur les bits de même rang des mémoires a=2 et 
b=3, le résultat obtenu est la valeur attendue soit 2+3 = 5. 


af 


a 
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1.3 Codage numération 


Plan du chapitre: Ë 


1. Codage de l’information 


1.1 Codage en général : le pourquoi 

1.2 Codage des caractères : code ASCII 

1.3 Codage des nombres entiers : numération 
1.4 Les entiers dans une mémoire à n+1 bits 
1.5 Codage des nombres entiers 

1.6 Un autre codage des nombres entiers 


2. Numération 


2.1 Opérations en binaire 

2.2 Conversions base quelconque + décimal 
2.3 Exemple de conversion décimal — binaire 
2.4 Exemple de conversion binaire — décimal 
2.5 Conversion binaire — hexadécimal 

2.6 Conversion hexadécimal — binaire 
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1. Codage de l’information 


1.1 Codage en général : le pourquoi 


e Dans une machine, toutes les informations sont codées sous forme d'une suite de "O0" et de "1" 
(langage binaire). Mais l'être humain ne parle généralement pas couramment le langage 
binaire. 


e Il doit donc tout "traduire" pour que la machine puisse exécuter les instructions relatives aux 
informations qu'on peut lui donner. 


e Le codage étant une opération purement humaine, il faut produire des algorithmes qui 
permettront à la machine de traduire les informations que nous voulons lui voir traiter. 


Le codage est une opération établissant une bijection entre une information et une suite de " 0 "et 
de " 1 "’ qui sont représentables en machine. 


1.2 Codage des caractères : code ASCII 


Parmi les codages les plus connus et utilisés, le codage ASCII (American Standard Code for 
Information Interchange)étendu est le plus courant (version ANSI sur Windows). 


Voyons quelles sont les nécessités minimales pour l’écriture de documents alphanumériques simples 
dans la civilisation occidentale. Nous avons besoin de : 


Un alphabet de lettres minuscules —{a, b, c,...,z} 
soient 26 caractères 


Un alphabet de lettres majuscules ={ A,B,C....,Z} 
soient 26 caractères 


Des chiffres {0,1,...,9} 

soient 10 caractères 

Des symboles syntaxiques {? , ; (" 
au minimum /0 caractères 


Soit un total minimal de 72 caractères 


Si l’on avait choisi un code à 6 bits le nombre de caractères codables aurait été de 2° = 64 ( tous les 
nombres binaires compris entre 000000 et 111111), nombre donc insuffisant pour nos besoins. 


Il faut au minimum 1 bit de plus, ce qui permet de définir ainsi 2” = 128 nombres binaires différents, 
autorisant alors le codage de 128 caractères. 
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Initialement le code ASCII est un code à 7 bits (27 = 128 caractères). Il a été étendu à un code sur 8 
bits ( 2° = 256 caractères ) permettant le codage des caractères nationaux (en France les caractères 
accentués comme : ,à,è,é,4,.…..etc) et les caractères semi-graphiques. 


Les pages HTML qui sont diffusées sur le réseau Internet sont en code ASCII 8 bits. 


Un codage récent dit " universel " est en cours de diffusion : il s’agit du codage Unicode sur 16 bits 
(2% = 65536 caractères). 


De nombreux autres codages existent adaptés à diverses solution de stockage de l’information (DCB, 
EBCDIC....). 


1.3 Codage des nombres entiers : numération 


Les nombres entiers peuvent être codés comme des caractères ordinaires. Toutefois les codages 
adoptés pour les données autres que numériques sont trop lourds à manipuler dans un ordinateur. Du 
fait de sa constitution, un ordinateur est plus ” habile ” à manipuler des nombres écrits en numération 
binaire (qui est un codage particulier). 


Nous allons décrire trois modes de codage des entiers les plus connus. 


Nous avons l’habitude d’écrire nos nombres et de calculer dans le système décimal. Il s’agit en fait 
d’un cas particulier de numération en base 10. 


Il est possible de représenter tous les nombres dans un système à base b (b entier, b1). Nous ne 
présenterons pas ici un cours d’arithmétique, mais seulement les éléments nécessaires à l’écriture 
dans les deux systèmes les plus utilisés en informatique : le binaire (b—2) et l’hexadécimal (b=16). 


Lorsque nous écrivons 5876 en base 10, la position des chiffres 5,8,7,6 indique la puissance de 10 à 
laquelle ils sont associés : 


5 est associé à 10° 
8 est associé à 10? 
7 est associé à 10! 
6 est associé à 10° 


Il en est de même dans une base b quelconque (b=2, ou b=16). Nous conviendrons de mentionner la 
valeur de la base au dessus du nombre afin de savoir quel est son type de représentation. 
b 


Soit *#n*#n-1::°:*0 un nombre x écrit en base b avec n+1 symboles. 
re k 
e "x," est le symbole associé à la puissance " b° " 


e "xkx'Ee {0,1,..,b-1} 


Les bases de l'informatique - programmation - (:4. 05.09.2004 ) age 
pd: 


Lorsque b=2 (numération binaire) 


Chaque symbole du nombre x, "xx " € {0,1}; autrement dit les nombres binaires sont donc écrits 
avec des 0 et des 1, qui sont représentés physiquement par des bits dans la machine. 


Voici le schéma d’une mémoire à n+1 bits (au minimum 8 bits dans un micro-ordinateur) : 


LLLLLL- LL 


n n-ln-? 2? 1 0 


Les cases du schéma représentent les bits, le chiffre marqué en dessous d’une case, indique la 
puissance de 2 à laquelle est associé ce bit (on dit aussi le rang du bit). 


Le bit de rang 0 est appelé le bit de poids faible. 
Le bit de rang n est appelé le bit de poids fort. 


1.4 Les entiers dans une mémoire à n+1 bits : binaire pur 


Ce codage est celui dans lequel les nombres entiers naturels sont écrits en numération binaire (en 
base b=2). 


Le nombre " dix " s’écrit 10 en base b=10, il s’écrit 1010 en base b=2. Dans la mémoire ce nombre 
dix est codé en binaire ainsi: 


0101010/,,.1011101110 
n n-ln-? 3 2? 10 


Une mémoire à n+1 bits (n>0), permet de représenter sous forme binaire (en binaire pur) tous les 
entiers naturels de l'intervalle [ 0, SES | ]. 


e soit pour n+1=8 bits, tous les entiers de l'intervalle [ 0 , 255 ] 


e soit pour n+1=16 bits, tous les entiers de l'intervalle [ 0 , 65535] 


1.5 Codage des nombres entiers : binaire signé 
Ce codage permet la représentation des nombres entiers relatifs. 


Dans la représentation en binaire signé, le bit de poids fort ( bit de rang n associé à 2” ) sert à 
représenter le signe (0 pour un entier positif et 1 pour un entier négatif), les n autres bits représentent 
la valeur absolue du nombre en binaire pur. 
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Exemple du codage en binaire signé des nombres +14 et -14 : 


+ valeur absolue — valeur absolue 

À p—— — AT us 

olololol, ..lol1l1l1l0 1l0ol0l0,,,.lol1l1l1l0 

n n-ln-? 3 2 1 0 n n-ln-2? 3 2 1 0 
+14 est représenté par 0000...01110 -14 est représenté par 1000...01110 


Une mémoire à n+1 bits (n>0), permet de représenter sous forme binaire (en binaire signé) tous les 
entiers naturels de l'intervalle [- (2° - 1) ,(2"-1)] 


e soit pour n+1=8 bits, tous les entiers de l'intervalle [-127 , 127] 
e soit pour n+1=16 bits, tous les entiers de l'intervalle [-32767 , 32767] 


Le nombre zéro est représenté dans cette convention (dites du zéro positif) par : 0000...00000 


Remarque : Il reste malgré tout une configuration mémoire inutilisée : 1000...00000. Cet état 
binaire ne représente à priori aucun nombre entier ni positif ni négatif de l’intervalle [- (2° - 1) 
, (2°-1)]. Afin de ne pas perdre inutilement la configuration " 1000...00000 ", les 
informaticiens ont décidé que cette configuration représente malgré tout un nombre négatif 
parce que le bit de signe est 1, et en même temps la puissance du bit contenant le "1", donc 
par convention -2”. 


L’intervalle de représentation se trouve alors augmenté d’un nombre : 
il devient :[-2" ,2"-1] 


e soit pour n+1=8 bits, tous les entiers de l'intervalle [-128 , 127] 


e soit pour n+1=16 bits, tous les entiers de l'intervalle [-32768 , 32767] 


Ce codage n’est pas utilisé tel quel, il est donné ici à titre pédagogique. En effet le traitement 
spécifique du signe coûte cher en circuits électroniques et en temps de calcul. C’est une version 
améliorée qui est utilisée dans la plupart des calculateurs : elle se nomme le complément à deux. 


1.6 Un autre codage des nombres entiers : complément à deux 


Ce codage, purement conventionnel et très utilisé de nos jours, est dérivé du binaire signé ; il sert à 
représenter en mémoire les entiers relatifs. 


Comme dans le binaire signé, la mémoire est divisée en deux parties inégales; le bit de poids fort 
représentant le signe, le reste représente la valeur absolue avec le codage suivant : 


Supposons que la mémoire soit à n+1 bits, soit x un entier relatif à représenter : 
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si X > 0, alors c'est la convention en binaire signé qui s'applique (le bit de signe vaut 0, les n bits 
restants codent le nombre), soit pour le nombre +14 : 


L FE — valeur absolue —7 


0101010/,,,10|11111110 
n n-ln? 3 2 10 


+14 est représenté par 0000...01110 


si X < 0, alors (3 étapes à suivre) 
e On code la valeur absolue du nombre x, |x| en binaire signé. 


e Puis l’on complémente tous les bits de la mémoire (complément à 1 ou complément restreint). 
Cette opération est un non logique effectué sur chaque bit de la mémoire. 


e Enfin l’on additionne +1 au nombre binaire de la mémoire (addition binaire). 


Exemple, soit à représenter le nombre -14 en suivant les 3 étapes : 


LE RE valeur absolue | 


0ol0ol0ol0,,..l0l1l1l1/0 


< n n-ln-? 3 2 10 codage de | 14 14 


1111111/,,..1110101)01|1 


é n nln? 3 2 1 0 complément à 1 


1|1/1/11,,..l12l0l0l11l0 


: n n-ln2? 3 2 1 0 addition de 1 


Le nombre -14 s'écrit donc en complément à 2 : 1111..10010. 


Un des intérêts majeurs de ce codage est d’intégrer la soustraction dans l’opération de codage et de 
ne faire effectuer que des opérations simples et rapides (non logique, addition de 1). 


Nous venons de voir que le codage utilisait essentiellement la représentation d'un nombre en binaire 


(la numération binaire) et qu'il fallait connaître les rudiments de l'arithmétique binaire. Le paragraphe 
ci-après traite de ce sujet. 
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2. Numération 


Ce paragraphe peut être ignoré par ceux qui connaissent déjà les éléments de base des calculs en 
binaire et des conversions binaire-décimal-hexadécimal, dans le cas contraire, il est conseillé de le 
lire. 


Pour des commodités d'écriture, nous utilisons la notation indicée pour représenter la base d'un 
nombre en parallèle de la représentation avec la barre au dessus. Ainsi 14510 signifie le nombre 145 
en base dix; 1101011: signifie 1101011 en binaire. 


2.1 Opérations en binaire 


Nous avons parlé d’addition en binaire ; comme dans le système décimal, il nous faut connaître les 
tables d’addition, de multiplication, etc. afin d’effectuer des calculs dans cette base. Heureusement 
en binaire, elles sont très simples : 


Addition Multiplication 


0(1) représente la retenue 1 à reporter. 


Exemples de calculs (109+19=128;9 =10000000, ) et (22x5=110) : 


addition multiplication 
10110 
x 101 
1101101 
+ 10011 10110 


10110. 
10000000: =128:0 nent 


1101110; =110;5 


Vous noterez que le procédé est identique à celui que vous connaissez en décimal. En hexadécimal 
(b=16) il en est de même. Dans ce cas les tables d’opérateurs sont très longues à apprendre. 


Etant donné que le système classique utilisé par chacun de nous est le système décimal, nous nous 
proposons de fournir d’une manière pratique les conversions usuelles permettant d'écrire les diverses 
représentations d’un nombre entre les systèmes décimal, binaire et hexadécimal. 
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2.2 Conversions base quelconque © décimal 


Voici ci-dessous un rappel des méthodes générales permettant de convertir un nombre en base b 
(b>1)en sa représentation décimale et réciproquement. 


b 
À ) Soit “n#n-1:::-X*0 Un nombre écrit en base b. 


Pour le convertir en décimal (base 10), il faut : 


e convertir chaque symbole x, en son équivalent a, en base 10, nous obtenons ainsi la suite de 
chiffres : a,.....,a0 


Exemple, soit b=13, les symboles de la base 13 sont : { 0, 1, 2, 3, 4, 5, 6, 7, 8,9, À, B, CC} 


Si le chiffre xt de rang k du nombre s'écrit C, son équivalent en base 10 est ax=12 


e réécrire le nombre comme une somme : 


XnXn-1----X0 — 0 


e effectuer tous les calculs en base 10 (somme, produit, puissance). 


Exemple : 13 
2AB8 à convertir en basel0 ( b=13 ) 
13 
Le nombre 2 L1HBS& = 2.13? + 10.13? + 11.131 + 8.13! 
ÿ & 1 0 
10 
= 4394 + 1690 + 143 + 8 = 6235 


B ) Soit " a " un nombre écrit décimal et à représenter en base b : 


La méthode utilisée est un algorithme fondé sur la division euclidienne. 
e Sia < b, il n'a pas besoin d'être converti. 


e Sia=b, on peut diviser a par b. Et l’on divise successivement les différents quotients qx obtenus 
par la base b. 


De manière générale on aura : 
k k-1 : | 
a=b' rx +b rx + … + Dr + ro (où ri est le reste de la division de a par b). 


En remplaçant chaque r; par son symbole équivalent pi en base b, nous obtenons : 


ES + | 
a — Px Px-1 """ P1 Po 
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Cet algorithme permet d'obtenir une représentation de a dans la base b. 


Exemple : 
—1ù 
6235 à convertir en base b-13 
les symboles de la base 13 sont: £f0,1,2,3,4,5,6,7,8,9,2A,B,C} 


6235 13 
8 479 13 
F — di 
11 36 13 
: _. a 
10 2 


Les p; équivalents en base 13 sont: 


ro = 8 — po= 8 


T1 = 11 P1= B 
I = 10 — P2= A 
= 2 —p;=2 Donc 6235: = 2AB8;3 


Dans les deux paragraphes suivants nous allons expliciter des exemples pratiques de ces méthodes 
dans le cas où la base est 2 (binaire). 


2.3 Exemple de conversion décimal — binaire 


Soit le nombre décimal 35: , appliquons l'algorithme précédent afin de trouver les restes successifs : 
35 | 2 


= 1 | 17 | 2 
ni) € (ue 
0 Ve pe 
= 0 | 2712 
Res 
Donc : 35,0 = 100011; 
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2.4 Exemple de conversion binaire — décimal 


Soit le nombre binaire : 1101101; 
sa conversion en décimal est immédiate : 


1101101, = 2° +2° +2? +2 +22 +1 =64+32+8+4+1 109, 


Les informaticiens, pour des raisons de commodité (manipulations minimales de symboles), 
préfèrent utiliser l’hexadécimal plutôt que le binaire. L’humain, contrairement à la machine, a 
quelques difficultés à fonctionner sur des suites importantes de 1 et de O0. Ainsi l’hexadécimal (sa 
base b=2" étant une puissance de 2) permet de diviser, en moyenne, le nombre de symboles par 
un peu moins de 4 par rapport au même nombre écrit en binaire. C’est l’unique raison pratique 
qui justifie son utilisation ici. 


2.5 Conversion binaire — hexadécimal 

Nous allons détailler l’action de conversion en 6 étapes pratiques : 

e Soit a un nombre écrit en base 2 (éfape 1). 

e On décompose ce nombre par tranches de 4 bits à partir du bit de poids faible (étape 2). 

e On complète la dernière tranche (celle des bits de poids forts)par des 0 s’il y a lieu (étape 3). 
e On convertit chaque tranche en son symbole de la base 16(éfape 4). 


e On réécrit à sa place le nouveau symbole par changements successifs de chaque groupe de 4 
bits, (éfape 5). 


e Ainsi, on obtient le nombre écrit en hexadécimal (éfape 6). 


< ———— 
Exemple : 111101 
Soit le nombre 111101; + 


Li 1/11,0,1] 
+ 


D ge 


à convertir en héxadécimal. 


3 13 
Résultat obtenu : d + 
111101; = 3D, —_—_— 3D° 
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2.6 Conversion hexadécimal — binaire 


Cette conversion est l’opération inverse de la précédente. Nous allons la détailler en 4 étapes : 


e Soit a un nombre écrit en base 16 (ETAPE 1). 


e On convertit chaque symbole hexadécimal du nombre en son écriture binaire (nécessitant au plus 


4 bits) (ETAPE 2). 


e Pour chaque tranche de 4 bits, on complète les bits de poids fort par des 0 s'il y a lieu (ETAPE 3). 


e Le nombre "a "écrit en binaire est obtenu en regroupant toutes les tranches de 4 bits à partir du 


bit de poids faible, sous forme d’un seul nombre binaire(ETAPE 4). 


Exemple : 
Soit le nombre 23D5;4 


à convertir en binaire. 


Résultat obtenu : 


23DS5;6 = 10001111010101;> 


5 ETAPE 1 


10 11 1101 101 FTAPE2 


0010 0011 1101 O101 EraPE5 
TTT 


2 3 D 5 


| 
10001111010101 ETAPE4 
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1.4 Formalisation de la notion 
d'ordinateur 


Plan du chapitre: É 


1. Machine de Turing théorique 


1.1 Définition : machine de Turing 
1.2 Définition : Etats de la machine 
1.3 Définition : Les règles de la machine 


2. La Machine de Turing physique 


2.1 Constitution interne 

2.2 Fonctionnement 

2.3 Exemple : machine de Turing arithmétique 
2.4 Machine de Turing informatique 
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1. La Machine de Turing théorique 


Entre 1930 et 1936 le mathématicien anglais A.Turing invente sur le papier une machine fictive qui 
ne pouvait effectuer que 4 opérations élémentaires que nous allons décrire. Un des buts de Turing 
était de faire résoudre par cette " machine " des problèmes mathématiques, et d’étudier la classe des 
problèmes que cette machine pourrait résoudre. 


Définitions et notations (modèle déterministe) 
Soit À un ensemble fini appelé alphabet défini ainsi : 


A={aà,.,aä} (AZ) 
Soit Q ={D,G} une paire 


1.1 Définition : machine de Turing 
Nous appellerons machine de Turing toute application T : 


T:E = N x (OÙ A) 
où E est un ensemble fini non vide: E € N x À 


1.2 Définition : Etats de la machine 


Nous appellerons E; ensemble des états intérieurs de la machine T°: 
E= { men, (ae À / (Œ,a) € Dom(T)) où (1x e Q / (@, x) € Im(t)) } 


PURE TT N x(QUA) 
( € 
Dom{T) rs ut ImiT) 


Dom(T) : domaine de définition de T. 
Im(T) : image de T (les éléments T(àa) de N x (Q4Ù A), pour a € E) 


Comme E est un ensemble fini, E; est nécessairement un ensemble fini, donc il y a un nombre fini 
d’états intérieurs notés qji. 


1.3 Définition : Les règles de la machine 


Nous appellerons " ensemble des règles " de la machine T, le graphe G de l’application T. Une règle 
de T est un élément du graphe G de T. 
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On rappelle que le graphe de T est défini comme suit : 
G = {(a,b) € E x [Et x (QUÙ A)] / b = T(a) } 


e Notation : afin d’éviter une certaine lourdeur dans l’écriture nous conviendrons d’écrire les 
règles en omettant les virgules et les parenthèses. 


e Exemple : la règle ( (qi.a) , (qx.b) ) est notée : qia ab 


2. La Machine de Turing physique 


2.1 Constitution interne 

Nous construisons une machine de Turing physique constituée de : 
e Une boîte notée UC munie d’une tête de lecture-écriture et d’un registre d’état. 
e Un ruban de papier supposé sans limite vers la gauche et vers la droite. 


e Sur le ruban se trouvent des cases contigües contenant chacune un seul élément de l’alphabet 
A. 


e La tête de lecture-écriture travaille sur la case du ruban située devant elle ; elle peut lire le 
contenu de cette case ou effacer ce contenu et y écrire un autre élément de A. 


e Il existe un dispositif d’entraînement permettant de déplacer la tête de lecture-écriture d’une 
case vers la Droite ou vers la Gauche. 


e Dans la tête lecture-écriture 1l existe une case spéciale notée registre d’état, qui sert à recevoir 
un élément qji de E+. 


Cette machine physique est une représentation virtuelle d'une machine de Turing théorique T, 
d'alphabet À, dont l'ensemble des états est E;, dont le graphe est donné ci-après : 


CERN DEC Re LE MONA I RD TS 


Donnons une visualisation schématique d'une telle machine en cours de fonctionnement. La tête de 
lecture/écriture pointe vers une case contenant l'élément a; de À, le registre d'état ayant la valeur qK : 
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2.2 Fonctionnement 


Départ : 
On remplit les cases du ruban d’éléments a; de A. 
On met la valeur ” qk " dans le registre d’état. 


On positionne la tête sur une case contenant " ai" 


Actions : (la machine se met en marche) 


La tête lit le " a;". L’UC dont le registre d’état vaut " qK ”, cherche dans la liste des règles si le couple 
(qu, ai) e Dom(T). 


Si la réponse est négative on dit que la machine " bloque " (elle s’arrête par blocage). 


Si la réponse est positive alors le couple (qk , ai) a une image unique (machine déterministe)que nous 
notons (qn , y). Dans ce couple, y ne peut prendre que l'un des 3 types de valeurs possibles a, , D , G : 


e a) soit y=a, dans ce cas la règle est donc de la forme Ok 4j An ap 


a.1) L’UC fait effacer le a; dans la case et le 
remplace par l’élément a,. 


a.2) L’UC écrit qn dans le registre d’état en 
remplacement de la valeur qx. 


e b)soit y =D, ici la règle est donc de la forme QKk 4j Qn D 
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| | TE 
b.1) L’UC fait déplacer la tête vers la droite d’une 1 a; 
case. 


CECI 2 


b.2) L’UC écrit qh dans le registre d’état en 
remplacement de la valeur qx. 


ec) soit y = G, dans ce cas la règle est donc de la forme Qx 4j An G 


c.1) L’UC fait déplacer la tête vers la gauche 
d'une case. 


c.2) L’UC écrit q dans le registre d’état en 
remplacement de la valeur qx. 


Puis la machine continue à fonctionner en recommençant le cycle des actions depuis le début : lecture 
du nouvel élément ak etc. 


2.3 Exemple : machine de Turing arithmétique 

Nous donnons ci-dessous une machine T; additionneuse en arithmétique unaire. 
A={#,1} 

Q ={D,G} 


un entier n est représenté par n+1 symboles " 1 " consécutifs (de façon à pouvoir représenter " O " par 
un unique " 1 "). 
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Etat initial du ruban avant actions : 


2 est représenté par 111 
3 est représenté par 1111 


Règles T;: (application des règles suivantes pour simulation de 2+3) 


qi 1 qD dé 1 q7D di 1 di2# 
q 1 qsD q7 1 qsD d12 # di3G 
q3 1 D qs 1 qD d13 1 qua 
da # qs1 qo 1 qioD 
qs 1 qD dio # duG 


En démarrant la machine sur la configuration précédente on obtient : 


Etat final du ruban après actions : (Cette machine ne fonctionne que pour additionner 2 et 3) 


Généralisation de la machine additionneuse 


Il est facile de fournir une autre version plus générale T; fondée sur la même stratégie et le même état 
initial permettant d'additionner non plus seulement les nombres 2 et 3, mais des nombres entiers 
quelconques n et p. Il suffit de construire des nouvelles règles. 


Règles de T: 


di 1 qiD q3 1 qs# 
di # qi q3 # qaG 
q 1 D qa 1 qs# 
q # q3G 
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Cette machine de Turing T2 appliquée à l'exemple précédent (addition de 2 et 3) laisse le ruban dans 
le même état final, mais elle est construite avec moins d’états intérieurs que la précédente. 


En fait elle fonctionne aussi si la tête de lecture-écriture est positionnée sur n’importe lequel des 
éléments du premier nombre n. et les nombres n et p sont quelconques : 


n P 
#khht-hh#phhtehntelel 


Etat initial sur le nombre de gauche 


n +p 


CORSA 


Etat final à la fin du nombre calculé (il y a n+p+1 symboles " 1 ") 


Nous dirons que T; est plus ” puissante ” que T, au sens suivant : 
e Ta moins d’états intérieurs que T.. 
e T> permet d’additionner des entiers quelconques. 


e _Ilest possible de démarrer l’état initial sur n’importe lequel des " 1 " du nombre de gauche. 


On pourrait toujours en ce sens chercher une machine T; qui posséderait les qualités de T2 , mais qui 
pourrait démarrer sur n’importe lequel des " 1 " de l’un ou l’autre des deux nombres n ou p, le lecteur 
est encouragé à chercher à écrire les règles d'une telle machine. 


Nous voyons que ces machines sont capables d’effectuer des opérations, elles permettent de définir la 
classe des fonctions calculables (par machines de Turing). 


Un ordinateur est fondé sur les principes de calcul d’une machine de Turing. J. Von Neumann a 
défini la structure générale d’un ordinateur à partir des travaux de A.Turing. Les éléments physiques 
supplémentaires que possède un ordinateur moderne n’augmentent pas sa puissance théorique. Les 
fonctions calculables sont les seules que l’on puisse implanter sur un ordinateur. Les périphériques et 
autres dispositifs auxiliaires extérieurs ou intérieurs n’ont pour effet que d’améliorer la " puissance " 
en terme de vitesse et de capacité. Comme une petite voiture de série et un bolide de formule 1 
partagent les mêmes concepts de motorisation, de la même manière les différents ordinateurs du 
marché partagent les mêmes fondements mathématiques. 


Les bases de l'informatique - programmation - (76,. 05.09.2004 ) page 45 


2.4 Machine de Turing informatique 


Nous faisons évoluer la représentation que nous avons de la machine de Turing afin de pouvoir 
mieux la programmer, c'est à dire pouvoir écrire plus facilement les règles de fonctionnement d'une 
telle machine. 


Nous définissons ce qu'est un algorithme pour une machine de Turing et nous proposons une 
description graphique de cet algorithme à l'aide de schémas graphiques symboliques décrivant des 
actions de base d'une machine de Turing. 


A) Une machine de Turing informatique est dite normalisée au sens suivant : 

e  L’alphabet A contient toujours le symbole " #" 

e  L’ensemble des états E contient toujours deux états distingués qo (état initial) et qr (état final). 
e La machine démarre toujours à l’état initial do . 

e Elle termine sans blocage toujours à l’état qr. 


e Dans les autres cas on dit que la machine " bloque . 


BjAlgorithme d’une machine de Turing informatique 


C’est l’ensemble des règles précises qui définissent un procédé de calcul destiné à obtenir en sortie 
un " résultat " déterminé à partir de certaines " données " initiales. 


©) Algorithme graphique d’une machine de Turing 
Nous utilisons cinq classes de symboles graphiques 


Positionne la tête de lecture sur le 
symbole voulu, met la machine à l’état 
initial qo et fait démarrer la machine. 


Signifie que la machine termine 
correctement son calcul en s’arrêtant à 


cc» l’état final qr. 


Les bases de l'informatique - programmation - |;4:. 05.09.2004 ) page 46 


la poursuite du fonctionnement, arrêt de 


| Aucune règle de la machine ne permettant 
la machine sur un blocage. 


œ 
& 
$ 


| Déplacer la tête d’une case vers la gauche 
(la tête de lecture se positionne sur la case 


d’avant la case actuelle contenant le 


symbole ay). 
G Correspond à la règle : 


di ap qj G 


Correspond à l’action à exécuter dans la deuxième partie de la 
règle : 


di Ap dj Ak 
+ 
| (la machine écrit a dans la case actuelle et passe à l’état qj; 
® |” 


Correspond à l’action à exécuter dans la première 
partie de la règle : 


Qj Ak 
OU Qi # 


(la machine teste le contenu de la case actuelle et 


passe à l’état q; ou à l’état qi selon la valeur du 
contenu). 


D) Organigramme d’une machine de Turing 


On appelle organigramme d’une machine de Turing T, toute représentation graphique constituée de 
combinaisons des symboles des cinq classes précédentes. 


Les règles de la forme n Ak Qn G ou nAkAnD se traduisent par des schémas " bouclés " ce qui 
donne des organigrammes non linéaires. 
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Règles de T} normalisée : 


do 1 qoD q2 1 q# 
qo # qil d # qG 
q 1 qD q3 1 qrf 
qi # pG 
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Nous voyons que ce symbolisme graphique est un outil de description du mode de traitement de 
l’information au niveau machine. C’est d’ailleurs historiquement d’une façon semblable que les 
premiers programmeurs décrivaient leur programmes. 
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1.5 Architecture de l'ordinateur 


Plan du chapitre: É 


Les principaux constituants 


1.1 Dans l’Unité Centrale : l’unité de traitement 

1.2 Dans l’Unité Centrale : l’unité de commande 

1.3 Dans l’Unité Centrale : les Unités d’échange 

1.4 Exemples de machine à une adresse : un micro-processeur 
1.5 Les Bus 

1.6 Schéma général d’une micro-machine fictive 

1.7 Notion de jeu d’instructions-machine 


2. Mémoires - Mémoire centrale 


2.1 Mémoire 

2.2 Les différents types de mémoires 
2.3 Les unités de capacité 

2.4 Mémoire centrale : définitions 

2.5 Mémoire centrale : caractéristiques 


3. Une petite machine pédagogique 8 bits " PM " 
3.1 Unité centrale de PM (pico-machine) 


3.2 Mémoire centrale de PM 
3.3 Jeu d’instructions de PM 


FE 
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1. Les principaux constituants 


Un ordinateur, nous l’avons déjà noté, est composé d’un centre et d’une périphérie. Nous allons nous 
intéresser au cœur d’un ordinateur mono-processeur. Nous savons que celui-ci est composé de : 


Une Unité centrale comportant : 
e Unité de traitement, 

e Unité de contrôle, 

e Unités d’échanges. 


e Une Mémoire Centrale. 


1.1 Dans l’Unité Centrale : Y' Unité de Traitement 


Elle est chargée d’effectuer les traitements des opérations de types arithmétiques ou booléennes. 
L’UAL est son principal constituant. 


Elle est composée au minimum : 
e d’un registre de données RD 
e d’un accumulateur ACC 


e d’une unité arithmétique et logique : UAL 


UNITE 
ARITHMETIQUE ACCUMUL 
et LOGIQUE 


Schéma général de l'unité de traitement 


La fonction du registre de données (mémoire rapide) est de contenir les données transitant entre 
l’unité de traitement et l’extérieur. 


La fonction de l’accumulateur est principalement de contenir les opérandes ou les résultats des 
opérations de l’UAL. 


La fonction de l’UAL est d’effectuer en binaire les traitements des opérations qui lui sont soumises et 
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qui sont au minimum: 

e Opérations arithmétiques binaires: addition,multiplication, soustraction, division. 
e Opérations booléennes : et, ou, non. 

e  Décalages dans un registre. 


Le résultat de l’opération est mis dans l’accumulateur (Acc). 


1.2 Dans l’Unité Centrale : l’Unité de Contrôle ou de Commande 


Elle est chargée de commander et de gérer tous les différents constituants de l’ordinateur (contrôler 
les échanges, gérer l’enchaînement des différentes instructions, etc.) 


Elle est composée au minimum de : 
e d’un registre instruction RI, 

e d’un compteur ordinal CO, 

e d’un registre adresse RA, 

e d’un décodeur de fonctions, 


e d’une horloge. 


Bus de données 
REGISTRE 
INSTRUCTION 


DECODEUR 
de 


FONCTIONS à ere 
FS | Horloge 


Schéma général de l'unité de contrôle 


Bus d'adresse 


Vocabulaire : 


Bit = plus petite unité d’information binaire (un objet physique ayant deux états 


représente un bit). 


Processeur central = unité de commande + unité de traitement. 
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Instruction = une ligne de texte comportant un code opération, une ou plusieurs 


références aux opérandes. 


Soit l’instruction fictive d’addition du contenu des deux mémoires x et y dont le résultat est mis dans 
une troisième mémoire z : 


Z=X+Y 


E- . références opérandes… | 


Registre instruction = contient l’instruction en cours d’exécution, elle demeure 
dans ce registre pendant toute la durée de son exécution. 


Compteur ordinal = contient le moyen de calculer l’adresse de la prochaine 
instruction à exécuter. 


Décodeur de fonction = associé au registre instruction, il analyse l’instruction à 
exécuter et entreprend les actions appropriées dans l’UAL ou dans la mémoire 
centrale. 


1.3 Dans l’Unité Centrale : les Unités d’échange 


e Une unité d’échange est spécialisée dans les entrées/sorties. 
e Ce peut être un simple canal, un circuit ou bien un processeur particulier. 


e Cet organe est placé entre la mémoire et un certain nombre de périphériques (dans un micro- 
ordinateur ce sont des cartes comme la carte son, la carte vidéo, etc.….). 


Une unité d’échange soulage le processeur central dans les tâches de gestion du transfert de 
l'information. 


Les périphériques sont très lents par rapport à la vitesse du processeur (rapport de 1 à 10°). Si le 
processeur central était chargé de gérer les échanges avec les périphériques il serait tellement ralenti 
qu’il passerait le plus clair de son temps à attendre. 
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1.4 Exemple de machine à une adresse : un micro-processeur 


Un micro-processeur a les mêmes caractéristiques que celles d’un processeur central avec un niveau 
de complexité et de sophistication moindre. 


Un micro-processeur est essentiellement une machine à une adresse, c’est à dire une partie code 
opérande et une référence à un seul opérande. Ce genre de machine est fondé sur un cycle de passage 
par l’accumulateur. 


L'opération précédente z = x + y, se décompose dans une telle machine fictivement en 3 opérations 
distinctes illustrées par la figure ci-après : 


LoadAcc x  { chargement de l’accumulateur avec x : (1) } 

Add y { préparation des opérandes x et y vers l’UAL : (2) } 
{ lancement commande de l’opération dans l’UAL : (3) } 
{ résultat transféré dans l’accumulateur : (3) } 

Store z { copie de l’accumulateur dans z : (4) } 


L'accumulateur gardant son contenu au final. 


1.5 Les Bus 


Un bus est un dispositif destiné à assurer le transfert simultané d’informations entre les divers 
composants d’un ordinateur. 


On distingue trois catégories de Bus : 


Bus d’adresses (unidirectionnel) 


il permet à l’unité de commande de transmettre les adresses à rechercher et à stocker. 
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Bus de données (bi-directionnel) 


sur lequel circulent les instructions ou les données à traiter ou déjà traitées en vue de leur rangement. 


Bus de contrôle (bi-directionnel) 


transporte les ordres et les signaux de synchronisation provenant de l’unité de commande vers les 
divers organes de la machine. Il véhicule aussi les divers signaux de réponse des composants. 


1.6 Schéma général d’une micro-machine fictive 


Bus de données 


Décodeur 


fonctions 


1.7 Notion de jeu d’instructions-machine : Les premiers programmes 


Comme défini précédemment, une instruction-machine est une instruction qui est directement 
exécutable par le processeur. 


L’ensemble de toutes les instructions-machine exécutables par le processeur s’appelle le " jeu 
d’instructions " de l’ordinateur. Il est composé au minimum de quatre grandes classes d’instructions 
dans les micro-processeurs : 


e instructions de traitement 


instructions de branchement ou de déroutement 


instructions d’échanges 
e instructions de comparaisons 


D’autres classes peuvent être ajoutées pour améliorer les performances de la machine (instructions de 
gestion mémoire, multimédias etc.) 
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2. Mémoires - Mémoire Centrale 


2.1 Mémoire 


Mémoire :c’est un organe (électronique de nos jours), capable de contenir, de 


conserver et de restituer sans les modifier de grandes quantités d’information. 


2.2 Les différents types de mémoires 


La mémoire vive RAM (Random Access Memory) 
e Mémoire dans laquelle on peut lire et écrire. 


e Mémoire volatile (perd son contenu dès la coupure du courant). 


La mémoire morte ROM (Read Only Memory) 
e Mémoire dans laquelle on ne peut que lire. 


e Mémoire permanente (conserve indéfiniment son contenu). 


Les PROM (Programable ROM) 


e Ce sont des mémoires vierges programmables une seule fois avec un outil spécialisé s’appelant 
un programmateur de PROM. 


e Une fois programmées elles se comportent dans l’ordinateur comme des ROM. 


Les EPROM (Erasable PROM) 
e Ce sont des PROM effaçables (généralement sous rayonnement U.V), 
e elles sont reprogrammables avec un outil spécialisé, 


e elles se comportent comme des ROM en utilisation courante. 


2.3 Les unités de capacité 


Les unités de mesure de stockage de l’information sont : 
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Le bit (pas de notation) 


L’octet = 2° bits = 8 bits. (noté 1 o) 


Le Kilo-octet = 2!° octets =1024 o (noté 1 Ko) 


Le Méga-octet = 22 octets =(1024)° o (noté 1 Mo) 


Le Giga-octet = 2% octets =(1024) 0 (noté 1 Go) 


Le Téra-octet = 2“ octets =(1024)* o (noté 1 To)... 


Les autres sur-unités sont encore peu employées actuellement. 


2.4 Mémoire centrale : définitions 


Mot : c’est un regroupement de n bits constituant une case mémoire dans la 
mémoire centrale. Ils sont tous numérotés. 


Adresse : c’est le numéro d’un mot-mémoire (case mémoire) dans la mémoire 
centrale. 


Programme : c’est un ensemble d’instructions préalablement codées (en binaire) 
et enregistrées dans la mémoire centrale sous la forme d’une liste séquentielle 
d’instructions. Cette liste représente une suite d’actions élémentaires que 
l’ordinateur doit accomplir sur des données en entrée, afin d’atteindre le résultat 
recherché. 


Organisation : La mémoire centrale est organisée en bits et en mots. Chaque mot- 
mémoire est repéré bijectivement par son adresse en mémoire centrale. 


Contenu : La mémoire centrale contient en binaire, deux sortes d’informations 
e des programmes, 


e des données. 


Composition : Il doit être possible de lire et d’écrire dans une mémoire centrale. 
Elle est donc habituellement composée de mémoires de type RAM. 
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Remarques 


e Un ordinateur doté d’un programme est un automatisme apte 
seulement à répéter le même travail(celui dicté par le programme). 


e Si l’on change le programme en mémoire centrale, on obtient un 
nouvel automatisme. 


2.5 Mémoire centrale : caractéristiques 


La mémoire centrale peut être réalisée grâce à des technologies différentes. Elle possède toujours des 
caractéristiques générales qui permettent de comparer ces technologies. En voici quelques unes : 


La capacité représente le nombre maximal de mots que la mémoire peut stocker 
simultanément. 


Le temps d’accès est le temps qui s’écoule entre le stockage de l’adresse du mot à 
sélectionner et l’obtention de la donnée. 


Le temps de cycle ou cycle mémoire est égal au temps d’accès éventuellement 
additionné du temps de rafraîchissement ou de réécriture pour les mémoires qui 
nécessitent ces opérations. 


La volatilité, la permanence. 


Terminons ce survol des possibilités d’une mémoire centrale, en indiquant que le mécanisme d’accès 
à une mémoire centrale par le processeur est essentiellement de type séquentiel et se décrit selon trois 
phases : 


e stockage, 
e sélection, 


e transfert. 


Un ordinateur est une machine séquentielle de Von Neumann dans laquelle 


s’exécutent ces 3 phases d’une manière immuable, que ce soit pour les 
programmes ou pour les données. 
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3. Une petite machine pédagogique 8 bits 


3.1 Unité centrale de PM (pico-machine) 


Objectif: 


Support pédagogique destiné à faire comprendre l'analyse et le 


cheminement des informations dans un processeur central 
d'ordinateur fictif. 


e La mémoire centrale est à mots de 8 bits, les adresses sont sur 16 bits. 
e _le processeur est doté d'instructions immédiates ou relatives. 


e Les instructions sont de 3 types à 1,2 ou 3 octets. 


Description générale de l’unité centrale de PM simulée sur le tableau de bord ci-dessous : 


RE) 66000000 


[00000000 


RALLL 


Décodeur 


RA = Registre Adresse sur 16 bits 

CO = Compteur Ordinal sur 16 bits 

DC = Registre de formation d'adresse sur 16 bits 

RD = Registre de Données sur 8 bits 

UAL = Unité Arithmétique et Logique effectuant les calculs sur 8 bits avec possibilité de 
débordement. 

Acc = Accumulateur sur 8 bits (machine à une adresse). 

RI = Registre Instruction sur 8 bits (instruction en cours d'exécution). 

Décodeur de fonction. 
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séquenceur 

Horloge 

CCR = un Registre de 4 Codes Condition N, V, Z, C, 
BUS de contrôle (bi-directionnel) 

BUS interne (circulation des informations internes). 


3.2 Mémoire centrale de PM 


La mémoire centrale de PM est de 512 octets, ce qui permet dans une machine 8 bits de voir 
comment est construite la technique d'adressage court (8 bits) et d'adressage long (16 bits). 


ladresse|contenul| 


Elle est connectée à l’unité centrale à travers deux bus : un bus d’adresse et un bus de données. 


3.3 Jeu d'instructions de PM 


PM est doté du jeu d'instructions suivant : 


addition avec l'accumulateur 


LDA <adr 8 bits 2 octets code=11 


| rangement de l'accumulateur | 
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STA <adr 16 bits 3 octets code=15 


STA <adr 8 bits 2 octets code=14 


positionnement indicateurs CNVZ 


STC (C=1) 1 octet code=100 
STN (N=1) 1 octet code=101 
STV (V=1) 1 octet code=102 
STZ (Z=1) 1 octet code=103 
CLC (C=D0) 1 octet code=104 
CEN (N=D0) 1 octet code=105 
CLV (V=D0) 1 octet code=106 
CLZ (Z=0) 1 octet code=107 


branchement relatif sur indicateur 


BCZ (brancht.si C=0) 2 octets code=22 
BNZ (brancht.si N=0) 2 octets code=23 
BVZ (brancht.si V=0) 2 octets code=24 
BZZ (brancht.si Z=0) 2 octets code=25 

END (fin programme) 1 octet code=255 


Dans le CCR les 4 bits indicateurs sont dans cet ordre : NV ZC. 
Ils peuvent être : 


e soit positionnés automatiquement par la machine: 


N = le bit de poids fort de l'Accumulateur 

V = 1 si overflow (dépassement capacité) 0 sinon 
Z= 1 si Accumulateur vaut 0 

Z =0 si Accumulateur <0 

C = 1 si retenue (dans l'addition) sinon 0 


e soit positionnés par programme. 
Exemple de programme en PM 


LDA #18 ; /chargement de l’accumulateur avec la valeur 18} 
STA 50 ; /rangement de l’accumulateur dans la mémoire n° 50} 
LDA #5 ; {chargement de l’accumulateur avec la valeur 5} 


STA 51 ; /rangement de l’accumulateur dans la mémoire n°51} 
ADD 50 ; /addition de l’accumulateur avec la mémoire n°50} 
STA 52 ; /rangement de l’accumulateur dans la mémoire n°52} 
END 
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1.6 Système d’exploitation 


Plan du chapitre: É 


1. Notion de système d’exploitation 


1.1 Les principaux types d’ OS 
monoprogrammation 
multi-programmation 


temps partagé 
2. Les OS des micro-ordinateurs 


2.1 Le système d’exploitation Windows de Microsoft 


& 
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1. Notion de système d’exploitation 


Un ordinateur est constitué de matériel (hardware) et de logiciel (software). Cet ensemble est à la 
disposition de un ou plusieurs utilisateurs. Il est donc nécessaire que quelque chose dans l’ordinateur 
permette la communication entre l’homme et la machine. Cette entité doit assurer une grande 
souplesse dans l’interface et doit permettre d’accéder à toutes les fonctionnalités de la machine. Cette 
entité douée d’une certaine intelligence de communication se dénomme " la machine virtuelle ". Elle 
est la réunion du matériel et du système d’exploitation (que nous noterons OS par la suite). 


Les utilisateurs 


SYSTEME D'EXPLOITATION 


tuelle — 


ine vi 


= Mach 


Machine physique 


Le système d’exploitation d’un ordinateur est chargé d’assurer les fonctionnalités de communication 
et d’interface avec l’utilisateur. Un OS est un logiciel dont le grand domaines d’intervention est la 
gestion de toutes les ressources de l’ordinateur : 


e mémoires, 

e fichiers, 

e périphériques, 
e  entrée-sortie, 


° interruptions, synchronisation. 
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Un système d’exploitation n’est pas un logiciel unique mais plutôt une famille de logiciels. Une 
partie de ces logiciels réside en mémoire centrale (nommée résident ou superviseur), le reste est 
stocké en mémoire de masse (disques durs par exemple). 


Afin d’assurer une bonne liaison entre les divers logiciels de cette famille, la cohérence de l’OS est 
généralement organisée à travers des tables d’interfaces architecturées en couches de programmation 
(niveaux abstraits de liaison). La principale tâche du superviseur est de gérer le contrôle des échanges 
d’informations entre les diverses couches de l’OS. 


1.1 Les principaux types d’ OS 


Nous avons vu dans le tableau synoptique des différentes générations d’ordinateurs que les OS ont 
subi une évolution parallèle à celle des architectures matérielles. Nous observons en première 
approximation qu’il existe trois types d’OS différents, si l’on ignore les systèmes rudimentaires de la 
1° génération. 


MONOPROGRAMMATION : La 2°"° génération d’ordinateurs est équipée d’OS dits de " 
monoprogrammation " dans lesquels un seul utilisateur est présent et a accès à toutes les ressources 
de la machine pendant tout le temps que dure son travail. L’OS ne permet le passage que d'un seul 
programme à la fois. 


A titre d’exemple, supposons que sur un tel système 5 utilisateurs exécutent chacun un programme 
Pi; Ps, Pa, Pa, Ps: 


rar durée detraitement 15 
en secondes 
a 
_. Fe 


P5 P4 P3 P2 P1 


Dans l’ordre de la figure ci-haut, chaque P; attend | Exemple de diagramme des temps d’exécution de 
que le P;,, précédent ait terminé son exécution chaque programme P; de la figure de gauche. 
pour être exécuté à son tour. 


L’axe des abscisses du diagramme des temps d'exécution, indique l’ordre de passage précédent (P:, 
puis P4 etc...) nous voyons que les temps d’attente d’un utilisateur ne dépendent pratiquement pas de 
la durée d’exécution de son programme mais surtout de l’ordre du passage (les derniers sont 
pénalisés surtout si en plus leur temps propre d’exécution est faible comme P; par exemple). 


Les bases de l'informatique - programmation - (7:64. 05.09.2004 ) age 
pd: 


Une vision abstraite et synthétique d’un tel système est de considérer que 5 tables suffisent à le 


décrire. La table : 
e des unités logiques, 


e des unités physiques, 


des états, 
e de ventilation des interruptions, 


e des canaux. 


Relativement aux temps d'attente, un système de monoprogrammation est injuste vis à vis des petits 


programmes. 


MULTIPROGRAMMATION : La 3°”° génération d’ordinateur a vu naître avec elle les OS 
de multiprogrammation. Dans un tel système, plusieurs utilisateurs peuvent être présents en " même 
temps " dans la machine et se partagent les ressources de la machine pendant tout leur temps 


d’exécution. 


En reprenant le même exemple que précédemment, P:, P2, P3, P4, Ps sont exécutés cycliquement par 
l'OS qui leur alloue les ressources nécessaires (disque, mémoire, fichier...) pendant leur tranche de 
temps d’exécution. Nous exposons dans l'exemple ci-dessous uniquement des exécutions ne 
nécessitant jamais d’interruptions, ni de priorité, et nous posons comme hypothèse que le temps fictif 


alloué pour l’exécution est de 1 seconde : 


EX, 
(r2 ) 


Œ 


Fin du traitement de P1 
En — — à 
: RES (Re CRE FE 
/ CE D M 1 
5 SE 
PS RS RS RS 
» RE RUE HE 
2 RE 
à ES PS RE 
P5 P4 P3 P2 P1 


Dans la figure ci-haut, chaque P; se voit allouer 
une tranche de temps d'exécution (1 seconde), dès 
que ce temps est écoulé, l'OS passe à l'exécution 
du P;;, suivant etc... 
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Nous observons dans le diagramme des temps d'exécution que le système exécute P; pendant 1 
seconde, puis abandonne P3 et exécute P, pendant 1 seconde, puis abandonne P4..., jusqu'à l'exécution 
de P:, lorsqu'il a fini le temps alloué à P1, il recommence à parcourir cycliquement la liste (Ps, P4, P3, 
P:, P.jet réalloue 1 seconde de temps d’exécution à Ps etc. jusqu'à ce qu’un programme ait terminé 
son exécution et qu’il soit sorti de la table des programmes à exécuter. 


Une vision abstraite déduite du paragraphe précédent et donc simplificatrice, est de décrire un tel 
système comme composé des 5 types de tables précédentes en y rajoutant de nouvelles tables et en y 
incluant la notion de priorité d’exécution hiérarchisée. Les programmes se voient affecter une priorité 
qui permettra à l’OS selon les niveaux de priorité, de traiter certains programmes plus complètement 
ou plus souvent que d’autres. 


Relativement aux temps d'attente, un système de multiprogrammation rétablit une certaine justice 
entre petits et gros programmes. 


TEMPS-PARTAGE : Il s’agit d’une amélioration de la multiprogrammation orientée vers le 
transactionnel. Un tel système organise ses tables d’utilisateurs sous forme de files d’attente. 
L'objectif majeur est de connecter des utilisateurs directement sur la machine et donc d’optimiser les 
temps d’attente de l’OS (un humain étant des millions de fois plus lent que la machine sur ses temps 
de réponse). 


La 4°”° génération d’ordinateur a vu naître les réseaux d’ordinateurs connectés entre eux et donc de 
nouvelles fonctionnalités, comme l’interfaçage réseau, qui ont enrichi les OS déjà existants. De 
nouveaux OS entièrement orientés réseaux sont construits de nos jours. 


2. Les OS des micro-ordinateurs 


Les micro-ordinateurs apparus dans le grand public dès 1978 avec le Pet de Commodore, l’Apple et 
l’IBM-PC, ont répété en accéléré les différentes phases d’évolution des générations d’ordinateurs. 
Les OS des micro-ordinateurs ont suivi la même démarche et sont partis de systèmes de 
monoprogrammation comme MS-DOS et MacOS pour évoluer en systèmes multi-tâches (version 
affaiblie de la multiprogrammation) avec OS/2 , windows et Linux. 


De nos jours un OS de micro-ordinateur doit nécessairement adopter des normes de convivialité dans 
la communication homme-machine sous peine d’être rejeté par le grand public. Là, gît à notre sens, 
un des seuls intérêts de l’impact puissant du marché sur l’informatique. La pression des masses de 
consommateurs a fait sortir l’informatique des milieux d’initiés, et s’il n’y avait pas cette pression, 
les OS seraient encore accessibles uniquement par des langages de commandes textuels dont les 
initiés raffolent (la compréhension d’un symbolisme abstrus dénotant pour certains la marque d’une 
supériorité toute illusoire et assez insignifiante). Notons aussi que la réticence au changement, la 
résistance à la nouveauté et la force de l’habitude sont des caractéristiques humaines qui n’ont pas 
favorisé le développement des interfaces de communication. La communication conviviale des 
années 90-2000 réside essentiellement dans des notions inventées dans les années 70-80 à Xerox 
PARC (Palo Alto Research Center of Xerox), comme la souris, les fenêtres, les menus déroulants, les 
icônes, et que la firme Apple a commercialisé la première dans l’OS du Maclntosh dès 1984. 
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Windows de Microsoft et OS/2 d’IBM se sont d’ailleurs ralliés à cette ergonomie. 


LINUX fondé sur UNIX et en distribution officiellement "gratuite" sous licence GNU, essaie de 
concurrencer le système Windows sur PC, le match est encore inégal en nombre de logiciels installés 
fonctionnant sous cet OS, malgré un important battage médiatique effectué autour de ce système dans 
la fin des années 90 et les rumeurs récurrentes de la disparition de Windows voir même de la société 
Microsoft. 


Le BeOs est un autre système Unix-like développé pour micro-ordinateur lui aussi fondé sur des 
logiciels GNU mais il est officiellement payant (le prix est modeste et équivalent aux distributions de 
Linux). 


2.1 Le système d’exploitation Windows de Microsoft 


Un micro-ordinateur est constitué de matériel (hardware) que l’on trouve partout dans le commerce 
(y compris dans les grandes surfaces), et de logiciels fonctionnant sous un système d’exploitation. Le 
marché éducatif français est encore occupé aujourd'hui à plus de 90% par le système Windows de la 
société Microsoft. 


WINDOWS 3.1 était un système coopératif utilisant le time-slicing. 
Depuis WINDOWS 95, les successeurs de Windows sont des systèmes préemptifs. 


Pour un système, le qualificatif coopératif s'oppose à préemptif. 


Environnement coopératif : c’est un environnement dans lequel les applications doivent 
régulièrement donner le contrôle au noyau du système (KERNEL.EXE dans Windows) afin que 
celui-ci puisse répartir le temps du processeur aux autres applications. 


Si une application windows 3.1 est appelée (exécutée) et qu’elle "garde la main" (c’est à dire ne 
retourne pas à Windows), toutes les autres applications (ou tâches) exécutées "en même temps" ne 
peuvent alors, ni être appelées, ni être exécutées et restent donc bloquées. 
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Noyau du système : 


Il fait partie du résident et s’exécute dans un mode non interruptible. Il gère entre autres activités 
l’ordonnancement des tâches, il assure la gestion de la mémoire centrale, il effectue le partage des 
ressources. 


Time-slicing : 


C’est une méthode de répartition du temps (utilisée par windows par exemple) entre différentes 
tâches. Le noyau découpe le temps d’utilisation en tranches (unités minimales de temps), lesquelles 
sont allouées aux tâches en cours d’exécution (cette allocation se fait en fonction de leur priorité, le 
noyau allouant ainsi plus ou moins de tranches selon le niveau de priorité). 


Environnement préemptif : C’est un environnement semblable à un environnement coopératif dans 
lequel le noyau du système peut interrompre à tout moment une tâche quelconque pour donner le 
contrôle à une autre tâche (ou application). 


Rappelons que si Windows (Version 3.x) n’était pas un vrai système d’exploitation multi-tâche, ses 
successeurs (95, 98, Me, 2000, Xp...) sont de vrais multi-tâche préemptifs et sont devenus de 
véritables systèmes de multiprogrammation complets en particulier la dernière version baptisée 
LongHorn contenant le FrameWork .Net. 
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1.7 Réseaux 


Plan du chapitre: É 


1. Les réseaux d'ordinateurs 


1.1 Les différentes topologies de réseaux 
1.2 Réseau local 


2. Liaisons entre réseaux 
2.1 Réseau à commutation de paquets 


2.2 Le réseau mondial Internet 
2.3 Intranet 
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1. Les réseaux d'ordinateurs 


L'objectif principal d’un réseau d’ordinateurs est de relier et de permettre l’exploitation à distance de 
systèmes informatiques à l’aide des télécommunications dans le cadre de réseaux à grande distance 
(les réseaux locaux emploient une technologie de câblage interne à l’entreprise). Il existe différentes 


manières d’interconnecter des systèmes informatiques à distance. On les nomme topologies de 
réseaux. 


LI Les différentes topologies de réseaux 


A) Le point à point simple 
e n liaisons pour n systèmes S; interconnectés, 


e 1 seul point de connexion. 


Architecture étoile 


B)Le point à point en boucle 
e n liaisons pour n systèmes S; interconnectés, 


e Chaque S; passe l’information au S; suivant. 


Architecture anneau 


©) Le point à point complet 
e n(n-1)/2 liaisons pour n systèmes S; interconnectés, 


e tous les S; sont reliés entre eux. 
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Architecture maillée 


D) Le point à point arborescent 
e n liaisons pour n systèmes S; interconnectés à un même noeud, 


e 1 liaison pour chaque noeud vers ses descendants, (topologie étoile à chaque noeud). 


Architecture hiérarchique 


E) Le multipoint 
e n liaisons pour n systèmes S; interconnectés à un même noeud, 


e les points de connexion sont reliés par une même voie. 
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Architecture en bus 


Il existe aussi des réseaux construits selon des combinaisons de ces topologies entre elles. 


1.2 Réseau local 


C’est un réseau dont les distances de liaison sont très faibles(entreprise, établissement scolaire, 
une salle,.….). 


Les réseaux locaux peuvent comporter ou non des serveurs (système informatique assurant la 
répartition et la gestion de ressources communes aux utilisateurs) et utiliser l’une des cinq 
architectures précédentes. 


Ils sont composés de liaisons hertziennes ou établies par câble. Lorsqu'il y a plusieurs serveurs, 
chaque serveur peut être un poste de travail comme les autres ou bien être un serveur dédié (ne 
faisant office que de serveur). Signalons que la partie réseau local des micro-ordinateurs dotés 
d’un OS comme windows ne nécessite aucun serveur dédié mais fonctionne aussi avec une 
version du système de type serveur. 


Les deux principaux standards qui se partagent l’essentiel du marché des réseaux locaux sont 
Ethernet (topologie en bus) et token-ring (topologie en anneau). Les protocoles (loi d'échange 
d’information entre les systèmes informatiques) sont très nombreux. Le plus utilisé 
quantitativement dans le monde est TCP/IP (Transfert Control Protocol/Internet Protocol) qui est 
un protocole synchrone orienté bit (les informations sont des suites de bits). 


2. Liaisons entre réseaux d'ordinateurs 


Il existe diverses techniques d’interconnexion de réseaux entre eux. Nous renvoyons le lecteur à des 
ouvrages spécialisés sur les réseaux. Nous allons brosser un tableau simple et général du réseau 
mondial le plus connu de nos jours au niveau du grand public, le réseau Internet. Nous verrons 
ensuite comment 1l est adapté par les spécialistes à des architectures locales sous la forme d’Intranet. 
En premier lieu donnons quelques explications techniques sur un mode classique de transmission de 
l'information utilisé par de nombreux réseaux (Internet, Transpac..….). 


2.1 Réseau à commutation de paquets 
Dans un tel type de réseau nous avons besoin de définir au moins trois concepts : 


e le message : l’information échangée entre deux systèmes informatiques. 


e les paquets : des petites suites de bits constituant une partie d’un message, (le message est 
découpé en plusieurs paquets). 


e le routage : c’est l’action (effectuée par le routeur) qui permet la transmission, l’aiguillage et la 
redirection des informations circulant sur le réseau à un instant donné. 
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Un tel réseau est architecturé selon une topologie plus ou moins fortement maillée, entre les divers 
concentrateurs. Les utilisateurs S; se connectent selon leur proximité géographique au concentrateur 
le plus proche. 


Dans le schéma suivant, représentant une maille du réseau, nous supposons que l'utilisateur 
S3 veuille envoyer un message M(image, fichier, son, etc...) à S10. Nous allons suivre le 
chemin parcouru par les paquets pi du message M pour aller de S3 à So. 


s. | E. 
SE] 5 Ÿ: 


S3 est directement connecté au concentrateur [A], Si est directement connecté au concentrateur [D]. 
Supposons aussi que le message M soit composé de 4 paquets : M =(p1 ,P2 ,P3; Pa). 


Le routage de départ s’effectue à partir du concentrateur [A] et de la charge et de l’encombrement 
actuels du réseau. Ce sont ces deux critères qui permettent au routeur de prendre la décision 
d’émission des paquets. 


Principe du routage : 


Les paquets dans un tel réseau sont envoyés dans n’importe quel ordre 


et indépendamment les uns des autres vers des destinations diverses ; 
chaque paquet voyage bien sûr, avec l’adresse du destinataire du 
message. 


a) Supposons que p1 aille directement vers [D], puis que l’encombrement oblige d’envoyer p2 à [B] 
puis p3, pa à [CT]. 


b) Puis [C] peut router directement p3, p4 vers [D] (qui a déjà reçu p1). 
c) Enfin [B] envoie p2à [C] et celui-ci le redirige vers [D] (qui avait déjà reçu p1,p3 et pa). 


d) Lorsque p2 arrive au concentrateur [D], le message M est complet, il peut être reconstitué M =(p1 
,P2 ,p3, pa)et expédié à son destinataire So. 
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Internet 


Le réseau le plus connu se dénomme Internet. Chaque pays peut avoir mis en place un réseau 
national, (par exemple en France, il existe un réseau national public TRANSPAC fonctionnant par 
commutations de paquets sous protocole X25), le réseau Internet quant à lui est international et 
fonctionne par commutations de paquets sous protocole TCP/IP. 


C’est actuellement le réseau mondial de transmission de données le plus utilisé avec plusieurs 
centaines de millions d’utilisateurs. 


e C’est un réseau à commutation de paquets. 
e Ilest basé sur le protocole TCP/IP. 


e Il permet à des milliers d’autres réseaux locaux ou non de se connecter entre eux à distance. 


Explication pratique de la transmission de données sur Internet 


Prenons un exemple pratique, Mr. X situé à Moscou désire envoyer le message suivant "Bonjour cher 
ami comment allez-vous ?" à Mr. Y situé à Ankara, via le réseau Internet. 


Mr.X 


Protocole, adresse IP 


La communication entre deux machines distantes implique une normalisation des échanges sous 
forme de règles. Un tel ensemble de règles est appelé un protocole de communication. Un protocole 
décompose la communication en sous-problèmes simples à traiter dénommé couche du protocole. 
Chaque couche a une fonction précise et fait abstraction du fonctionnement des couches supérieures 
et inférieures. 


Le protocole de communication TCP/IP utilisé par Internet, est composé de 4 couches: application, 
transport, réseau et interface 


Un individu est identifiable par son numéro de sécurité sociale (deux personnes différentes n'ont pas 
le même numéro de sécurité sociale), de même chaque ordinateur branché sur Internet se voit 
attribuer un numéro unique qui permet de l'identifier. 


On dénomme adresse IP un tel identifiant.Une adresse IP se présente sous la forme de 4 nombres 
(entre 0 et 255) que l'on sépare par des points pour des raisons de lisibilité , exemple : 163.85.210.8. 
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Donc l'ordinateur de Mr. X situé à Moscou est connecté à Internet possède une adresse IP (par 
exemple : 195.114.12.58), celui de Mr.Y possède aussi une adresse IP (par exemple : 
208.82.145.124) 


e 


ee LUN L LL 


SIN 


195.114.12.58 208.82.145.124 


Le message initial de MrX va être découpé par TCP/IP, fictivement pour les besoins de l'exemple en 
quatre paquets (en fait la taille réelle d'un paquet IP est d'environ 1500 octets) : 


Bonjour cher ami, comment allez-vous ? À 


La Donnée initiale de chacun des 4 paquets ("Bonjour", cher ami", "comment", "allez-vous ?") est 
modifiée par chaque couche du protocole TCP/IP par l'ajout d'une En-tête spécifique nécessaire à la 
réalisation de la fonction de cette couche. 


Plusieurs protocoles plus généraux sont fondés sur TCP/IP : SMTP,FTP, POP3, HTTP. Dans le cas 
d'HTTP, le paquet contient une partie identifiant supplémentaire : 


Ent | Entèe | Entée | | 
IP TCP ht meer 
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Le message initial de MrX est donc découpé avec les en-têtes adéquates : 


En-tête lidentifiants Bonjour cher ami, comment allez-vous ? l 


% 


N 


», 


En-tête l'identifiants | 
D, ER 


+ 


En-tête lidentifiants 
L 


En-tête identifiants | En-tête / identifiants | 


En-tête / identifiants | En-tête / identifiants | 


(chaque en-tête/identifiant de paquet contient l'adresse de l'ordinateur de l'expéditeur MrX soit : 


195.114.12.58 et celle du destinataire Mr.Y soit : 208.82.145.124 ) 


Le routage 


Supposons que nous avons la configuration de connexion figurée ci-après : 
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Le schéma précédent représente les points de routage fictifs du réseau Internet au voisinage de 
Moscou et Ankara. 


Le routage sur Internet est l'opération qui consiste à trouver le chemin le plus court entre deux 
points du réseau en fonction en particulier de l'encombrement et de l'état du réseau. 


Cette opération est effectuée par un routeur qui peut être soit un matériel spécifique raccordé à un 
ordinateur, soit un ordinateur équipé d'un logiciel de routage. 


Chaque routeur dispose d'une table l'informant sur l'état du réseau, sur le routeur suivant en fonction 
de la destination et sur le nombre de routeurs nécessaires pour aller vers la destination. 


Dans notre exemple, nous avons supposé que le routeur de Moscou soit branché avec les quatre 
routeurs d'Ankara , d'Helsinki , de Berlin et de Bucarest : 


"os Informations collectées au moment de l'envoi 
NA Hein ©, du 1° paquet à partir de Moscou : 


Ankara (état : en réparation) 
Helsinki (état : disponible) 
Berlin (état : disponible) 


Bucarest (état : saturé) 


La table de routage aura à peu près cette allure : 


Routeur Destination Nombre de routeurs | Routeur suivant Etat 
Moscou Ankara a Helsinki libre 
Moscou Ankara 2 Bucarest saturé 
Moscou Ankara 3 Berlin libre 
Moscou Ankara 1 Ankara indisponible 
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Il est évident que d'après la table précédente seules deux destinations immédiates sont libres : le 
routeur d'Helsinki ou le routeur de Berlin. 


Comme le nombre de routeurs restant à parcourir est moindre en direction de Berlin vers Ankara (3 
routeurs : Berlin-Bucarest-Ankara) comparé à celui de la direction Helsinki vers Ankara (5 routeurs : 
Helsinki-Oslo-Berlin-Bucarest-Ankara), c'est le trajet Berlin qui est choisi pour le premier paquet 
"Bonjour". 


Au bout de quelques instants, les 4 paquets obtenus à partir du message de Mr.X voyagent sur 
Internet indépendamment les uns des autres vers des destinations diverses (n'oublions pas que 
chaque paquet voyage avec l’adresse du destinataire du message qui est située à Ankara). 


5 “[F * x, , | 7e : + 2 : _# 


Carte : Le voyage des paquets 
Sur cette carte : 
Le paquet n°1 "Bonjour", voyage vers le routeur de Bucarest. 
Le paquet n°2 "cher ami”, voyage vers le routeur de Londres. 
Le paquet n°3 "comment", voyage vers le routeur d'Ankara. 


Le paquet n°4 ‘allez-vous ?", voyage vers le routeur d'Athènes. 
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A l'arrivée à Ankara, le routeur d'Ankara reçoit les paquets en ordre dispersés et en des temps 
différents et les stocke en attendant que le message soit complet : 


En-tête / identifiants | Bono | 


À 


En-tête / identifiants 


D“ 


En-tête / identifiants 


+ 


En-tête identifiants 


Le routeur d'Ankara vérifie que les paquets sont tous bien arrivés, il redemande éventuellement les 
paquets manquants, il envoi un accusé de réception pour prévenir chaque routeur expéditeur que les 
données sont bien arrivées. 


Au final il y a réassemblage des paquets pour reconstituer le message original avant de le distribuer 
au logiciel de lecture du message de Mr.Y : 


E Bonjour cher ami, comment allkez-vous ? 


= Li 


Les bases de l'informatique - programmation - {;4:. 05.09.2004 ) page 79 


La petite histoire d'Internet 


Le concept d'Internet n'est pas récent. Il prend naissance en effet à la fin des années soixante dans les 
rangs des services militaires américains qui ont peur de voir leurs systèmes d'information détruits 
par l'effet electro-magnétique induit par une explosion nucléaire. Il demande à leurs chercheurs de 
concevoir un moyen sûr de transporter des informations qui ne dépendrait pas de l'état général 
physique du réseau, voir même qui supportera la destruction physique partielle tout en continuant 
d'acheminer les informations. 


Officieusement dès les années cinquante au USA, dans le plus grand secret est mis au point un réseau 
de transmission de données militaires comme le réseau SAGE uniquement réservé aux militaires. Les 
chercheurs du MIT vont mettre au point en 1969 la commutation de paquets dont nous venons de 
parler, et concevrons l'architecture distribuée qui sera choisie pour le réseau. 


Officiellement, la première installation effective sera connu sous le nom d'ARPANET aura lieu en 
1970 en raccordant les 4 universités américaines de Santa Barbara, de l'Utah, de Stanford et de Los 
Angeles. Plusieurs universités américaines s'y raccorderont et continueront les recherches jusqu'en 
1974 date à laquelle V.Cerf et R.Kahn proposent les protocoles de base IP et TCP. En 1980 la 
direction de l'ARPA rendra public les spécifications des ces protocoles IP et TCP. Pendant vingt ans 
ce réseau a servit aux militaires et aux chercheurs. 


Il faut attendre 1990 pour voir s'ouvrir le premier service de fourniture d'accès au réseau par 
téléphone. Au même moment, ARPANET disparaît pour laisser la place à Internet. Un an plus tard, 
les principes du Web sont établis. 


Le world wide web : www 


C'est la partie d'Internet la plus connue par le grand public. A l'origine, le World Wide Web (WWW) 
a été développé en 1990 au CERN, le Centre Européen pour la Recherche Nucléaire, par R.Caillau et 
T.Berners-Lee. Il autorise l'utilisation de textes, de graphiques, d'animations, de photographies, de 
sons et de séquences vidéo, avec des liens entre eux fondés sur le modèle hypertextuel. 


Le Web est un système hypermédias du genre client/serveur. 


C'est sur ces spécifications qu'a été élaboré le langage de description de document du web HTML 
(Hyper Text Markup Language). 


Pour lire et exécuter ces hypermédias, il faut un logiciel que l'on dénomme un navigateur. Mosaic est 
l'un des premiers navigateurs Web, distribué gratuitement au public. Depuis 1992, les utilisateurs de 
micro-ordinateurs peuvent alors se connecter à Internet à partir de leur PC. Internet Explorer de 
Microsoft et Netscape sont les deux principaux navigateurs les plus utilisés dans le monde. 


Les points forts d’Internet : 
Il permet à un citoyen de se connecter n’importe où en disposant de : 
e Un micro-ordinateur du commerce, 


e Un système d’exploitation supportant les protocoles adéquats, tous les SE de micro-ordinateur 
depuis 1997 disposent d’un moyen simple de se connecter à Internet (Windows, Linux en sont 
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deux exemples), 


e Un modem (se branchant sur une ligne téléphonique ordinaire) à 56000bps ou plus (ADSL) ou 
bien le câble en attendant de nouveaux produits de transport des signaux. 


e Un abonnement chez un fournisseur d’accès à Internet (noeud de communication concentrateur), 


e Enfin un navigateur permettant de dialoguer avec les différents serveurs présents sur Internet. 


Le revers de médaille d’Internet : 


L’inorganisation totale de cette gigantesque et formidable banque de données qu’est un tel réseau 
mondial qui contient le meilleur et le pire, peut engendrer des dangers pour le citoyen et même pour 
une démocratie si l’on ne reste pas vigilant. 


Enfin, selon les pays, les coûts d’utilisation restent importants (abonnement chez le fournisseur et 
durée de communication téléphonique pour la connexion), la concurrence des fournisseurs d'accès 
gratuit permet une baisse du coût général de la connexion. La connexion illimitée et gratuite reste 
l'objectif à atteindre. 


Internet est devenu un problème de société 
Trois courants de pensée s'affrontent quant à l'impact d'Internet sur les société humaines : 


e Le courant du tout-Internet qui prône un nouveau monde virtuel où Internet intervient à tous 
les niveaux de la vie privée, publique, professionnelle, culturelle voir spirituelle. 


e Le courant des Internetophobes qui rejette ce nouveau monde virtuel vu comme une 
accentuation encore plus marquée entre les "riches" et les "pauvres" (la richesse ne s"évaluant 
plus uniquement en bien matériels, mais aussi en informations). 


e Le courant des ‘'ni-ni'', ceux qui considèrent que tout outil mérite que l'on s'en serve avec 
réflexion pour le plus grand nombre, mais qui pensent qu'un outil n'est pas une révolution sociale 
en lui-même, seul l'homme doit rester au centre des décisions qui le concernent. 


La tendance au début du XXI sècle est de renforcer l'aspect commercial (e-business) de ce type 
de produit sous la poussée des théories ultra-libérales, au détriment de l'intérêt général pour 
une utilisation plus citoyenne au service de tous. 


Intranet 


Les entreprises conscientes du danger de pillage, de sabotage et d’espionnage industriel ont repris les 
avantages de la conception d’Internet en l’adaptant à la notion de réseau local. 


C’est le nom d’Intranet qui s’est imposé. Ce genre de réseau local d’entreprise est fondé sur les 
mêmes techniques, les mêmes procédés qu’Internet, mais fonctionne localement avec un certain 
nombre d'acteurs bien identifiés : 


e Il peut donc être organisé selon la démarche interne de l’entreprise. 
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e Il n’est accessible qu’aux personnes autorisées si l’entreprise le souhaite. 
e _Ilest connectable à Internet par des passerelles contrôlées. 
e Il concerne toutes les activités logistiques, commerciales et de communication de l’entreprise. 


e Il permet de mettre en œuvre des activités de groupware (travaux répartis par tâches 
identifiées sur des systèmes informatiques). 


Il peut être organisé en Extranet, permettant la communication entre Intranets de différentes et bien 
sûr, un Intranet peut être connecté à Internet. 
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Exercices chapitrel 


Questions : 


On suppose que X, Y et Z sont des variables booléennes, donnez pour chaque circuit ci-dessous 
l'expression de sa fonction logique S1(X,Y) ou S1(X,Y,2), évaluez la table de vérité de S1, puis 
simplifiez par calcul S1. 


Ex-1 : Ex-2 : 
+ x 
Fr … 
5 51 
Ex-3 Ex-4 


. , B 
h > 


Ex-5 : F0 


| <= 


Ex-7 : Lorsque l'on additionne deux entiers positifs en binaire signé dans un ordinateur, le calcul s'effectue dans l'UAL en 
propageant la retenue sur tous les bits y compris le bit de signe. 
Soient deux mémoires à 7 bits Mx et My, contenant respectivement l'entier x et l'entier y représentés en binaire signé avec 
convention du zéro positif : 
1°) Quel est le nombre entier positif maximal que l'on peut stocker dans Mx ou My ? 
2°) Quel est le nombre entier négatif minimal que l'on peut stocker dans Mx ou My ? 
3°) Donnez le résultat de l'addition de Mx+My dans une mémoire Mz du même type que Mx et My, dans les 
deux cas suivants : 
3.1) Mx contient l'entier x = 12, My contient l'entier x = 25 
3.2) Mx contient l'entier x = 42, My contient l'entier x = 25 
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Ex-8 : Soit l'entier x = 325 : 


1°) Donnez sa représentation en codage binaire pur 

2°) Donnez sa représentation en codage Ascii étendu 

3°) Quel est en nombre de bits le codage le plus court ? 

4°) D'une manière générale pour un entier positif x à n chiffres en représentation décimale donnez un majorant 
du nombre de bits dans la représentation de x en binaire pur, vérifiez le calcul pour x = 325. 


Ex-9 : Soit une mémoire centrale et un registre adresse contenant l'adresse d'une case quelconque de la mémoire centrale : 


Q On suppose que le registre adresse soit une 


325 | mémoire à 12 bits. 


X Q On suppose que la taille du mot dans la mémoire 


centrale est de 16 bits. 


D Q On suppose que la case x contient en binaire en 
complément à deux le nombre 325. 


registre adresse Mémoire centrale 


1°) Combien de mots (de cases) au maximum peut contenir cette mémoire centrale ? 
2°) Quel est l'entier positif le plus grand représentable en complément à deux dans un mot de cette mémoire centrale ? 
3°) Indiquez si les nombres suivants peuvent être l'adresse d'un mot dans cette mémoire centrale ; 


3.1)le nombre 683 
3.2)le nombre 2AB 
3.3)le nombre 2AB0 
3.4)le nombre -5 


Réponses : 


Ex-1 
Ex-2 


Ex-3 : 
Ex-4 : 
Ex-5 : 
Ex-6 : 


Ex-7 : 


Ex-8 : 


Ex-9 : 


:SI=xy+y simplifiée > S1 = y 

: SI= (K+y).y simplifiée > S1 = y 
SI=x+y+ y simplifiée > S1= 1 
S1= (x + y) +(x+y)© y simplifiée > S1=1 
SL: (X+Y+7Y.Z).(y2) simplifiée > S1 = y.z 
S1= (x ® y). (y:x) simplifiée > S1 =0 


1°) le nombre maximum = 2°-1 (soit 63) 

2°) le nombre minimum = -2*(soit -64) 

3.1) Mx+My = 37 ( car: 0001100 + 0011001 = 0100101 ) 

3.2) Mx+My = -3 ( car: 0101010 + 0011001 = 1000011 , le bit de signe a été écrasé) 


1°) x =101000101 

29) x = 00110011 . 00110010 . 00110101 (car chaque symbole est codé sur 8 bits) 

3°) Le codage binaire pur du nombre x occupe 9 bits alors que son codage Ascii occupe 24 bits. 

4°) Soit k le nombre de bits (nombre de chiffres binaires) de l'entier x, en décimal x est composé de n chiffres 
décimaux & x < 10°, en binaire x se compose de k chiffres binaires & x < 2°, dès que 2° - 10" ouencorek-n 
log: 10, soit donc le nombre de bits est de l'ordre de la partie entière du nombre approché n log: 10, soit k - 3,32. 
n . Pour un nombre à 3 chiffres k - 9, donc 9 bits suffiront pour coder ce nombre en binaire pur. 


1°) cette mémoire centrale peut contenir au maximum 2° = 4096 mots. 
2°) le plus grand entier vaut : 2-1 (soit 32737). 
3°) 683 (oui), 2AB (oui ), 2AB (non plus de 12 bits ), -5 (non, une adresse est un nombre positif ou nul) 
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Chapitre 2 : Programmer avec un 


langage 


2.1.Les langages 


Historique des langages de programmation 
Langages procéduraux 

langages fonctionnels 

langages logiques 

langages objets 

langages de spécification 

langages hybrides 


2.2.Relations binaires 


Rappel et conventions 
matrice d'une relation binaire 
fermeture transitive d'une relation binaire 


2.3.Théorie des langages 


notations et définitions 
grammaire formelle 
classification de Chomsky 
applications - exemples 


2.4.Les bases du langage Delphi-Pascal 


structure d'un programme 
les opérateurs 
déclarations des types 
instructions 
fonctions/procédures 
paramètres 

visibilité 

passage par adresse 
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2.1 : Les langages 


Plan du chapitre: É 


1.Historique des langages 


1.1 Les langages procéduraux ou impératifs 
1.2 Les langages fonctionnels 

1.3 Les langages logiques 

1.4 Les langages orientés objets (L.O.0) 
1.5 Les langages de spécification 

1.6 Les langages hybrides 


aa 


a 
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1. Historique des langages de programmation 


La communication entre l’homme et la machine s’effectue à l’aide de plusieurs moyens 
physiques externes. Les ordres que l’on donne à l’ordinateur pour agir sont fondés sur la 
notion d'instruction comme nous l’avons déjà vu. Ces instructions constituent un langage de 
programmation. Depuis leur création, les langages de programmation ont évolué et se sont 
diversifiés. 


Schématiquement il est possible de les classer en cinq catégories : 


1° Les langages procéduraux ou impératifs. 
2° Les langages fonctionnels. 


3° Les langages logiques. 
4° Les langages objets. 
5° Les langages de spécification. 


L’un des principaux objectifs d’un langage de programmation est de permettre la construction 
de logiciels ayant un minimum de qualités comme la fiabilité, la convivialité, l'efficacité. 

Il faut connaître l’histoire des langages et se rendre compte qu’à ce jour, malgré les nouveaux 
langages du marché et leur efficacité, c'est Cobol qui est le plus utilisé (numériquement 200 
milliards de lignes Cobol seraient intégrées à des applications existantes [programmez, n°63 
Avril 2004] dont 5 milliards de lignes nouvelles chaque année) dans le monde. 


L'investissement intellectuel et matériel prédomine sur la nouveauté. Cette remarque est la 
clef de la compréhension de l’évolution actuelle et future des langages. 


Les langages ont fait leurs premiers pas directement sur des instructions machines écrites en 
binaire, donc rudimentaires sur le plan sémantique. Les améliorations sur cette catégorie de 
langages se sont limitées à construire des langages symboliques (langage avec mnémonique) 
et des macro-assembleurs. J.Backus d'IBM avec son équipe a mis au point dès 1956-1958 le 
premier langage évolué de l’histoire, uniquement conçu pour le calcul scientifique (à l’époque 
l’ordinateur n’était qu’une calculatrice géante). 


Les années 70 ont vu s’éloigner un rêve d’informaticien : parler et communiquer en langage 
naturel avec l’ordinateur. 

Actuellement les langages évolués se diversifient et augmentent en qualité d’abstraction et de 
convivialité. 


Langages humains Langages machine 


Langage Re langage langage 
aturel imtermédiare ass symbolique/ Liinatre 
€ 


fig : classification sur un axe d’abstraction : de la machine à l’homme 


Les langages majoritairement les plus utilisés actuellement sont ceux qui font partie de la 
catégorie des langages procéduraux ou Hybrides. Les ordinateurs étant des machines de 
Turing (améliorées par von Neumann), la notion de mémoire machine est représentée par la 
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donnée abstraite qu’est une variable, dans un langage procédural. D’autre part, les machines 
de Türing sont séquentielles et les langages impératifs traitent les instructions 
séquentiellement. Ceci indique que les langages procéduraux sont parfaitement bien adaptés à 
l’architecture de l’ordinateur ; ils sont donc plus " facilement " adaptables à la machine. 


1.1 Les langages procéduraux ou impératifs 
Tous les langages procéduraux ont un ancêtre commun : le langage FORTRAN. 


Voici un arbre généalogique (non exhaustif) de certains langages connus. Pour chaque 
langage nous avons indiqué quelques éléments de référence. 


Par exemple : FORTRAN (58) [scientifique - IBM] signifie que le premier compilateur 
commercial a été diffusé environ en 1958, que le domaine d’activité pour lequel le langage a 


été élaboré est le domaine du calcul scientifique, enfin qu’il s’agit d’un acte commercial 
puisque c’est la compagnie IBM qui l’a fait réaliser. 


FORTRAN (58] 
COBOL (60) 


[gestion-DOD] 


[scientique-IBM] 


frecherche-comité] 


ALGOL (60) 


| RAD.Objet-Borland] 


\ I 


Java (96) LA 
Frise Mot Sun] DES C# (001) 


[RAD.Objet.Net Micro Soft ] 
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Dans cette courte liste, seuls Algol, Basic et Pascal sont des langages qui ont été conçus par 
des équipes dans des buts de recherche ou d’enseignement. Les autres langages sont élaborés 
par des firmes et des compagnies dans des buts de commercialisation, de rationalisation des 
coûts de gestion (DOD) etc. Les langages de programmation, comme le reste des outils de la 
science informatique, sont fortement soumis aux règles du marché, ce qui provoque pour cette 
discipline le pire et le meilleur. 


Pour donner les propriétés des autres catégories de langages, nous nous servirons de la 
catégorie des langages procéduraux comme référence. 


Dans un langage procédural, l’affectation (transfert d’une valeur dans une mémoire) est la 
base des actions sur les données. La catégorie la plus utilisée après les langages procéduraux 
est celle des langages fonctionnels. 


1.2 Les langages fonctionnels 


Dans un langage fonctionnel, les actions reposent sur des fonctions mathématiques ou non qui 
renvoient des résultats. 


Un langage fonctionnel est essentiellement composé d’un dictionnaire de fonctions 
prédéfinies et d’un mécanisme de construction de nouvelles fonctions par l’utilisateur. 


Citons quelques représentants des langages fonctionnels : 

LISP :(LISt Processing - 1962) en fait c’est essentiellement un langage de traitement de listes. 
SCHEME : c’est un dialecte pédagogique épuré(1975) de LISP. 

ML : langage fonctionnel moderne(1990) classé dans la catégorie des langages fonctionnels 
fortement typés (l’INRIA diffuse gratuitement sur micro-ordinateur une version CAML-Light 
pour l’enseignement). CAML est utilisé actuellement pour l'enseignement de l'informatique 
dans les classes préparatoires aux grandes écoles scientifiques françaises. 


1.3 Les langages logiques 
Citons la catégorie des langages de programmation en logique et son principal représentant : 


PROLOG (PROgrammation en LOGique - 1982). 
Dérivé de l’intelligence artificielle, il oblige le programmeur à penser ses actions en termes de 
buts et à en faire une description relationnelle (vision déclarative). 


Le langage Prolog est fondé sur un moteur d’inférence d’ordre 1 (logique des prédicats), et 
permet l’exploration exhaustive automatique de différents chemins amenant à des solutions. Il 
possède une qualité intéressante : il est possible d’interpréter un programme prolog d’une 
manière déclarative ou d’une manière procédurale. 


Le Groupe d’Intelligence Artificielle de Marseille-Luminy fournit des prologs sur micro- 
ordinateurs à travers la société PrologIA. 
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1.4 Les langages orientés objets (L.0.0) 


Les langages à objets : ils sont fondés sur une seule catégorie d’éléments : " les objets " qui 
communiquent entre eux grâce à l’envoi de messages (grâce à des opérateurs appelés 
méthodes). Par rapport à un langage impératif typé, un objet est l’équivalent (mutatis 
mutandis) d’une variable (simple ou structurée) et la classe dont il est l’instance correspond 
au type de la variable. 


SIMULA-67 (1967) est le premier langage objet, SMALLTALK-80(1980) est un 
environnement de développement purement objet, Eiffel(1990) est un langage objet tourné 
vers le génie logiciel et la réutilisabilité. 


LS Les langages de spécification 


Les langages de spécification sont encore du domaine de la recherche. Leurs objectifs sont de 
décrire le plus rigoureusement possible (les modèles principaux sont mathématiques) un 
logiciel afin de pouvoir le valider et le vérifier. 


Nous ne mentionnerons ici que le langage LPG de D.Bert(Grenoble) pour les spécifications 
de types abstraits algébriques, Z de J.R. Abrial, le langage dont la notation est fondée sur la 
théorie des ensembles (puis d’une amélioration de Z dénotée B par Abrial) et VDM langage 
formel de spécification par pré-condition et post-condition. Ces langages ne peuvent être 
utilisés d’une manière pratique que sous forme de notation, bien qu’ils soient implantés sur 
des systèmes informatiques. Ils ne sont pas encore à la disposition du grand public comme les 
langages des catégories précédentes, bien que certains soient utilisés dans des sites industriels. 
Par la suite, nous utiliserons un langage de spécification pédagogique fondé sur les types 
abstraits algébriques. 


1.6 Les langages hybrides 


Une mention spéciale 1ci1 pour des concepts hybrides qui peuvent être de bons compromis 
entre des catégories différentes. Les concepteurs de tels langages essaient d’importer dans leur 
langage les qualités inhérentes à au moins deux catégories. La catégorie la plus utilisée est 
celle des langages impératifs. 


Par exemple, la plupart des langages impératifs purs cités plus haut bénéficient d’une " 
extension " objet, comme C++ qui est une extension orientée objet du langage C conçu à 
l’origine pour écrire le système d’exploitation Unix. 


Plus récemment est apparu un langage comme Delphi de Borland qui allie l’approche 
pédagogique et typée du Pascal, l’approche objet du C++ et les approches visuelles et 
événementielles de Visual Basic de Microsoft (la sortie fin 2001 de la version entièrement 
orientée objet de VB, dénommée VB .Net, procure à Visual Basic un statut de langage 
hybride). 


Enfin, mentionnons l'important langage Java de Sun Microsystems qui permet le 


développement multi-plateforme en particulier pour l’intranet et qui est grandement utilisé 
malgré son léger manque de rapidité dû à sa machine virtuelle. 
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Un mot enfin sur le tout récent langage C# support de développement de la plateforme 
Microsoft .Net, qui a été inventé par le père du langage Delphi (C# s'approprie des avantages 
de Java et de Delphi, il suit de très près la syntaxe de Java et celle de C++)et qui est le fer de 
lance de la plateforme .Net de microsoft. 


Object Pascal, C++, Ada95, Java, C# sont des langages procéduraux qui ont été fortement 
étendus ou remaniés pour se conformer aux standards objets. 


Remarque de vocabulaire: 
L'ordinateur ne " comprenant " que le langage binaire, 1l lui faut donc un 
"traducteur" qui lui traduise en binaire exécutable, les instructions que 
l'humain lui fournit en langage évolué. 


Cette traduction est assurée par un programme appelé compilateur. 


Un compilateur du langage L est donc un programme chargé de traduire un programme 
"source" écrit en L par un humain, en un programme " cible " écrit en binaire 
exécutable par l’ordinateur. 
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2.2 : Relations binaires 


Plan du chapitre: Ë 


1. Rappel et convention 


1. Relation binaire sur un ensemble 

2. Produit de relations binaires 

3. Représentation matricielle d’une relation binaire 
4. Relation binaire transposée 

5. Matrice du produit de deux relations 

6. Fermeture transitive d’une relation binaire 

7. Fermeture réflexo-transitive d'une relation binaire 
8. Algorithmes de calcul de matrices 

9. Exemple de calcul sur une généalogie 
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1. Rappels et conventions 


Un peu de mathématiques utiles, mais pas trop ! 


En informatique, la notion de relation est importante. Nous indiquons ici sans rentrer dans les 
détails que le lecteur trouvera dans des livres spécialisés, en particulier sur la recherche 
opérationnelle, comment on implante une relation binaire à travers sa matrice de 
représentation. Ceci peut donc être considéré comme un bon exemple d’application des 
matrices booléennes en informatique. 


Convention 
Lorsque nous écrivons " x <— a " ceci se lit: "x vaut la valeur de a". 


1. Relation binaire sur un ensemble 


Nous appelons relation binaire sur un ensemble E non vide, tout sous-ensemble R du produit 
cartésien E x E. 


Il est donc possible de définir l’union et l’intersection de deux relations binaires. 


2. Produit de relations binaires 


Soient p et « deux relations binaires sur un ensemble non vide E. On définit le produit des 
deux relations rx = p.o ainsi : 


Va , aeE 
à p.60 b ssi ic SNS 2) a Cie CRUE 
Vo Der P i r JE pue) ( ) 
Nous énonçons brièvement quelques propriétés de ce produit : 
e Le produit est associatif. 
e Le produit n’est pas commutatif. 


Notations 

DD Dir pDinrions) 

D , est la relation telle que 

Va , aeËEon a toujours a p° a 
Dai = p° ’ p" 
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3. Représentation matricielle d’une relation binaire 


Cas où E est un ensemble fini, c’est d’ailleurs le seul cas qui nous intéresse en informatique 
où nous ne pouvons pas traiter du non fini. 


Soit E l’ensemble : E = { a;, a, …, a } 
e Soit p une relation binaire sur E. 
e Soit M une matrice carrée d’ordre n sur {0,1}. Nous notons ((m:;)) l’élément 
générique de la matrice M. 


Nous dirons que M est la matrice de représentation de la relation binaire Pb et nous la 
noterons Mp, ssi par définition : 


Exemple : 
E=f ASS}; p={1(08,0,3),0.,9;(8;71 1 
a=7;a=8 ; 43 =3 


Voici la matrice Mp de la relation p définie ci-haut : 


T 8 3 
LL (911) 
d 1 0 0 |: 
0 1 0 ])3 


4. Relation binaire transposée 


e Soit E l’ensemble : E = {a1,a2,...,an} 
e Soit p une relation binaire sur E. 


Nous notons p° la relation binaire telle que : 


Va , aeE 
VID MIDICIE 


Par construction la matrice de p* est la transposée de la matrice de p. 


à Dpobissl bp 
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5. Matrice du produit de deux relations 


En munissant l’ensemble {0,1} d’une structure d’algèbre de boole avec les opérateurs A , 
V ,— ,il nous est possible d’effectuer des calculs sur les matrices de représentation de 
relations binaires. 


e Soient p et o deux relations binaires sur un ensemble non vide E. Soit le produit des 
deux relations , x = p.6, Mp , Mo et Mr les matrices de p, © et x. 

e Soit ((a;;)) l’élément générique de Mp. 

e Soit ((bi;)) l'élément générique de Mo. 


La matrice Mr =Mp.c est très exactement par définition le produit booléen en croix des 
matrices Mp et Mo. 


6. Fermeture transitive d’une relation binaire 


e Soit E l’ensemble : E = { a, a, … a} 
e Soit p une relation binaire sur E. 


Nous posons par définition sa fermeture transitive qui est la relation binaire p° 


U 


p = n=1p" ,en fait dans le cas où E est fini l’union se limite à un nombre fini k de p” 
distincts donc : 


En informatique, les ensembles sont toujours finis donc nous considérons que la fermeture 
transitive de p s'écrit : 


D PAU M 0 Din 
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7. Fermeture réflexo-transitive d’une relationinaire 


e Soit E l’ensemble : E = {ai,a2,...,an} 
e Soit p une relation binaire sur E, sa fermeture transitive p+ . 


On note par définition p* sa fermeture réflexo-transitive : 


* + 0 
Remarque 


Soit un couple (a,b) de E x E tel que a p° ER: 
Di he OR pue 


Nous dirons dans ce cas qu’il existe " un chemin de longueur n, allant de a vers b". En effet 
d’après la définition du produit : 


a pb e 161,.,cn) Vk,k elln],cx eE 


tels que : (apc)et (c1p&)...et (pb) 


8. Algorithmes de calcul de matrices 


Calcul de la matrice produit à partir de la formule : 


Mp x Mo = Mr 


Notons ((mi;)) l'élément générique de la matrice produit, voici le corps d'un algorithme de 
calcul de la matrice produit : 


pour i <— 1 jusquà n faire 
pour )] + 1 jusquà n faire 
SE O 
pour k + 1 jusquà n faire 
S = 8 V (&u,r À De) 
Fpour ; 
Mi, — S 
Fpour 
Fpour 
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Algorithme de Warshall pour le calcul de la fermeture transitive : 


Avec les mêmes notations de l'algorithme précédent,soit ((ai;)) l'élément générique de la 
matrice Mp, l’algorithme de Warshall calcule Mp* : 


pour k + 1 jusquà n faire 
pour i <— 1 jusquà n faire 
pour j + 1 jusquà n faire 
Es, Eu, (Eu,x À En) 
Fpour ; 
Fpour 
Fpour 


9. Exemple de calcul sur une généalogie 
E = l’ensemble des individus d’une même famille depuis plusieurs générations. 
Soient r, s et t les relations binaires : 


e xry ssi xest le père de y 
e xsy ssi xest la mère de y 
e xty ssi xest un enfant de y 


On peut définir les liens familiaux à l’aide des opérations sur les relations binaires : 


r” = est grand père paternel de 

s” = est grand mère maternelle de 

r.s = est grand père maternel de 

s.r = est grand mère paternelle de (non commutativité évidente !) 
rUs=est parent de 

r” = est arrière arrière..arrière grand père paternel de 


(r LU s)' = est un ancêtre de (on voit ici la signification pratique de la fermeture transitive 


qui relie deux individus par un chemin d’ascendants dans son arbre généalogique) 
u.u' = est frère ou sœur de etc …. 
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2.3 : Théorie des langages 


Plan du chapitre: É 


1. Notations et définitions générales 


2. Grammaire formelle ou algébrique 


2.1 Monoïde 

2.2 Grammaire formelle 

2.3 Opérations sur les mots 

2.4 Langage engendré par une grammaire 
2.5 Grammaire d’états finis 

2.6 Arbre de dérivation d’un mot 

2.7 Diagrammes syntaxiques 


3. Classification de Chomsky des grammaires 


3.1 Les grammaires syntaxiques 

3.2 Les grammaires sensibles au contexte 

3.3 Les grammaires indépendantes du contexte 
3.4 Les grammaires d’états finis ou de Kleene 


4, Applications et exemples 


4.1 Expressions arithmétiques : une grammaire ambiguë 
4.2 Expressions arithmétiques : une grammaire non ambiguë 
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1. Notations et définitions générales 


Un langage est fait pour communiquer. Les humains doivent communiquer avec les 
ordinateurs : ils ont donc élaboré les bases d’une théorie des langages. Dans ce chapitre nous 
donnons les fondements formalisés d’une telle théorie autour de la notion de grammaire 
formelle. 

Remarque et convention : 


e Certains éléments d’un langage s’appellent les symboles. 


e Soit S un ensemble de symboles(S z ©). Ce sont les éléments indécomposables 
dans ce langage (c’est-à-dire non exprimables en autres symboles du langage). 


Définition expression sur S 
On appelle expression sur S, toute suite finie de symboles de S. 
e:[1,n]—S , eest une expression sur S, n est un entier naturel, n2 1. 


(e est alors un métasymbole décrivant l'expression S). 


Notation: 


On désigne e par : e = S15283...Sn , n > 1 où :kKk 1<k< n,&esS 
et par définition e (k)=s. (kell,nl]). 


On note S+={e/ Ve, e expression sur S } 
S+ est l'ensemble de toutes les expressions formées sur S. 


Définissons deux opérations sur S+ : 


L'égalité d'expressions 


Soient el et e2 deux expressions sur S, on définit leur égalité ainsi : 


KE. K = 1 

el : [1, k]—S 

e2 :[1,k]—S 
Vi1<i<k el(i) =e2(i) 


el = e2 ssi 
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la concaténation d'expressions 
soient eeS+ et f € S+, on construit le "produit" des deux expressions e.f : 


e:[1,n] —$ avec : 
f:[1,pl—S e.f(i) = e(i) ssi i efl,n] 
ef: [1, n+p] —S e.f(i) = f(i) ssi i € [n+1, n+p] 


Notation : (la concaténation de 2 expressions sur S ) 


Soient e et f deux expressions : 
e = S1S2S3...Sn e.f est notée : S15283...Sn titots.….p 
f = tits... tp 


2. Grammaire formelle ou algébrique 


Comme dans les langages naturels, les informaticiens ont, grâce aux travaux de N.Chomsky, 
formalisé la notion de grammaire d’un langage informatique. 
2.1 Monoïde 
A) Soit À un ensemble fini appelé alphabet ainsi défini : 
A={a,.,a4a}(Az©) 
Notations : 


A'=A 
A7 = { xx / (KE A) et (WE A) } 


A° = { x1X2X3 / (KE A) et (X2€ A) et (x3 EA) } 


DURS x vb on men) 


convention 
A°= { & } (appelé séquence vide) 
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* 
B) On note A et A° les ensembles suivants : 


À" =(J4" œ 
n=0 AT = (J4" 
* * ins 
At=A'-{g}=A"- A 


*# . 2 
On définit sur À une loi de composition interne appelée concaténation, notée ° : 
(X,Y)—xey=xy (noms des symboles accolés) 
La concaténation possède les propriétés suivantes : 


a La loie est associative : 
œey)ez=xe(yez) 


a l'élément & est un élément neutre pour la loi « : 
VXxEA*,xeE=E ex=x 
Définition : 


(A*,e ) est un monoïde libre 


2.2 Grammaire formelle 


Notations : 


Un alphabet est aussi appelé vocabulaire ; une chaîne ou un mot est un élément 


d’un monoïde ; la longueur d’un mot x (ou chaîne) est le nombre d’éléments du 
vocabulaire qui le compose et elle est notée habituellement |x|. 


Exemple : Vocabulaire V ={a,b} 
x = aaabbaab , x e V et[x| =8 


Remarque : 


On note |x|, le nombre de symboles " a " du vocabulaire V composant le mot x. 
x = aaabbaab = |x|,= 5 et |x|,= 3 


Les bases de l'informatique - programmation - /;4: 05.09.2004 ) age 101 
pd 


Définition : C-Grammaire 
On appelle C-Grammaire (ou, grammaire algébrique de type 2) tout quadruplet : 


G=( VX, Vs, 5, R) où: 

VX est un vocabulaire non terminal ou auxiliaire ( Vx #2) 

Vr est un vocabulaire terminal ( Vrz ©) 

S € V\, un élément particulier appelé axiome de G 

VN (ai) Vr = 2) 

RE (VNU Vr)f x (VK © Vr})*,R est un sous-ensemble fini 


Notations : 


R est appelé l’ensemble des règles de la grammaire G ; 
Une règle rieR est de la forme ( A , a )/[ À eVxet à e (VX LU Vr}* |], 


Elle est notée : ri: À — © 
*# N û 
Lorsque à € Vr , la règle ri : À — à , est dite règle terminale. 


Nous ne considérerons par la suite que les grammaires dites de type 2 encore 
appelées grammaires indépendante du contexte (Context Free), 
dans lesquelles les règles ont la forme suivante : 


R € VNx(VNUVr )* 


2.3 Opérations sur les mots 


Soit G une C-Grammaire, G = (VX, Vr, S, R). On définit sur ( VX UVr })* une relation binaire 
appelée " dérivation directe " notée — définie comme suit : 


Définition : dérivation directe 
Soient a € ( Vx LU Vr)*et be ( VK LU Vr})* 


On note a — b et l’on dit que b dérive directement de a, ou que a 
se dérive directement en b, siet seulement si 


4°) a et b s'écrivent : 
a=a A;f 
b=ayf 


_1O œ € (VN U Vr)* 
Ms SOON 
3°) 1 r; € R'telle que : ri: Ai y 
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Notation : 


On emploie aussi les termes de " règle de réécriture 


ou de " règle de dérivation ". 


Nous obtenons un processus de construction des mots de la grammaire G par application de la 
dérivation directe. Si l’on réitère plusieurs fois ce processus de dérivation directe, on obtient à 
partir d’un mot, une suite de mots de G. En fait 1l s’agit de construire la fermeture transitive 
de la relation binaire — . Cette nouvelle relation est appelée la dérivation dans G (la 
dérivation directe en devenant un cas particulier) 


Définition : dérivation 
On dit que x se dérive en y, s’il existe une suite finie de dérivations directes 


permettant de passer de x à y : 
(x, Xo, X1,...,Xn et y) étant des mots de ( Vx LU Vr)*on a le chemin suivant : 


XX XV 
# 
onécrit:X— Y, que l'on lit : x se dérive en y. 


+ 
> est la fermeture transitive de la relation binaire = 


2.4 Langage engendré par une grammaire 

Nous nous intéressons maintenant à toutes les dérivations possibles construites dans G, par 
application des règles de G, en privilégiant un point de départ unique pour chacune des 
dérivations. 

Nous avons vu que chaque règle de G commençait en partie gauche par un élément de VK. 
Nous construisons alors toutes les productions ayant comme point de départ S l’axiome de G. 


L’ensemble L de tous les mots construits s’appelle le " langage engendré par la grammaire 
*# 
G"'iLe Vr: 


Définition : langage engendré 
Soit la C-grammaire G, G=(VK, Vr,S,R) 


L'ensemble L(G)={ueVr/S—'u)} 
s'appelle le langage engendré par G. 
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Exemple grammaire Go : 
Go : Vx = { S } ,Vr= {a,b} 
Axiome : S 


Règles 
1: S — aSb 
2: S — ab 


2.5 Grammaire d’états finis 


Le langage engendré par Go est : 


L(Go)={a"b'/n >1} 


Ce sont des C-Grammaires dans lesquelles les parties droites de règles ont une forme 
particulièrement simple (on classifie d’ailleurs les grammaires algébriques en général en 4 
types en fonction de la forme de leurs règles. 


Les C-grammaires sont dites de type-2 et les K-grammaires ou grammaires de Kleene sont 


dites de type-3). 


Pour une grammaire de type-3 ou K-grammaire les règles sont de 2 formes : 


Aa (ae Vr) 
ou bien 


A—aB (BE VxetB pouvant être égal à A) 


Exemple : 
G: ; VX = { S,A} 
Vr= {a,b} 
Axiome : S 
Règles 
1: Sas 
2: S—aA 
3: À —bA 
4: À —b 


2.6 Arbre de dérivation d’un mot 


Le langage engendré par G: est : 


L(G) = {a°b°/(n2 1) et (p21) } 


On appelle arbre À toute structure sur un ensemble E qui est : 


e soit une structure vide notée À, 
soit une élément noeud r associé à un nombre fini d’arbres disjoints 


vides ou non : Aj, A,, … 
e notation: A =<r, Ay, A), 
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Représentation graphique d’un arbre : 


4—————racine 
4—————— branche 


4—— noeud 


+— feuille 


Un arbre est dit " étiqueté "si l’on nomme (attribution d’un symbole de nom) sa racine et ses 
noeuds. 


Définition : arbre de dérivation 
Soit la C-grammaire G, G = ( Vx, Vr, S, R). 


Un arbre étiqueté est un " arbre de dérivation " dans G ssi : 
e  L’alphabet des étiquettes est inclus dans Vx L Vr. 
e Les noeuds sont étiquetés par des éléments de Vx. 
e Les feuilles sont étiquetées par des éléments de Vr. 
e  L’étiquette de tout noeud est un élément de Vx. 


Pour tout noeud < À, fi, f>, …, f,> on associe une règle R 
de la forme : À — fif..f, (règle de dérivation dans G). 


Exemples : 
| Règles de Go appliquées : 
L F4 . : S —>' aSb — ” aabb 
mot ab” dans Go 


nn Règles de G: appliquées : 
an 
a a bb | 


S -s! àS ->? aaA > * aabA + * aabb 


mot a°b° dans G; 


Définition : grammaire ambiguë 
Une grammaire est dite ambiguë si une chaîne a au moins deux arbres de dérivation 
différents dans G. 
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Exemple de grammaire ambiguë : 


G2 : Vy = {S} Le langage engendré par G2 L(G) se 
Vr = {+ 1 dénomme langage des parenthèses bien 
Axiome : S formées. 
Règles 
A PR L(G) = { 0,(0(0)0), 00, ... } 
2 : S—E 


Soit le mot (( )) de G, voici 2 arbres de dérivation de (( )) dans G: 


Arbre 1 : Arbre 2 : 


Arbre 1 correspond dans G:; à la suite des dérivations suivantes : 
(afin d’y voir plus clair entre les S choisis nous soulignons les symboles S dérivés) 


on part de l’axiome S et l’on applique la règle 1: 


ASS 
S—!'(SS)S 
( ) 


on applique la règle 1 au premier S de gauche : 


FANS 
S (CSS). 


Ce qui donne : 


RD 


S—'(SS)S—'((S:) S)S 
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puis on dérive tous les symboles S à partir de la règle 2 : 


Règle 2 ——. 
S — € Ni L 
appliquée 5 fois à : S S)s 
((SS)SS)S. |lebl à 


CC 


2 
S — > ((£8 JEE ) € 
Le symbole & est un élément neutre (x£ =Ex = x) , nous avons donc comme production 


finale de cette suite de dérivation le mot: ((££)Ee£)Ee=(()). 


En conclusion, le mot (( )) dérive de l'axiome S : 


S =" (()) 


est un arbre de dérivation de mot dans la grammaire G . 


Arbre 2 correspond dans G: à la suite des dérivations suivante : 


S—' (SS) —'(S(SS)SS— (Es (sE)Ee)e=(()). 


Le mot (( )) dérive de l'axiome $ une seconde fois avec un autre arbre de dérivation distinct 
du précédent, donc la grammaire G2 est effectivement ambiguë. 


2.7 Diagrammes syntaxiques 
Il est possible de représenter graphiquement les règles de dérivation d’une grammaire 


formelle par des diagrammes dénotés " diagrammes syntaxiques ". Cette représentation 
graphique a pour effet de condenser l’écriture des règles et d’autoriser une meilleure lisibilité. 
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REGLES DIAGRAMMES 


B — A2 ou encore : 
B — A1|...|An 


3. Classification de Chomsky des grammaires 


Traditionnellement les grammaires algébriques sont classables en quatre catégories qui se 
différentient par la forme de leurs règles. 


Elles sont notées par leur type (type 0, type 1, type 2, type 3). Il existe une relation d’inclusion 
provenant de leurs définitions : 


type 3€ type 2 © type 1 © type 0 
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3.1 Les grammaires syntaxiques - type 0 


Les règles ont la forme générale suivante : à —$ 


pour une règle à — f, les symboles (@, B) doivent être de la 
forme : 


œEe(V\xt Vr) 


Be(Vx VU Vr) 


3.2 Les grammaires sensibles au contexte - type 1 


Les règles ont la forme suivante : «Af — ay 


pour une règle aAfB — «yB, les symboles(a, B, y , A) doivent être de 
la forme : 

Â € VK 

a e(VaU Vr) 

B € ( VyU Vr) 

y € (VX Vr)° 


3.3 Les grammaires indépendantes du contexte - type 2 


Les règles ont la forme suivante : A — @ 


Pour une règle À — «, les symboles(æ,A) doivent être de la forme : 


D ON NT) 


A eV 


3.4 Les grammaires d'états finis ou de Kleene - type 3 


Les règles n’ont que deux formes possibles : 
A—a ou bien À — aB 
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Pour ces règles, les symboles (a, A, B) doivent être de la forme : 


A eVK 


B Ee VX 
a e Vr 


4, Applications et exemples 


4.1 Expressions arithmétiques : une grammaire ambiguë 


Soit la grammaire Gexp = (Vw,Vr,Axiome,Règles) 


Vr={0,..,9,+,-,/,*,),(} 


Vn = {< Expr >, < Nbr >, < Cte > , < Oper > } 
Axiome : < Expr > 


Règles : 

1:<Expr> — <Nbr> |(<Expr >) | < Expr >< Oper >< Expr > 
2:<Nbr> — <Cte >| <Cte >< Nbr > 

3: Cte 0 — 0111-19 

4:<Oper> — +|-|*]/ 


Les mots de L(G:;) sont des expressions de la forme (x+y-z)*x etc. où x, y, Z sont des 
entiers. 


Exemple : 327 - 8 est un mot de L(G:xp) 
Ce mot n’a qu’un seul arbre de dérivation dans GP, dessinons son arbre de dérivation : 


< Expr > 
< Expr > < oper > < Expr > 
N 
< Nbr > < Nbr > 
< Cte > < Nbr > 
7. % < Cte > 
< Cte > < Nbr > 
| 
< Cte > 
3 2 7 | : 
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Nous pouvons faire ressortir les liens abstraits qui relient les trois éléments terminaux 327, - 
et 8: 


< Expr > 


LT PRES 


| 


L’arbre obtenu en grisé à partir de l’arbre de dérivation s’appelle l’arbre abstrait du mot " 


327-8 ". : 
HU 
327 8 


Cet arbre abstrait permet de manipuler la structure générale du mot facilement tout en 
résumant la structure générale de l’arbre de dérivation. 


Soient trois autres mots de L(G:xp) 2+5+4, 2-5+4 et 2+5%*4, ils ont chacun deux arbres de 
dérivation. Nous donnons ci-après deux arbres abstraits de chaque mot. 


Arbre-1 : 2+5+4 Arbre-2 : A 
+ 
vd Èr 
PA FN 
2 5 5 4 
Arbre-3 : 2-5+4 Arbre-4 : 2-5+4 
+ _ 

4 ® 
ON NN 
2 5 + 2 5 4 

Arbre-5 : 2+5*4 Arbre-6 : . 
& 
"4 *, 
FUN ARS 
2 5 4 2 S 4 


Nous remarquons donc que G est une grammaire ambiguë puisqu'il existe un mot 
possédant au moins deux arbres de dérivation. 
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Pour l’instant les mots 2+5+4, 2-5+4 et 2+5*4 ne sont que des concaténations de symboles 
sans aucun sens particulier 


Si nous voulions aller plus loin en donnant un sens (de la sémantique) à ces mots de telle 
façon qu’ils représentent des calculs sur les entiers avec les propriétés classiques des 
opérations sur les entiers, nous pourrions nous trouver un " bon choix " parmi les arbres 
abstraits précédents. 


Nous appellerons ces choix " interpréter " l’expression. 


Examen de la situation pour le mot 2+5+4 : 
e _Arbre-1 s’interprète : (2+5)+4 
e _Arbre-2 s’interprète : 2+(5+4) 


L'opérateur " +" est associatif donc pour notre interprétation les deux arbres 1 et 2 peuvent 
convenir. 


Examen de la situation pour le mot 2-5+4 : 
e _Arbre-3 s’interprète : (2-5)+4 
e _Arbre-4 s’interprète : 2-(5+4) 


Les opérateurs + et - sont de même priorité et nous obtenons deux expressions différentes 
selon le choix de l’arbre. 

Traditionnellement lorsque deux opérateurs ont la même priorité, l’évaluation se fait à partir 
de la gauche de l’expression. Donc l’arbre 3 conviendrait. 

Nous pourrions penser lever l’ambiguïté en choisissant systématiquement l’arbre abstrait 
d’évaluation à gauche correspondant à un parenthésage implicite à gauche(comme arbre-1 et 
arbre-3) : 


JS 


Nous allons voir ci-dessous que ce n’est pas possible. 


Examen de la situation pour le mot 2+5*4 : 
e _Arbre-5 s’interprète :(2+5)*4 
e _Arbre-6 s’interprète : 2+(5*4) 


Les opérateurs + et * n’ont pas la même priorité. Nous obtenons deux expressions différentes 
selon le choix de l’arbre. Mais ici c’est le choix de l’arbre 6 qui s’impose à cause de la priorité 
du * sur le +. 


Nous avons fait ressortir le fait qu’il était impossible de privilégier systématiquement pour " 


l’interprétation " des expressions une catégorie d’arbre plutôt qu’une autre, il faut donc 
changer de grammaire et éviter l’ambiguïté. 
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4.2 Expressions arithmétiques : une grammaire non ambiguë 


Nous donnons ci-dessous une grammaire non ambiguë basée sur la précédente et tenant 
compte de la précédence (priorité d’opérateur). Nous séparons les opérateurs en deux 
catégories ; les opérateurs de priorité zéro (Oper_ 0) et ceux de priorité un (Oper_ 1). 
Vr= { 0, …. 9, +,-, /, #, ), ( } 

Vy = {< Expr >, < Nbr >, <Cte > , < Oper_0 > , < Oper_1 >, < facteur >, < terme > } 
Axiome : < Expr > 


Règles : 


facteur 


Nbr Oper_0 Oper_1 
LL 


Cte 
CR 


Le 


En pratique ce ne sera pas une telle de grammaire qui sera retenue pour le calcul des 
expressions arithmétiques car elle contient une règle récursive gauche, ce qui la rend 
difficilement analysable par des procédés simples. 
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2.4 : Une grammaire du Pascal 


Plan du chapitre: È 


1. Rappel de la structure d’un programme Pascal 


2. Les opérateurs en pascal 
2.1 Les opérateurs multiplicatifs 
2.2 Les opérateurs additifs 
2.3 Les opérateurs relationnels 
2.4 Déclarations des constantes 


3. Déclarations des types en Pascal 
3.1 Déclarations des types simples 
3.2 Déclarations des types structurés 


4. Instructions en Pascal 
4.1 Instruction d'affectation 
4.2 Instruction de condition 
4.3 Instruction d'itération while...do 
4.4 Instruction d'itération repeat...until 
4.5 Instruction d'itération for...to 
4.6 Instruction case...of 


5. Fonctions et procédures en Pascal 


6. Paramètres en Pascal 
6.1 Lecture seulement : passage par valeur 


6.2 Accès direct : passage par adresse ou par référence 


7. Fonction ou procédure ? 


8. Visibilité des variables 


5 
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1. Rappel de la structure d’un programme Pascal 


Il ne s'agit pas d'apprendre le langage pascal, mais plutôt d'un résumé visant à se remémorer les principes de 
base du langage, et ainsi de se familiariser avec les principes utiles et pratiques du langage relativement à la 
programmation. La société Borland-Inprise met sur son site web, gratuitement par téléchargement, des 
compilateurs pascal anciens mais efficaces pour le débutant (http://www.borland.fr). 


Nous utilisons une description d’un Pascal-Delphi réduit à l’aide des diagrammes 
syntaxiques. 


Un programme Pascal est composé de la façon suivante : 


- d'une partie corps (ou Bloc) : 


- et se termine par un point : 
Exemples d'en-tête : 


1°) program exemple_O1 ( input, output ) ; 
2°) program exemple_02 ; 


Le langage Pascal étant structuré, un bloc est composé de sections ou paragraphes bien 
séparées : 


Bloc : 
déclarations 
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En pratique un bloc Pascal contient deux parties : des déclarations et des instructions 


Déclaration d'étiquettes 


DECLARATIONS 


Déclaration de variables 


Déclaration de fonctions et procédures 


INSTRUCTIONS 


Exemple de programme avec Bloc : 


w= 182; 
v87 = false; 
azett = "k; 
fut = 2536, 


bornes = 361587, 


axl,b,c, v2e :integer; 
u,v:bomes; 
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2. Les opérateurs en pascal 


Ce sont les règles de composition qui précisent la priorité retenue entre les différents 
opérateurs du langage. Ces priorités sont réparties en 4 niveaux : 


plus haut niveau de priorité 4 : opérateur unaire not 

niveau de priorité 3 : opérateurs multiplicatifs (*, /, div, mod, and ) 
niveau de priorité 2 : opérateurs additifs (+,-,0r) 

plus bas niveau de priorité 1 : opérateurs relationnels (< , >, etc...) 


2.1 Liste de tous les opérateurs selon le type de données en Pascal. 


opérateurs sur les entiers 


opérateurs sur les réels 


opérateurs sur les booléens 
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set of x set of—set of 


op | sigufication exemple 
intersection A*B 
umon A+B 
différence A-B 


T:set of—,boolean 


op | signification | exemple 
in | appartient à  xmE 


set of x set of—boolean 


signification | exemple 
égalité A=B 
différent de A=<>B 
mclusion A-<=B 


opérateurs sur les ensembles : set of 


TXT ——  boolean 

op sienification exemple 

< inférieur strict D'<k;S<2 
> supérieur strict ‘p'>'k';98 > 32 
= égahté x=3;a=b 

<= inférieur large b'=='k';-8-=15 
>= supérieur large me >= 'k' ; 98 >= 32 
<> différent 'g'<>'m" ; 0 <>x 


opérateurs de comparaison sur un type T 


2.4 Déclarations des constantes 


Sert à associer un identificateur à une valeur de constante, sa valeur est non modifiable dans le 
reste du programme. Il existe 3 identificateurs de constantes prédéfinis : True , False , et Nil. 


Exemple : 
program exemple_03 ; 
const 
x = 12; <---- x est une constante de type integer. 
a2 = true; <------------ a2 est une constante de type boolean. 
Y ='h'; <---- Y est une constante de type char. 
12 = 25.36; <------- r2 est une constante de type real. 
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3. Déclarations des types en pascal 


Les types sont utilisés pour créer de nouveaux domaines de définition de variables. Une 
déclaration d'un nouveau type de données sert à associer un identificateur à un type de 
données construit par l'utilisateur. 


Cette construction est élaborée à l'aide de constructeurs de type et détermine l'ensemble des 
valeurs possibles des variables du nouveau type. 


On classe les types en 3 catégories : 


< déclaration de type > 


3.1 Déclarations des types simples 
Cette déclaration est composée des : < Type simple > 


e type scalaire 
e type intervalle 
e _identificateur d'un type déjà déclaré 


< Les types scalaires > ( ils sont de 2 sortes ) : 


Les types prédéfinis : Les types énumérés : 
e  integer 
e real identif0 = ( identifl ,identif2,.….,identifk ) 
e char 
e  boolean 
e string 
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3.2 Déclarations des types énumérés 
Type identifO = ( identif1,identif2,.…..,identifk ) ; 
Il s'agit ici d'une définition en extension des éléments du type. Les identifn sont des constantes 


symboliques de base du type et doivent être tous différents dans la même énumération, et ne 
peuvent se retrouver ni dans une autre énumération, ni redéfinis ailleurs. 


Ce type est doté d'une fonction spécifique : ord qui dénote le numéro d'ordre d'un 


élément dans l'ensemble des valeurs du type (attention l'ordre est construit de gauche 
à droite et la numérotation débute à la valeur 0). 


Exemple : créons un type jour de la semaine 


Type 
jour = ( lundi, mardi, mercredi, jeudi, vendredi, samedi, dimanche ) ; 


Le type énuméré jour voit ses constantes de base automatiquement numérotées de 0 à 6 
comme l'indique le tableau ci-après: 


DR CT PE TS ER CS Sn 


Ainsi le rang est accédé par la fonction ord : 
ord(jeudi) = 3 
ord( lundi) = 0 


Remarque : 
Les types scalaires sauf le type real bénéficient de 2 fonctions succ et pred 


succ : T — T/succ (ai) = ai; (successeur dans T , lorsqu'il existe) 
pred : T — T /pred (ai) = a; (prédécesseur dans T, lorsqu'il existe ) 


3.3 Déclarations des types intervalles 


Censeme JT) emstne | 


Il peut être défini comme un intervalle fermé borné d'un autre type scalaire, sauf real. Les 
constantes représentent les bornes de l'intervalles (la constante de gauche représente la borne 
inférieure, la constante de droite représente la borne supérieure) 
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Exemples : 


Type 
jour = (lundi , mardi , mercredi , jeudi , vendredi , samedi , dimanche ) ; 


mois = 1..12 ; // intervalle sur les entiers compris entre I et 12 
week_end = vendredi..dimanche ; // intervalle sur les jour : vendredi , samedi, dimanche 


lettre_min = ‘a"..'z' ; // intervalle sur les caractères de type lettres minuscules 
lettre_maj ='A'"..'Z"; // intervalle sur les caractères de type lettres majuscules 


Il est bien entendu possible de déclarer ensuite des variables sur ces types : 
Var 
X : MOIS ; 
y : week_end 
z : lettre maj 


3.5 Déclarations des types structurés 


Il est donc possible en Pascal de construire et d'utiliser des variables de type simple comme 
integer, real, boolean, string, char, énumérés et intervalles. Mais il est aussi possible de 
travailler avec des familles de variables de même type ayant une structuration spécifique ou 
bien avec des structures contenant des variables ayant des types différents. Ces familles sont 
appelées des types structurés. 


Elles sont au nombre de 4 en pascal : 


D 


Une définition de type structuré, précise par l'intermédiaire du constructeur de type, la 
méthode de structuration et le type des données le composant. 


3.6 Déclarations de type tableau 


type composants 
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Le type tableau est défini par le constructeur de type arrayl[ ] of. 
C'est une structure homogène, formée d'un nombre fixe de composants qui sont tous du même 


type de base. Tous les composants d'un tableau sont désignés par des indices, qui sont des 
expressions appartenant au type indice du tableau. 


Un tableau est en fait une structure de donnée à accès aléatoire , c'est à dire 


que tous ses composants peuvent être sélectionnés et atteints de manière 
égale. Ils sont rangés dans l'ordre des indices. 


Un tableau à n dimensions (un vecteur est représenté par un tableau à une dimension, une 
matrice par un tableau à deux dimensions...) est défini par n types d'indices séparés par des 
virgules. 


Un type indice est un type simple sauf real et integer. 


Exemple : 
Type 
jour = ( lundi, mardi, mercredi, jeudi, vendredi, samedi, dimanche ) ; 
mois = 1.12 ; 
week_end = vendredi..dimanche ; 
lettre min ="'a..'z'; 
lettre_maj ='A'..'Z'; 
tableau_O1 = array[jour] of mois; 
tableau_02 = array[jour] of array[1..30] of mois; 
tableau_03 = array[jour,1..30] of mois; 
tableau_04 = array[lettr_min,0..5,jour,boolean] of char; 
var 
T1 : tableau 01; 
T2 : tableau _02; 
T3 : tableau _03; 
T4 : tableau_ 04; 


ATTENTION : 


Notons ici que malgré la similitude de construction des deux types tableau_02 et 
tableau_03 (ce sont des types de matrices où l'indice ligne varie dans le type jour, et 
l'indice colonne varie dans le type 1..30), ce ne sont pas des types identiques, car ils sont 
déclarés séparément. 


Donc dans l'exemple précédent, T2 et T3 ne sont pas des tableaux du même type. 
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Accès aux variables d'un type tableau 


Il faut, afin de pouvoir accéder à un composant d'un tableau, utiliser des indices 
obligatoirement de même type et en même nombre qu'indiqués dans la déclaration. 


Exemple : (en reprenant les déclarations précédentes) 
var 
T1 : tableau_O1; 
T2 : tableau_02; 
T3 : tableau_03; 
T4 : tableau_04; 
m : MOIS; 
j: Jour; 
k : 1..30; 
L.,b: boolean; 
n : Integer; 
c : lettre_min; 


Les écritures suivantes sont licites : 

jeudi 20e Else bre n—?2 

T1[mardi]:= 8; T1[j]:= 10; 

T2{[mardi,5]:= 8; T2{mardi] [5]:= 8; T2[j,k-3]:= 8; T2[j] [k-3]:= 8; 
T3{[mardi,5]:= 8; T3{[mardi] [5]:= 8; T3[j,k]:= 8; T3{[j] [K]:= 8; 
T4['t,3,samedi,.true|:= ‘h'; T4[t'][3][samedi][true]|:= ‘h'; 
TAfc,n+2,j,L or b]:= ‘+; etc 


3.7 Déclarations de type ensemble 


set ED type composant 


Un type ensemble est défini d'un manière extensive par le constructeur set of, le domaine des 
valeurs de ses éléments par son type de base. 


le type ensemble est un type simple sauf real et integer. 
C'est un ensemble fini et l'on peut construire tous ses sous-ensembles : 


Exemple : 
Type 

couleur = (noir,blanc); 

ens_ couleur = set of couleur; 
var 

X,Y,Z,t : ens_couleur; 
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begin 
x:=[];<--- ensemble vide (0 élément) 
y := [noir]; <--- ensemble (1 élément) 
z := [blanc]; <--- ensemble (1 élément) 
t := [noir,blanc]; <--- ensemble (2 éléments : maximum possible de l'exemple) 


On peut dire en fait que le type ens_ couleur est l'ensemble P(couleur) (ensemble des parties) 
et que toute variable du type ens_couleur est un sous-ensemble de P(couleur). 


3.7 Déclarations de type enregistrement 


ju De 


Le type enregistrement est une collection de composants appelés champs de l'enregistrement. 
Ils peuvent être d'un type quelconque sauf le type fichier. C'est une structure hétérogène. 


Tous les identificateurs de champs d'une même structure enregistrement doivent être 


différents à l'intérieur de l'enregistrement. Ils permettent d'accéder directement aux 
éléments de l'enregistrement. 


Enregistrement/partie fixe : 


0 ° =, 
Type 
enregis = record 


jour : (lundi,mardi, dimanche); 

X,y : Integer; 

mois : 1.12; 

T_paie : array[boolean,1..30] of real; 
end; 


Exemple: 
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Enregistrement/accès aux champs : 
identificateur (.) identificateur 
de record de champs 


L'accès aux champs à l'intérieur d'un enregistrement s'effectue à l'aide de 
l'identificateur de l'enregistrement (identif de record), puis de celui du champs 


(identif de champs) auquel on désire accéder, dans cet ordre, comme en désignant 
un chemin accédant aux éléments en écrivant de gauche à droite. 


Exemple : 
Type 
Tenregis = record 
jour : (lundi,mardi,dimanche); 
X,y : Integer; 
mois : 1.12; 
T_paie : array[boolean,1..31] of real; 
end; 
var 
A : Tenregis; 
begin 
A.jour:=;mardi; 
A.mois:=8; 
A.y:=125; 
A.x:=0; 
A.T_paie[ false, A.mois] := -2.37 


4, Instructions en pascal 


Ce sont les traductions des instructions algorithmiques de notre langage de description 
formelle d'algorithme que nous avons dénommé LDFA. 


LDFA Pascal 
Q (instruction vide) pas de traduction 
debut it : i2: i3: …. : ik fi o 
X-=a 
x<— a 
: (ordre d'exécution) ; 
if P then Ei else E2 
Si P alors E1 sinon E2 Fsi ( attention défaut, pas de fermeture |!) 
; while P do E 
Tanique P faire E Ftant (attention, pas de fermeture) 
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un 


répeter E jusquà P repeat E until P 


lire (x1,x2,x3.……… ,XN ) 


writeln(x1,x2,x3...….,xn ) 


ecrire (x1,x2,x3......,xn ) Put(fichier) 


for x:=a to b do E (croissant) 


pour x <- a jusquà b faire E Fpour for x:=a downto b do E (décroissant) 
( attention, pas de fermeture) 


if P then Break 


SortirSi P 


4.1 Instruction d'affectation 


L'affectation est applicable à tous les genres de variables du pascal sauf au type file of. 


—[rariabie—(©)—[erpression— 


Sémantique: 
e Evaluation de la partie droite (l'expression) 
e Transfert de la valeur calculée dans la partie gauche (la variable) 


Exemple : 
program Affectation ; 
type 
Temperature = -20 .. 40 ; 
LettreMin ='a'.'z'; 
Jour = ( lundi , mardi , mercredi , jeudi ) ; 


var 
a : integer ; b: char ; 
C : string ; 
Temp : Temperature ; Lmin : LettreMin ; 
Day : Jour ; 
begin Après affectations : 
Das Temp vaut 18 
A = nee 2 à nn 80 
b:="T"; b vaut 'F' 
c := ‘bon'+'jour ; c vaut 'bonjour' 
Lmin := 'f ; Lmin vaut 'F 
Day := mercredi ; Day vaut mercredi 
end. 
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4.2 Instruction de condition 


(ie )-[esression (then ) [instruction | 


(else }-| instruction | 


Dans l'instruction if, l'expression est un prédicat ( expression contenant des variables, prenant 
la valeur vrai ou faux), les blocs <instruction> représentent soit une instruction simple, soit 
une instruction composée (begin …. end). 


Sémantique: 


cas du if...then 


e Si l'expression est vraie, le bloc d'instruction situé après le then est exécuté et le 
if... then s'arrête 


e Si l'expression est fausse le if...then s'arrête. 


cas du if...then...else 


e Si l'expression est vraie, le bloc d'instruction situé après le then est exécuté et le 
if….then...else s'arrête. 


e Si l'expression est fausse, le bloc d'instruction situé après le else est exécuté et le 
if….then...else s'arrête. 


Exemple : 

program Condition ; 

var 
X, Y ,Z : integer ; 

begin Exécution pas à pas : 
x — 10e x vaut 10 
V=x de y vaut 40 
if y>100 then z := y y>100 es false 
else z := 0; donc z vaut 0 
ifz=0then z=100 est true 

= (0) donc y vaut 0 

0 x vaut Ü 

end. | (à la fin : x=0, y=0, z=0) 
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4.3 Instruction d'itération while...do 


_ {ous} (©) 


Dans l'instruction while...do, l'expression est un prédicat ( expression contenant des 
variables, prenant la valeur vrai ou faux), le blocs <instruction> représente soit une 
instruction simple, soit une instruction composée (begin …. end). 


Sémantique: 


C'est une instruction de boucle. 
e Tant que l'expression reste vraie, le bloc d'instruction est réexécuté. 
e Dès que l'expression est fausse le while...do s'arrête. 


C'est une boucle non finie (c-à-dire que l'on ne peut pas connaître dans les cas de figure si une 
boucle quelconque de ce type s'arrêtera après un nombre fini d'exécution). 


Exemple : 
program WhileDo ; 
var 
X, Y : Integer ; 


begin Exécution pas à pas : 

x = Î : x vaut | 

y= 0: y vaut 0 

while x<4 do x<4 est true 

begin donc x vaut x+ soit 
X := X+1 ; et y vaut y+X soit 2 
Y=VHX x<d4 est true 

end; donc x vaut x+1 soit 3 

writeln (x=', x, 'y=', y) et y vaut Y+x soit 5 


x<d est true 
donc x vaut x+1 soit 4 
et y vaut y+x soit 9 


x<d est false donc arrêt 
(à la fin : x=4, y=9) 


end. 


Le programme écrit : 
x=4 y=9 


4.4 Instruction d'itération repeat...until 


—{repeat }--[instmetion |-(untit){ expression |— 
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Dans l'instruction repeat...until, l'expression est un prédicat ( expression contenant des 
variables, prenant la valeur vrai ou faux), le blocs <instruction> représente soit une suite 
d'instructions simples. 


Sémantique: 


C'est une instruction de boucle. 
e Tant que l'expression reste fausse, le bloc d'instruction est réexécuté. 
e Dès que l'expression est vraie le repeat...until s'arrête. 


C'est une boucle non finie (c-à-dire que l'on ne peut pas connaître dans les cas de figure si une 
boucle quelconque de ce type s'arrêtera après un nombre fini d'exécution). 


La différence avec le while .. do réside dans le fait que le repeat … until exécute toujours au 
moins une fois le bloc d'instructions avant d'évaluer l'expression booléenne alors que le while 
.… do évalue immédiatement son expression booléenne avant d'exécuter le bloc d'instructions. 


Exemple : 
program RepeatUntil ; 
var 
X, Y : Integer ; 


begin Exécution pas à pas : 
xkæ= il: x vaut | 
y= 0: y vaut Ü 
repeat on entre dans le repeat 
X := x+1 : donc x vaut x+1 soit 2 
Y:= y +x et y vaut y+X Soit 2 
until x>=4; x>=4 est false | 
writeln (x=', x , 'y=', y) donc x vaut x+1 soit 3 
end. et y vaut Y+x soit 5 


x>=4 est false 
donc x vaut x+1 soit 4 
et y vaut y+x soit 9 


x>=4 est true donc arrêt 
(à la fin : x=4, y=9) 


Le programme écrit : 
x=4 y=9 


Ce programme fournit le même résultat que celui de la boucle while...do, car il y a une 
correspondance sémantique entre ces deux boucles : 


repeat <instruction> until <expr> <instruction> ; 
while not<expr> do <instruction> 
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4.5 Instruction d'itération for...do 


C'est une instruction de boucle, il y a deux genres d'instructions for (for...to et for...downto) : 


Ce 9 mme) — 


cesser (do) {instruction | 


Version for <identificateur> := <Exprl>to <Expr2> do <Instruction> : 


identificateur est une variable qui se dénomme indice de boucle. 

e  <Exprl> et <Expr2> sont obligatoirement des expressions du même type que la 
variable d'indice de boucle identificateur. 

e  < Instruction > est un bloc d'instruction simple ou composée (begin …. end). 


Version for <identificateur> := <Expr1> downto <Expr2> do <Instruction> : 
e même signification des constituants que pour la version précédente, seul le sens de 
parcours différe (par valeurs croissantes pour un for...to, par valeurs décroissantes 
pour un for...downto). 


Sémantique: 


L'indice de boucle prend toutes les valeurs (par ordre croissant ou décroissant selon le genre 
de for) comprises entre <Expr1> et <Expr2> bornes inclues. 


Tant que la valeur de l'indice de boucle ne dépasse pas 

e par valeur supérieure dans le cas du for...to, 

e ou par valeur inférieure dans le cas du for...downto 
la valeur de <Expr2>, le bloc d'instruction est réexécuté. 


C'est une boucle finie (c-à-dire que l'on connaît à l'avance le nombre de tours de boucle). 


Exemple : 
program ForDo ; Exécution de chaque tour de boucle : 
var x, y : integer ; y vaut 0 
begin x vaut 1 => y vaut 0+1=1 
V0 x vaut 2 => y vaut 1+2=3 
for x := 1 to 3 do x vaut 3 => y vaut 3+3=6 
Y := y +X x vaut 4 => arrêt 
end. (à la fin : x=4, y=6) 
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4.6 Instruction case...of 


C'est une instruction de choix 


— (esse) [era 


cssiant } 4) (one 


G) 


<expression> doit être de l'un des types : integer, char, boolean, énuméré, intervalle . 
<constante> doit obligatoirement être du même type que <expression> 
<Instruction> est un bloc d'instruction simple ou composée (begin …. end). 


Sémantique: 
C'est une instruction structurée équivalente à une série de if...then.….else imbriqués. Cette 


instruction lorsque cela est possible, doit être préférée à un emboîtement de if...then.….else 
dont la lisibilité n'est en fait pas optimale. 


if... then….else imbriqués case … of équivalent 
case x of 
if x = 3 then El else 3 -El: 
if x = 4 then E2 else 4 6: E2- 
if x = 5 then E2 else à s * E3 , 
if x = 6 then E2 else Que 
if x = -5 then E3 else Ef else Ef 
end 
Exemple : 
program CaseOf ; 
var x, y : integer ; y vaut | 
begin 
y :=1 ; Exécution du case dans la boucle : 
Lo Dodo x vaut O => x+1 vaut 1 (dans 0.3) => y vaut 1*2=2 
ae lof x vaut 1 => x+1 vaut 2 (dans 0.3) => y vaut 2*2=4 
0.3 : y :=y*2 ; x vaut 2 => x+1 vaut 3 (dans 0.3) => y vaut 4*2=8 
4:y:= y+100 x vaut 3 => x+1 vaut 4 => y vaut 8+100=108 
else y:=0 ; x vaut 4 => x+1 vaut 5 (else) => y vaut 0 
Sd x vaut 5 => arrêt 
end. ( à la fin : x=4, y=0 ) 
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5. Fonctions et procédures en pascal 


Le langage Pascal a été conçu à l'origine comme un langage pédagogique d'implantation de la 
programmation de type algorithmique; grâce à son extension objet Delphi il est utilisé comme 
outil de développement professionnel en entreprise. 


La programmation algorithmique est une programmation hiérarchisée descendante. 
— 
sé à 


Cette décomposition descendante hiérarchique est construite à l'aide de blocs de programme 
notés aussi des sous-programmes. 


Un bloc comporte donc des données locales, du code (instructions ou corps du bloc), des 
données d'entrée et/ou des données de sortie (permettant les échanges d'informations entre les 
différents blocs de la hiérarchie) : 

entrée entrée sortie 


L'exemple ci-après représente trois blocs B1, B2 et B3 échangeant des informations (en fait 
chacun calcule la somme des deux entiers qu'il reçoit en entrée et renvoie leur somme : 
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Soient R1, R2 et R3 frois 


blocs iden tiques 
12 15 

: 5 

; = l 
i 4 F7 


Le bloc BI reçoit en entrée 12 et 15 et renvoie la somme 12+15 = 27 vers le bloc B2, la valeur 
27 devient une donnée d'entrée pour le bloc B2 qui reçoit comme autre entrée la valeur 10. Le 
bloc B2 renvoie vers le bloc B3 le résultat 27+10 = 37 etc... 


Nous remarquons que chaque bloc est indépendant des autres blocs. La seule liaison qui 
intervienne ici se situe dans le passage des données d'un bloc vers un autre bloc. Le code et 
les données locales d'un bloc fixé sont inaccessibles aux autres blocs. 
En pascal les blocs sont implémentés soit par des fonctions : 

entrée entrée sortie 


1 
function B ( x , y : integer ) : integer ; 


= 
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En pascal les blocs sont implémentés aussi par des procédures : 


entrée entrée sortie 


| 
procedure B ( x ,y : integer ; var t : integer) ; 


—> 


Voici la syntaxe de déclaration des procédures en Pascal : 


procedure) {émane [lemme | — (ou) 


Voici la syntaxe de déclaration des fonctions en Pascal : 


identificateur de type 


e  <identificateur> est le nom de la procédure ou de la fonction (choisi par vous) 

e _<liste de paramètres> est soit vide, soit elles contient entre parenthèses et séparés 
par des point-virgules la liste des paramètres formels. 

e  <bloc> est une instruction composée (begin …. end). 

e  <identificateur de type>, dans le cas d'une fonction représente le type du résultat 
renvoyé par la fonction. 


Exemples de déclarations avec et sans paramètres formels : 


procedure Somme (x,y :integer; var z :integer) ; | function Somme (x,y :integer): integer ; 
begin begin 

Z:=X+Y result := x +y 
end ; end ; 
procedure Somme ; function Somme : integer ; 

var X, y : integer ; var X, y : integer ; 
begin begin 

le 2 = Me 7 

writeln( x+y) result := x +y 

end ; end ; 
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6. Paramètres en pascal 


On s’intéresse dans ce paragraphe aux rapports qu’il y a entre un programme appelant et un 
sous-programme appelé uniquement en Pascal. 


Soit par exemple une procédure B ayant 3 paramètres formels et renvoyant dans le troisième 
paramètre la somme des deux premiers : 


entrée entrée sortie 


ns | 
procedure B ( x ,y : integer ; var t : integer); 


Les paramètres formels d'une procédure jouent le rôle de variables muettes et servent à décrire 
le fonctionnement d'une procédure. Ils ont la même utilisation qu'une variable dans un 
polynôme mathématique. Les deux écritures P(x) = 3x° - 4x + 5 et P(t) = 3t° - 4t+ 5 
représentent mathématiquement le même polynôme, il en est de même pour une procédure. 


on peut changer tous les paramètres formels d'une procédure sans en changer son 
fonctionnement 


Les deux déclarations ci-dessous sont identiques : 
procedure B (x, y :integer; var t :integer) ; 
begin 

t:=X +y 
end ; 


procedure B (a , b integer; var c :integer) ; 
begin 

c:=a+b 
end ; 


L'intérêt pratique d'une procédure et en général d'un sous-programme est essentiellement de 
pouvoir exécuter toujours la même action mais avec des valeurs différentes. 


Par exemple une procédure P qui utilise un autre procédure B qui fait la somme, de deux 


entiers. La procédure B fonctionne comme une sorte de boîte noire qui reçoit deux valeurs en 
entrée et qui retourne leur somme comme dans le pseudo-code ci-dessous : 
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Lignes fictives de code de la procédure P utilisant la boîte noire (procédure B) 


faire la somme de 5 et 3 


faire la somme de -2 et 105 | 


faire la somme 
La boîte "faire la somme" est utilisée une première fois pour sommer 5 et 8, puis plus loin elle 
est utilisée une deuxième fois pour sommer -2 et 105. 


Le mécanisme qui permet d'utiliser la procédure B dans le code de la procédure P se 
dénomme l'appel de procédure. P se dénomme la procédure appelante. 


Reprenons l'exemple du polynôme écritures P(x) = 3x° - 4x +5, nous savons qu'en donnant 
une valeur effective à la variable x (par exemple x = 2) on obtient un résultat noté P(2) qui 
vaut: P(x) = 3.2 -4.2 +5=0. 


L'appel de procédure est un procédé très semblable au calcul du polynôme sur une valeur. La 
procédure a besoin qu'on lui fournisse des variables contenant effectivement des valeurs. De 
telles variables se dénomment les paramètres effectifs de la procédure. 


Précisons un peu plus l'utilisation d'une procédure $S avec des variables. Supposons que S 
serve à calculer la somme de deux valeurs 5 et 8 contenues respectivement dans deux 
variables locales a et b d'une autre procédure nommée P dont le seul paramètre x renvoie le 


résultat 13 du calcul obtenu par appel de la procédure B dans le code de la procédure P : 
13 


procedure P (var x :integer }; 
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L'appel S(a,b,x) s'effectue sur des paramètres effectifs qui sont nécessairement des variables 
existantes, soit déclarées dans un paragraphe var dans la zone des données locales, soit 
déclarées en tant que paramètres de la procédure appelante. 


L'appel se fait avec un nombre de paramètres effectifs égal à celui des paramètres formels en 
respectant l'ordre et la cohérence des types. On peut imaginer que lors d'un appel à la 
procédure S par le code de la procédure $, le code de la procédure S vient s'imbriquer 
Jictivement dans le code de P à l'endroit de l'appel avec comme variables les paramètres 
effectifs : 


{ ___ 


procedure P (var x :integer }; 


Comment à lieu cet appel, cette inclusion fictive du code ? 


On dénomme l'action qui consiste à appeler sur des paramètres effectifs, le passage des 
paramètres effectifs ou encore la transmission des paramètres effectifs. 


Il faut savoir qu’un paramètre effectif transmis au sous-programme appelé est un moyen 
d'utiliser ou d’accéder à une information appartenant au bloc appelant (le bloc appelé 
peut être le même que le bloc appelant, il s’agit alors de récursivité). 


Pascal ne dispose que de 2 modes de passage sur les 5 modes généraux : 
e Le passage par valeur, 
e le passage par référence ou adresse. 
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6.1 Lecture seulement : passage par valeur 

Dans un passage par valeur, le paramètre formel est considéré comme une variable locale 
dans le corps du sous-programme. Sa valeur est initialisée au début de chaque exécution du 
sous-programme avec la valeur du paramètre effectif correspondant. 

Il y a recopie de la valeur du paramètre effectif dans une zone spécifique locale à la 
procédure. Toutes les opérations qui sont effectuées sur le paramètre formel n’affectent que 


cette valeur locale. 


Ecriture en Pascal procedure sp(... x: real …..) 


sous progranume SP 


retour (pas de recopie)} 


appelant 


passage par valeur 


6.2 Accès direct : passage par adresse ou par référence 

Dans un passage par adresse le paramètre formel est traité comme une variable dont l’adresse 
qui est transmise au moment de chaque appel, est celle du paramètre effectif correspondant. 
L’adresse de la variable effective autorise toutes les modifications immédiatement sur cette 


variable quelle que soit sa localisation. 


Ecriture en Pascal procedure sp (....var x : real .…..) 


sous progranume SP 


connexion directe ! 


appelant 


passage par référence 
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Comparaison des avantages et des inconvénients des 2 modes 


Passage par valeur : 


e Avantage : sécurité et protection des informations. 
e _Inconvénient : lenteur due à la recopie des données et doublement de la 


place mémoire occupée (mais convient bien pour des variables simples !). 


Passage par référence : 


e Avantage : rapidité d’accès aux données, moindre occupation mémoire 
puisqu'il ne s’agit que d’une adresse. 
e _Inconvénient : ce mode est dangereux à cause de la non protection des 


données et de la nécessité qu’il y a de connaître la façon dont sont implantées 
physiquement les données sur la machine. 


Ces deux modes de passage des paramètres sont présents dans des langages comme C++, 


java, Ada, Visual-Basic .net, Delphi et C#. Il suffit donc pour le débutant, de bien 
comprendre le processus avec le pascal et par analogie il pourra l'utiliser avec les autres 
langages. 


Exemple : 
procedure BI (x : integer; var y : integer) ; 
begin Dans la procédure B1 
= 10*x x est passé par valeur 
Y d: y est passé par référence 
end ; 
procedure B2 (x : integer; y :integer) ; Dans la procédure B2 
begin xest passé par valeur 
y := 10*x y est passé par valeur 
end ; 


Dans la procédure P 
procedure P ; 


var à , b: integer ; Appel de B1 
begin BI( valeur a, ref b) 

— 100 b =0. Résultat après appel : 
SE AE ALU b = 1000 
B1(a,b); 

Appel de B2 
a = ID: bLE=0: B2( valeur a , valeur b) 
B2(a,b);: Résultat après appel : 
( ) ae 
end ; 


Les bases de l'informatique - programmation - (:6:. 05.09.2004 ) page 


139 


7. Fonction ou procédure ? 


Une fonction est un bloc de programme qui réalise des traitements et renvoie une valeur 
unique, c'est une procédure ne possédant qu'un seul élément de sortie (appelé paramètre). 


Tout ce qui a été énoncé sur les procédures s'applique in extenso aux fonctions. 


La ligne : "procedure B ( x, y : integer ; var t : integer) ; ” 
se dénomme l'en-tête de la procédure. 


La ligne : "function B ( x, y : integer) : integer ; " 
se dénomme l'en-tête de la fonction 


En pascal les blocs peuvent être implémentés aussi par des fonctions mais uniquement 
lorsqu'il n'y a qu'une donnée de sortie (un seul résultat). 


Exemple : 
function B1 (x : integer ) : integer ; 
begin Dans la function B1 
— 10% x est passé par valeur 
ne = MX B1 renvoie un résultat de type integer 
end ; 
procedure P ; Dans la procédure P 
var 
fe , Appel de la fonction B1 
SN b:= BI( valeur a ) 
begin Résultat après appel : 
a := 100 ; b = 1000 
b:=Bl(a) 
end ; 
Exemple2 : 
function TTC (PHT,Tva : real ) : real ; 
begin Dans la function TTC 


PHT et Tva sont passés par valeur 
= # 
result := PHTXT va TTC renvoie un résultat de type real qui est 
end ; Le paramètre prix hors taxe multiplié 
par le paramètre taux de TVA. 


procedure CalculPrix ; Dans la procédure CalculPrix 


var PouxHT , Prix TTC : real ; . 
PrixAT = 100 € 


begin Appel de la fonction TTC 

PrixHT:= 100 ; PrixTTC := TTC (valeur a , 1.186) 
PrixTTC := TTC ( PrixHT , 1.186) Résultat après appel : 

end ; PrixTTC = 118,6 € 
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Les déclarations de fonctions et de procédures suivent le schéma grammatical de la 
déclaration générale du programme principal : 


< Déclaration de procédure > 


procedure | <identif de proc> <liste de paramètres formels> | $ 


déclarations 


se 


Exemple : 


procedure Calcul (x : integer; var y :integer) 
<identif de proc> < liste de paramètres formels > 


se 


var a, b : integer ; |<déclarations > 


begin 


X:= a*x |; <instruction® 


y:=x-b |; instruction 


end 


se 


< Déclaration de fonction > 


function | <identif de fonc> | | <liste de paramètres formels> | ? | <type du résultat> 


se 


déclarations 
; 
Exemple : 
function Calcul (x : integer) : integer | ; 


<identif de fonc> < liste de paramètres formels>  <type du résultat> 


var à : integer ; déclarations > 


begin 


result := a%x |; <instruction> 


end 


se 
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8. Visibilité des variables 


Le langage pascal suivant méthode de la programmation structurée descendante, les 
déclarations de fonctions/procédures peuvent être imbriquées : 


< Déclarations > : 


Lo + fpéemn ce) D 
{on} foin pe) D 


Exemple de déclarations imbriquées dans la même procédure P0 : 


procedure PO (x,y,z : char) ; 
var à , b: integer ; procedure P2 ( f, 9, h : real) ; 
var à, b: integer ; 
procedure P1 ( var u : integer) ; procedure P21 ( n, m, p : integer) ; 
var à, b: integer ; var à, b: integer ; 
procedure P11 ( var u,v,w : integer) : begin 
var à , b: integer ; Re 
begin end ; 
end ; begin /P2} 
procedure P12 ( t : integer; h :char) ; end ;/P2} 
var à , b: integer ; , 
begin begin / PO} 
Ed end ; /P0} 
begin }/ P1 } 
end ; /P1} 
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Ecritures que l'on peut représenter schématiquement par les imbrications de blocs qui suivent 
(les parties grisées d'un bloc correspondent à la partie déclaration du bloc) : 


Supposons dans l'exemple précédent que la partie déclaration de chaque bloc contienne outre 
l'éventuelle déclaration d'un autre bloc, des déclarations de variables (a dans le bloc PO, b 
dans le bloc P1, c dans le bloc P11, d dans le bloc P12, e dans le bloc P2, f dans le bloc P21 ) : 
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Code pascal du schéma précédent : 


procedure PO (x,y,z : char) ; 
var a : integer ; procedure P2 ( f, 9, h : real) ; 
var € : integer ; 
procedure P1 ( var s : integer) ; procedure P21 ( n, m, p : integer) ; 
var b:integer ; var f:integer ; 
procedure P11 ( var u,v,w : integer) : begin 
var c : integer ; || | 7 
begin end ; 
re 
end ; begin /P2} 
nu 
procedure P12 ( t : integer; h :char) ; end ; /P2} 
var d : integer ; ; 
begin begin / PO} 
D) …... ® CR 
2. LR Ed 
2 
begin /P1} 
ane 
end ; /P1} 


Etant donné les possibilités offertes par cette disposition des blocs en Pascal, il vient 
immédiatement une question sur les accès autorisés ou non aux données situées dans les 
parties déclarations des blocs PO, PI, etc. 


En d'autres termes, dans la partie code de chaque bloc quelles variables peut-on utiliser ? Par 
exemple dans le corps (la partie code) de la procédure P12 peut-on utiliser toutes les variables 
a, b, c, d, e, f ou bien seulement certaines et selon quelles règles ? 


procedure P12 (t : integer; h :char) ; 
var d : integer ; 
begin 


Ces autorisations d'accès aux données situées dans des blocs imbriquées sont contenues dans 
la notion de règle de visibilité dans les langages à structure de bloc (Pascal en est un cas 
particulier, ces règles s'appliqueront aussi à d'autres langages) 


Règle de visibilité: 

Toute donnée X déclarée localement dans un bloc PK est n'est 

visible que : 

e dans le bloc où elle est déclarée, 

e et dans tous les blocs Px:, imbriqués dans Px. 

e Un paramètre formel est considéré comme une variable 
locale au bloc. 
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| 


fig - visibilité d'une donnée X déclarée dans Py} 


Remarque : masquage 

Lorsqu'une donnée déclarée sous le nom X dans un bloc P4 est redéclarée sous le même nom 
X dans un bloc P&, imbriqué dans P%x, la donnée X de Px,n masque les informations contenues 
dans la donnée X de P4 dans le bloc Px:, et dans ceux qu'ils contient. 


var Zz:char 
X: integer masqué 


Fi ” | accés à X: char 
X: integer masqué 


accès à À: char 
X : integer masqué 


fig - visibilité d'une donnée X déclarée dans Py-] 
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Etudions la visibilité des variables a, b, c, d, e, f dans les blocs PO, P1, P11, P12, P2, P21 
figurées ci-dessous : 


procedure PO (...... ire 
var a : integer ; procedure P2 ( .......... de 
var € : integer ; 
procedure PI (.....… ); procedure P21 ( ........... JE 
var b:integer ; var f:integer ; 
procedure P11 (..........…. je begin 
var c : integer ; {|| | ..…… ie 
begin end ; 
ee 
end ; begin /P2} 
Fee 
procedure P12 ( ........... D end ;/P2} 
var d: integer ; : 
begin begin / PO} 
9 …... n. CR 
…. eo 0) 
d 
begin /P1} 
Race 
end ; /P1} 


Etablissons à partir de la règle de visibilité énoncée plus haut, deux tableaux récapitulatifs 
croisés de la visibilité des variables a, b, c, d, e, f : 


variable | Bloc où cette variable est Bloc variables visibles dans ce 
visible bloc 

a POMPIREMIPPI2 P2 7221 PO a 

b PIRBRAPR Pi a, b 

( PI11 P11 a, b,c 

d P12 P12 a, b, d 

e P2*P21 P2 a, e 

f P21 P21 a, b, f 


Nous pouvons donc répondre maintenant aisément à la question posée plus haut : quelles 
variables peut utiliser dans la procédure P12 ? 


La procédure P12 accède aux variables a, b et d, ( avec en plus comme variables locales ses 
paramètres formels t et h ) : 


procedure P12 (t : integer; h :char) ; 
var d : integer ; 
begin 
// accès aux variables a, b, d, t et h, 
end; 
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9. Variables dynamiques, références ou pointeurs 


Définition 


Beaucoup de langages disposent de la notion de pointeur C++ en particulier. C’est une notion 
proche de la machine qui a été utilisée dès le début pour représenter dans un programme 
l’allocation dynamique de mémoire. Dans une structure à allocation dynamique de mémoire 
le compilateur ne connaît pas à l’avance la taille de la structure, la gestion de la mémoire est 
alors confiée au programmeur. C’est lors de l’exécution et au fur et à mesure des mises à jours 
que la taille de la structure varie, comme par exemple dans la gestion d’une liste dont la taille 
varie en fonction des ajouts ou des suppressions. A l’opposé, une structure statique est une 
entité dont le compilateur connaît très exactement la taille avant l’exécution du programme, 
comme par exemple la structure de données de type tableau peut être considérée comme une 
structure statique puisque la taille du tableau (nombre de cellules) est connue lors de la 
déclaration. 


En fait, les langages récents ne disposent plus de cette notion de pointeurs ou variables 
dynamiques parce qu’à l’usage elle s’est révélée dangereuse car trop proche de la machine 
laissant le programmeur se débrouiller seul avec la gestion de la mémoire, elle est utilement 
remplacée par la notion de référence d’objet comme dans Java, le langage C# demandant une 
autorisation pour traiter du code non sûr (unsafe code). Delphi quant à lui, combine les deux 
outils : pointeurs et références d’objet,la version Delphi 8.Net adoptant la même démarche 
que C# (unsafe code). 


La notion de pointeur très présente, voir même essentielle dans un langage comme le €, est 
utilisable en pascal. 


Prenons par exemple une variable numérique N entière d’adresse en mémoire centrale 19432 
et contenant le nombre entier 235, nous appelons x un pointeur vers cette variable N, une 
variable dynamique contenant l’adresse de la variable N : 


[235 | 1235 | 
19432 | 
N x 


Nous dirons aussi que x « pointe » vers la variable N et que le « contenu » de x est 235. 


En pascal (utiliser Delphi en mode console), une variable dynamique se déclare comme une 
variable classique mais le type est précédé du symbole « ” », elle est typée (le type de la 
donnée vers laquelle elle pointe), mais sa gestion est entièrement à la charge du programmeur 
à travers les procédures d’allocation et de désallocation mémoire respectivement appelées 
new et dispose. 


Utilisation pratique des variables dynamiques 


Les bases de l'informatique - programmation - /;4:. 05.09.2004 ) age 147 
pd 


Contenu d’une variable dynamique « x » déjà allouée : il est noté « x” » 
Dans l’exemple précédent : 


[235 x” vaut 235 (contenu de la variable dynamique) 


| 


x vaut 19432 (adresse de la variable dynamique) 
x 


Détaillons pas à pas un programme d’utilisation de pointeur 


Voici le programme à analyser : 
Soit l’exemple précédent : 


[235 program VarDyn; 


] var 


x: inieper: 
X 


begin 
new(x); 
Le programme de droite écrit sur l’écran le « contenu » xN= 235: 
de la variable x (contenu de la cellule pointée par x) soit : writeln(‘x vaut: ‘,x1); 
x vaut : 235. dispose(x); 
end. 


Déclaration d’une variable dynamique « x » de e entier : 
Y 


Soit l’instruction : Résultat produit : 


var x : integer ; 


X 


x est créée (mais x ne pointe vers rien encore) 
x vaut nil 


Allocation d’une variable dynamique « x » déjà déclarée : 


Soit l’instruction : Résultat produit : 


L_0 
new (x); 


= | 


X 


une cellule mémoire de type integer est crée, 
x pointe vers la cellule créée. 


(x vaut la valeur de l’adresse de la cellule) 
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Affectation du contenu d’une variable dynamique « x » déjà déclarée : 


Soit l’instruction : Résultat produit : 
235 
x" := 235; a 
x 


La cellule mémoire pointée par x contient 235. 


Désallocation d’une variable dynamique « x » déjà allouée : 


Soit l’instruction : Résultat produit : 
dispose ( x ) ; È 
x 
La cellule mémoire qui contenait 235 n’existe plus, elle est 
rendue au système (ont dit désallouée) 


Attention 


Ne pas confondre l’effacement de l’adresse d’une variable dynamique et sa 
désallocation. 


Effacement de l’adresse d’une variable dynamique : mot clef « nil » 
Désallocation d’une variable dynamique : procédure dispose(...) 


Résultat produit par x := nil : 


1235 | 


rs 


X 


e x” n'existe plus (x ne pointe vers plus rien) 


Soit l’exemple précédent : e x vaut nil 
[235 e La cellule mémoire qui contient 235 existe toujours, 
Ï mais n’est plus accessible ! 
x Résultat produit par dispose ( x) : 


TAET 


+ 


X 


e x” n'existe plus (x ne pointe vers plus rien) 
e x vaut nil 
e La cellule mémoire qui contenait 235 n’existe plus ! 
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C’est en particulier cette dernière remarque qui pose le plus de soucis de maintenance aux 
développeurs utilisant les pointeurs (par ex : problème de la référence folle). 


Affectation de variables dynamiques entre elles : 
On suppose que deux variables dynamiques « x et y » de type 'integer ont été déclarées et 


créées par la procédure new, nous figurons ci-après l’incidence de l’affectation x := y sur ces 
variables : 


Soient les instructions : Résultat produit : 
x" := 235; 
y := 1098 ; 


Soient l’affectation : 


X=Y; 


x et y pointent vers la même cellule 
mémoire 


Une structure de données récursive avec pointeurs 


Prenons une structure de données organisée sous forme de liste composée de cellules qui sont 
elles mêmes chacune un enregistrement (un record) contenant deux champs num et suite : 


num suite 


Le champ num est de type entier, et le champ suite est une variable dynamique de type 
cellule (lorsqu'il est alloué, il pointe donc vers une nouvelle cellule) : 


num  sute 


num suite 
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Soit un programme d’exemple de structure récursive (Delphi en mode console) utilisant les 
variables dynamiques pour représenter cette structure. 


program pointeur; 


type 
cell = Astruct; 


struct = record 
num : integer; 
suite : cell 
end; 


var 
X,Y,Z,t,u: cell; 


begin 
new(x) ; 
new(y) ; 
new(Z) ; 
new(t) ; 
new(u) ; 
end. 


ES EE Z 
ki 


x" num := 10; 
yum := 20; 
z\ num := 30; 
t num := 40; 
u* num := 50; 


Ce programme crée 5 cellules : 


u 
Les instructions suivantes : 
t\ suite := x; _ Z 
x"\.suite := y; ; 
z\.suite :=u; 
u‘.suite := Y; représentent les liens ci-contre: , 
u 


L’instruction suivante 


Représente l’accès au lien 


Et écrit sur la console 


writeln (t A. suite”. num); 


10 


(le contenu du champ num de x) 


writeln ( u”. suite. num); 


20 


(le contenu du champ num de y) 


writeln (t .suite”.suite\ num); 


20 


(le contenu du champ num de y) 


writeln (z suite .suite\ num); 


20 


(le contenu du champ num de y) 


La notion de référence est abordée au chapitre sur la programmation objet, c’est en fait un 
pointeur entièrement encapsulé sur lequel il n’est possible de faire qu’une seule opération : 


l’affectation de référence. 
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Exercices chapitre 2 


Ex-1 : Au sujet des parenthèses bien formées dont on rappelle une C-grammaire : 


G: Vrx={S} 
Vr={(;)} 
Axiome : S 
Règles 1: S——>(SS)S 
2:S——> € 
1°) Proposez 3 autres C-grammaires engendrant le même langage de parenthèses. 
29°) Construisez dans chacune d’elle l’arbre de dérivation du mot ((( }( )))(()). 


Ex-2 : Soit G la C-grammaire suivante et L(G) le langage engendré par G : 


G: Vrx={S,A,B} 
Vr={(),0} 
Axiome : À 
Règles : 

1:A— (A 
2:A(S 
3:S— 0S 
4:S—)B 
5:B—)B 
6:B—) 


1°) Donnez le mot le plus petit appartenant au langage L(G) (celui de longueur minimale). 

2°) Donnez très précisément la forme générale des mots du langage L(G) (avec contraintes sur les indices lorsqu'il 
y en a). 

3°) construisez l'arbre de dérivation dans G de la chaîne : (* 0° })° 


Ex-3 : Problème classique du défaut de fermeture en Algol, en Pascal en Java, en C# et autre... : 


A - Soit G, une grammaire ambiguë de l’instruction if ..then...else en Pascal 
Vx = {<Expr> , S} 
Vr={if,then,else,P,a} 
Axiome : S 
Règles 1:S—> if < Expr.> then S 
2: S——> if < Expr.> then S else S 
3:S——>a 
4: < Expr.> —P 


Donnez 2 arbres de dérivation dans G, de la chaîne : 
if Pthenif P then a else a 


B - On propose une autre grammaire ambiguë G; du même langage : 
Vx={<Expr>,S,S’} 
Vr={if,then,else,P,a} 
Axiome : S 
Règles 1 : S——> if < Expr.> then S S’ 
2:$——>a 
3:S° —— else S 
4: S —>e# 
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5: <Expr> —>P 


a) Refaire les 2 arbres de dérivation du mot « if P then if P then a else a » dans G:.. 
b) Quelle amélioration est apportée par G; par rapport à Go ? 


C - On construit une grammaire non ambiguë du langage : 
a) Dans la grammaire G, , proposez une solution syntaxique permettant de lever l’ambiguïté en rajoutant un 


symbole supplémentaire dans V+ (grammaire G:;). 
b) Montrer que le nouveau mot « if P then if P then … » ne peut avoir qu’un seul arbre de dérivation dans G2. 


Ex-4 : ci dessous les diagrammes syntaxiques d'un identificateur dans un langage de programmation : 


lettre : (a) chiffre: (0) 
lettre 
lettre | — ns AE 
Æ chiffre al Fa) Fa) 


Ecrivez une grammaire en BNF traduisant ces diagrammes. 


Ex-S : Soit le programme Pascal suivant : 


Program essai; 


Const begin 
n = 50 Lire ( table); 
Type for i:=1 to n do 
tableau = array{1..n] of integer; write( Ti] ; ‘); 
Var end. 


table : tableau ; 


Procedure Lire( T : tableau }; 
begin 
for i:=1 to n do 
Readin( T{i] }; 
End; 


Que fait et qu'affiche très précisément ce programme ? 


Ex-6 : Ecrire un programme Delphi console calculant la somme des 10 premiers termes de la série 


S, = À 1/(2i+1), soit :S=1+1/3+1/5+1/7+...+1/19.Le programme affichera la somme S. 


Ex-7 : Delphi possède une fonction LowerCase permettant de transformer tous les caractères d'une string en 
minuscule. Ecrivez votre propre fonction "Lowerstring (nom:string)" qui renvoie la string nom en minuscule sans 
utiliser la fonction LowerCase. 


Ex-8 : Delphi possède les opérateurs booléens or, and et Xor. Ecrire un programme console affichant la table de 
vérité de chacun de ces trois opérateurs. 


Ex-9 : Ecrivez les fonctions booléennes : "implique(p , q: boolean)" qui renvoie le résultat de p => q et 
"equivalent(p , q: boolean)" qui renvoie le résultat de p © q. 
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Réponses partielles: 


Ex-1 : Règles 


1: S——> S$S(SS) 1:S—— (S)S 1: S——> S(S)S | Etc. 
2:S—— € 2:S—— € 2:S——> € 
Ex-2 : 1°) mot minimal : ()) 


2°,L(G)={("o@),n>1,p>0,q>1} 


Ex-3 : 


A) premier arbre dans Go : À) second arbre dans Go: 


CS  - 


if <Expr> ïhen 5 < Expr> s eke 5 
P / b | | 
else 5 a a 
a 
B) premier arbre dans G: : B) second arbre dans G: : 


Sous-arbre commun dans G: : Sous-arbre commun dans G : 


CR a D. 
EE 


] 


La grammaire G, permet une analyse moins profonde 
que G; avant que l'ambiguïté se révèle. 


Soit G 
Vx = {<Expr> , S} 
Vr={if,then,else,P,a,endif } 
Axiome : S 
Règles 1:S-——> if < Expr.> then S endif 
2: S—— if < Expr.> then S else S endif 
3:S——a 
4: < Expr.> — P 
On ne peut qu'écrire dans G, l'une ou l'autre des deux seules phrases distinctes suivantes : 
Q if Pthenif P then a else a endif endif 
Q if Pthenif P then a endif else a endif 


Ex-4 : Soit une grammaire G: répondant à la question 
VX = {<identif.> , <lettre.> , <chiffre.> , <suite> }, Vr={a,b,...,z,0,...,9)} 
Axiome : <identif.> 
Règles 1 : <identif.> ——> <lettre.> <suite> 
2 : <suite> ——> <lettre.> <suite> | < chiffre.> <suite> | & 
3 : <lettre.> ——a|b]|...]|z 
4: < chiffre> ——>01|11|...19 
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Ex-5 : Appel de la procédure Lire avec le paramètre table : Lire ( table). La Procedure Lire( T : tableau ) reçoit un 
paramètre passé par valeur, donc elle travaille sur une copie du tableau table en saisissant au clavier les données, 
mais lors de la fin de l'appel le tableau local est détruit et l'original n'a pas été modifié donc le tableau table est 
resté vide ! 


Ex-6 : Somme 1+1/3+1/5+1/7+...+1/19 


Boucle for croissante 


Boucle for décroissante 


program for_do; 
const max=—20; 
var 
som : real; 
i : integer; 
begin 
som:= (; 
for i := 0 to 9 do 
som := som + 1 / (2#i+1); 
writeln('somme =", som); 
end. 


program for_do; 
const max=—20; 
var 
som : real; 
i : integer; 
begin 
som:= (; 
for i := 9 downto 0 do 
som := som + 1 / (2*i+1); 
writeln('somme =", som); 
end. 


Ex-7 : chaine > en minuscule 
function Lowerstring (ch : string) : string; 
var 

1: integer; 

sortie: string; 
begin 

sortie := ”; 

for i := 1 to length(ch) do 

if ch[i] in ['A'..7"] then 


sortie := concat (sortie, chr(ord(ch{i]) + ord('a') - ord('A'))) 


else 
sortie := concat(sortie, chfi] ); 
result := sortie 
end; 


Ex-8 : Tables de vérités 


program TableVerite; 
var 

a, b, c:boolean; 
begin 
writeln(' table du Et :"}; 
writeln( a b  Et'}; 
Writeln('--------""""" 1): 
for a := false to true do 

for b := false to true do 

writeln( a:7, b:7, a And b:7); 


LIÉE INC ERA ARR NEED HE PIE ORNE 


, 


writeln( table du Ou :'); 
writeln( à b Ou; 
Writeln('-------"""" ”); 
for a := false to true do 
for b := false to true do 
writeln( a:7, b:7, a or b:7); 
WTILE INC EE ERREUR PE MORE HE) 
writeln(' table du Xor :'}; 
writeln( a b Xor'); 
wWriteln('-------"""" ”); 
for a := false to true do 
for b := false to true do 
writeln( a:7, b:7, a Xor b:7); 
end. 


0] 


Ex-9 : implication et équivalence 


P=>Q = nonPouQ 


PHQ=(P>Q)e«t(Q=P) 


function implique (p , q : boolean) : boolean; 
begin 

result := not p or q 
end; 


function equivalent (p , q : boolean) : boolean; 
begin 

result := implique (p,q)and implique(q,p) 
end; 
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Chapitre 3 : Développer du logiciel 


avec méthode 


3.1 Développement méthodique du logiciel 


la production du logiciel 

conception structurée descendante et machines abstraites 
notion d'algorithme 

un langage de description d'algorithmes le LDFA 

le dossier de programmation 

trace formelle d'un algorithme 

traducteur LDFA - Pascal 

facteurs de qualité du logiciel 


Machines abstraites : exemple de traitement sur les chaînes 


e cas où la version du pascal contient un type chaîne 

e cas où la version du pascal ne contient pas de type chaîne 

° _ programme pascal obtenu 

e autres versions d'implantation en pascal 
3.2.Modularité 


définition : B.Meyer 
la modularité en pascal avec les Unit 


3.3. Complexité, tri, recherche 


Notions de complexité temporelle et spatiale 
Mesure de la complexité temporelle d'un algorithme 
Notation de Landau O(n) 


Trier des tableaux en mémoire centrale 


e Le Tri à bulles 
e Le Tri par sélection 
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e Le ri par insertion 
e Le Tri rapide QuickSort 
e Le Tri par tas HeapSort 


Rechercher dans un tableau 


e Dans un tableau non trié 
e Dans un tableau trié 


Exercices: algorithmes et leur traduction 
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3.1 : développement méthodique 
du Logiciel 


Plan du chapitre: Ë 


1.Historique des langages 


Introduction 


À. Production du logiciel 


1.1 Génie logiciel 

1.2 Cycle de vie du logiciel 

1.3 Maintenance d’un logiciel 

1.4 Production industrielle du logiciel 


2. Conception structurée descendante 


.1 Critère simple d’automatisation 

.2 Analyse méthodique descendante 

.3 Analyse ascendante 

.4 Programmation descendante avec retour sur un niveau 
.5 Machines abstraites et niveaux logiques 


NENENE NAN 


3. Notion d'ALGORITHME 


3.1 Langage algorithmique 
3.2 Objets de base d'un langage algorithmique 
3.3 Opérations sur les objets de base d'un langage algorithmique 


4. Un langage de description d’algorithme : LDFA 


4.1 Atomes du LDFA 

4.2 Information en LDFA 

4.3 Vocabulaire terminal du LDFA 
4.4 Instructions simples du LDFA 


5. Le Dossier de développement 


.1 Enoncé et spécification 

.2 Méthodologie 

.3 Environnement 

.4 Algorithme en LDFA 

. 5 Programme en langage Pascal 


Où Où GO Gi Gi 


6. Trace formelle d’un algorithme 
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6.1 Espace d'exécution d’une instruction composée 
6.2 Exemple avec trace formelle 


7. Traducteur élémentaire LDFA - Pascal 


7.1 Traducteur 
7.2 Exemple 
7.3 Sécurité et ergonomie 


8. Facteurs de qualité du logiciel 
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Introduction 


Le bon sens est la chose du monde la mieux partagée...la diversité de nos opinions ne vient pas de ce que les uns 
sont plus raisonnables que les autres, mais seulement de ce que nous conduisons nos pensées par diverses voies, 
et ne considérons pas les mêmes choses. Car ce n'est pas assez d'avoir l'esprit bon, mais le principal est de 
l'appliquer bien. 

R Descartes Discours de la méthode, première partie, 1637. 


Le développement méthodique d’un logiciel passe actuellement par une démarche de " 
descente concrète " de la connaissance que l’humain a sur la problématique du sujet, vers 
l’action élémentaire exécutée par un ordinateur. Le travail du programmeur étant alors ramené 
à une traduction permanente des actions humaines en actions machines (décrites avec des 
outils différents). 


Nous pouvons en première approximation différentier cette " descente concrète " en un 
classement selon quatre niveaux d’abstraction : 


Connaissance Connaissance 
avant aprés 


niveau 
connaissance 
Donnée Résultat 
ul abstrait 
niveau 
Information 
Donnèé Résultat 
interprétée interprété 
niveau 
Donnée 
niveau 
Etats Physique 
initiaux 


fig - schéma de descente concrète 
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Nous voyons que toute activité de programmation consiste à transformer un problème selon 
une descente graduelle de l’humain vers la machine. Ici nous avons résumé cette 
décomposition en 4 niveaux. La notion de programmation structurée est une réponse à ce type 
de décomposition graduelle d’un problème. L’algorithmique est la façon de décrire cette 
méthode de travail. 


1. Production du logiciel 


1.1 Génie logiciel 


A une certaine époque, à ses débuts, l’activité d’écriture du logiciel ne reposait que sur 
l'efficacité personnelle du programmeur laissé pratiquement seul devant la programmation 
d’un problème. 


De nos jours, le programmeur dispose d’outils et de méthodes lui permettant de concevoir et 
d’écrire des logiciels. Le terme logiciel, ne désigne pas seulement les programmes associés à 
telle application ou tel produit : il désigne en plus la documentation nécessaire à l'installation, 
à l'utilisation, au développement et à la maintenance de ce logiciel. Pour de gros systèmes, le 
temps de réalisation peut être aussi long que le temps du développement des programmes eux- 
mêmes. 


Le génie logiciel concerne l'ensemble des méthodes et règles relatives à la production 
rationnelle des logiciels. 


L'activité de développement du logiciel, vu les coûts qu'elle implique, est devenue une activité 
économique et doit donc être planifiée et soumise à des normes sinon à des attitudes 
équivalentes à celles que l'on a dans l'industrie pour n'importe quel produit. 


C'est pourquoi dans ce cours, le mot-clef est le mot ""composant logiciel'" qui tient à la fois 
de l'activité créatrice de l'humain et du composant industriel incluant une activité disciplinée 
et ordonnée basée pour certaines tâches sur des outils formalisés. 


D'autre part le génie logiciel intervient lorsque le logiciel est trop grand pour que son 
développement puisse être confié à un seul individu ; ce qui n'est pas le cas pour des 
débutants, à qui il n'est pas confié l'élaboration de gros logiciels. Toutefois, il est possible de 
sensibiliser le lecteur débutant à l’habitude d’élaborer un logiciel d’une manière systématique 
et rationnelle à l’aide d’outils simples. 


1.2 Cycle de vie du logiciel 
Comme il faut un temps très important pour développer un grand système logiciel, et que 


d’autre part ce logiciel est prévu pour être utilisé pendant longtemps, on sépare fictivement 
des étapes distinctes dans ces périodes de développement et d’utilisation. 
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Le modèle dit de la cascade de Royce (1970) accepté par tout le monde informatique est un 
bon outil pour le débutant. S’il est utilisé pour de gros projets industriels, en supprimant les 
recettes et les validations en fin de chaque phase, nous disposons en initiation d’un cadre 
méthodologique. Il se présente alors sous forme de 8 diagrammes ou phases : 


Maintenance | PHASE.S8 


mise en oeuvre | PHASE. 7 


PHASE. 6 


PHASE.4 PHASE.S5 


1.3 Maintenance d’un logiciel 


Dans beaucoup de cas le coût du logiciel correspond à la majeure partie du coût total d'une 
application informatique. Dans ce coût du logiciel, la maintenance a elle-même une part 
prépondérante puisqu'elle est estimée de nos jours au minimum à 75% du coût total du 
logiciel. 


La maintenance est de trois sortes : 

e adaptative (s’adapter à un nouvel environnement...) 
e  corrective (corrections d’erreurs...) 

e _perfective (améliorations demandées par le client...) 


1.4 Production industrielle du logiciel 


La production du logiciel étant devenue une activité industrielle et donc économique, elle 
n’échappe pas aux données économiques classiques. On répertorie un ensemble de 
caractéristiques associées à un projet de développement, chaque caractéristique se voyant 
attribuer un ratio de productivité. 


Le ratio de productivité d’une caractéristique 

C’est le rapport entre la productivité (exprimée en nombre d’Instructions Sources Livrées, par 
homme et par mois) d’un projet exploitant au mieux cette caractéristique, et la productivité 
d’un projet n’exploitant pas du tout cette caractéristique. 
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Le tableau suivant est tiré d’une étude de B.Boehm (Revue TSI 1982 : les facteurs de coût du 


logiciel): 


caractéristiques 
expérience du langage |1 20 


contraintes de delai 1,23 
Base de données 1,23 
délai de restitution 1,32 


expérience de la mach_ virt. 


instabilité de la mach. virtuelle 
outils logiciels 


1,48 
1,48 

1,51 
1,56 
1,57 


pratique moderne de la program 
contraintes de taille mémoire 
expérience de l'application 


contraintes sur le temps d'exécution 
fiabilité requise 


Tableau comparatif des divers ratios de productivité (B.Boehm) 


Vous aurez remarqué en observant le graphique précédent que le facteur le plus important 
n'est pas l'expérience d'un langage (erreur commise par les néophytes). Ce qui explique entre 
autres arguments que l'enseignement de la programmation ne soit pas l'enseignement d'un 


langage. 


Il apparaît que le facteur le plus coûteux reste un facteur sur lequel la technologie n'a aucune 


prise : l'aptitude qu'ont des individus à communiquer entre eux ! 


Pour l’élaboration d’un logiciel, nous allons utiliser deux démarches classiques : la méthode 


structurée ou algorithmique et plus tard une extension orientée objet de cette démarche. 


2. Conception structurée descendante 


2.1 Critère simple d’automatisation 


Un problème est automatisable (traitable par informatique) si : 
e l'on peut parfaitement définir les données et les résultats, 


e l'on peut décomposer le passage de ces données vers ces résultats en une suite 
d'opérations élémentaires dont chacune peut être exécutée par une machine. 
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Dans le cadre d’une initiation à la programmation, dans le cycle de vie déjà présenté plus 
haut, nous ne considérerons que les phases 2 à 6, en supposant que la faisabilité est acquise, et 
qu’enfin les phases de mise en œuvre et de maintenance sont mises à part. 


Dans cette perspective, le schéma de la programmation d’un problème se réduit à 4 phases : 


Langage 
Informel nine 
Spécification LS 
1 
Langage 
évolué 


Description 
2 


2 Traduction 
3 
Algorithmique 


e La phase 1 de spécification utilisera les types abstraits de données (TAD), 

e la phase 2 (correspondant aux phases 3 et 4 du cycle de vie) utilisera la méthode de 
programmation algorithmique, 

e la phase 3 (correspondant à la phases 5 du cycle de vie) utilisera un traducteur manuel 
pascal, 

e la phase 4 (correspondant à la phases 6 du cycle de vie) correspondra au passage sur la 
machine avec vérification et jeux de tests. 


Nous utiliserons un " langage algorithmique " pour la description d’un algorithme résolvant 
un problème. Il s’agit d’un outil textuel permettant de passer de la conception humaine à la 
conception machine d’une manière souple pour le programmeur. 

Nous pouvons résumer dans le tableau ci-dessous les étapes de travail et les outils conceptuels 
à utiliser lors d’une telle démarche. 


ETAPES Matériel et moyens techniques à disposition 
PRATIQUES 


Papier, Crayon, Intelligence, Habitude. 


Mise en forme de C’est l’aboutissement de l’analyse, esprit logique et rationnel. 
l'algorithme 


Utilisation pratique des outils d’une méthode de programmation, ici la 
programmation structurée. 
Transfert des écritures algorithmiques en langage de programmation 
Tests et mise au Mise au point du programme sur des valeurs tests ou à partir de 


point programmes spécialisés 


Exécution Phase finale : le programme s’exécute sans erreur 


28 . . . 
< . 
Te 2 
, r 
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2.2 Analyse méthodique descendante 


Le second [précept], de diviser chacune des difficultés que j'examinerais, en autant de parcelles qu'il se pourrait 
et qu'il serait requis pour les mieux résoudre. 
R Descartes Discours de la méthode, seconde partie, 1637. 


Définir le problème à résoudre: 
expliciter les données 
préciser: leur nature 
leur domaine de variation 
leurs propriétés 
expliciter les résultats 
préciser: leur structure 
leur relations avec les données 
fin définir; 
Décomposer le problème en sous-problèmes; 
Pour chaque sous-problèmes identifié faire 
si solution évidente alors écrire le morceau de programme 
sinon appliquer la méthode au sous-problème 
fsi 
fpour. 


démarche proposée par J.Arsac 


Cette démarche méthodique a l'avantage de permettre d'isoler les erreurs lorsqu'on en 
commet, et elles devraient être plus rares qu'en programmation empirique (anciens 
organigrammes). 


Il apparaît donc plusieurs niveaux de décomposition du problème (niveaux d'abstraction 
descendants). Ces niveaux permettent d'avoir une description de plus en plus détaillée du 
problème et donc de se rapprocher par raffinements successifs d'une description prête à la 
traduction en instructions de l'ordinateur. 


Afin de pouvoir décrire la décomposition d'un problème à chaque niveau, nous avons utilisé 
un langage algorithmique (et non pas un langage de programmation) qui emprunte beaucoup 
au langage naturel (le français pour nous). 


2.3 Analyse ascendante 


Le troisième [précept], de conduire par ordre mes pensées, en commençant par les objets les plus simples et les 
plus aisés à connaître, pour monter peu à peu, comme par degrés, jusqu'à la connaissance des plus composés; et 
supposant même de l'ordre entre ceux qui ne se précèdent point naturellement les uns les autres. 

R Descartes Discours de la méthode, seconde partie, 1637. 


Nous essaierons de partir de l’existant (les fichiers sources déjà écrits sur le même sujet) et de 


reconstruire par étapes la solution. Le problème dans cette méthode est d’assurer une bonne 
cohérence lorsque l’on rassemble les morceaux. 
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Les méthodes objets que nous aborderons plus loin, sont un bon exemple de cette démarche. 
Nous n'en dirons pas plus dans ce paragraphe en renvoyant le lecteur intéressé au chapitre de 
la programmation orientée objet de cours. 


2.4 Programmation descendante avec retour sur un niveau 


Comme partout ailleurs, une attitude appuyée sur les deux démarches est le gage d’une 
certaine souplesse dans le travail. Nous adopterons une démarche d’analyse essentiellement 
descendante, avec la possibilité de remonter en arrière dès que le développement paraît trop 
complexe. 


Nous adopterons dans tout le reste du chapitre une telle méthode descendante (avec quelques 
retours ascendants). Nous la dénommerons " programmation algorithmique " 


Nous utilisons les concepts de B.Meyer pour décomposer un problème en niveaux logiques 
puis en raffinant successivement les différentes étapes. 


2.5 Machines abstraites et niveaux logiques 


Principe : 

On décompose chacune des étapes du travail en niveaux d’abstractions logiques. On suppose 
en outre qu’à chaque niveau logique fixé, il existe une machine abstraite virtuelle capable de 
comprendre et d’exécuter la description du problème sous la forme algorithmique en cours. 
Ainsi, en descendant de l’abstraction vers le concret, on passe graduellement d’un énoncé de 
problème au niveau humain à un énoncé du même problème à un niveau où la machine 
devient capable de l’exécuter. 


Niveau logique Machine abstraite Enoncé du problème en 


Mo = l'humain = langage naturel 


Dur Mi = mach. Abstraite A1 = lang.algorithmique 


on Mh = machine+OS Ah = langage évolué 
Mh41= machine physique An+1= langage binaire 


A partir de cette décomposition on construit un " arbre " de programmation représentant 
graphiquement les hiérarchies des machines abstraites. 


Voici un exemple d’utilisation de cette démarche dans le cas de la résolution générale de 
l’équation du second degré dans KR. 


Le problème se décompose en deux sous-problèmes " 
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e le premier concerne la résolution d’une équation du premier degré strict 
e le second est relatif à la " résolution d’une équation du second degré strict ". 


Niveau 0 = = 


Re 


Le 
Re. [Equation 2°] 
Niveau 1 


Î nn 


[cire € est sol) | Loire (pas de sol} 


figure de la branche d'arbre ler degré 


Niveau 2 


Niveau 3 


Equation : 4x2 +Bx+C=0 


Niveau 0 
Niveau 1 
Niveau 2 
X1=-- (- B+SqrtDelta)}V(2*A) ; 
X2<-- (- B-Syrt{Delta}}(2* A) ; 
ecrire (X1, X2}; 
Niveau 3 


figure de la branche d'arbre 2ème degré 


Nous avons utilisé comme langage de description des étapes intermédiaires un langage 
algorithmique basé sur des mots du français. Nous le détaillerons plus tard. 
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3. Notion d’ALGORITHME 


jo DE. Kruih) 


Un algorithme est un ensemble de règles qui décrivent une séquence 
d’opérations en vue de résoudre un problème donné bien spécifié. Un 
algorithme doit répondre aux 5 caractéristiques suivantes : 


La finitude 

La précision 

Le domaine des entrées 
Le domaine des sorties 
L’exécutabilité 


Notons qu’un algorithme exprime donc un procédé séquentiel (or dans la vie courante tout 
n’est pas nécessairement séquentiel comme par exemple écouter un enseignement et penser 
aux prochaines vacances), et ne travaille que sur des problèmes déjà transformés de la phase 1 
à la phase 2 (la spécification). I 


Il n’est pas demandé aux débutants de travailler sur cette étape du processus. C’est pourquoi 
la plupart des exercices de débutant sont déjà spécifiés dans l’énoncé, ou bien leur 
spécification est triviale. 


Indiquons les éléments de définition des cinq autres caractéristiques demandées à un 
algorithme : 


e  Finitude : Le nombre d’étapes d’un algorithme doit être fini. Le temps d’exécution 
pourra être évalué. 

e Précision : Chaque étape doit être parfaitement définie. Toutes les actions 
élémentaires doivent être connues. 

e Domaine des entrées : Le champ des données d’entrée doit être spécifié. 

e Domaine des sorties : Un algorithme ayant un résultat, il faut donner les champs 
correspondants aux résultats de sortie, ou du moins les relations entre les données 
d’entrée et les données de sortie. 

e  Exécutabilité : Un algorithme doit déboucher sur un programme exécutable en un 
temps fini et raisonnable. 


I [] Environnement 


On appelle environnement d’un algorithme l’ensemble des entités utilisés par le processeur 
pendant le déroulement de l’algorithme. 
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Nous allons définir un langage de description des algorithmes qui nous permettra de décrire 
les arbres de programmation et le fonctionnement des machines abstraites de la 
programmation structurée. 


Voici classiquement ce que tous les auteurs utilisent comme système de description d’un 
algorithme lorsqu'ils le font avec un langage. Les deux sous-paragraphes qui suivent, 
fournissent les définitions des éléments fondamentaux d'un tel langage algorithmique, le 
paragraphe d'après construit un langage algorithmique fondé sur ces éléments fondamentaux. 


Nous verrons que l’algorithmique est par nature plus proche de l’étudiant que la machine. En 
effet dans la suite du cours, l’étudiant s’apercevra par exemple, que les nombres rationnels ne 
sont pas représentables simplement en machine, encore moins les nombres réels. Les langages 
d’implémentations impératifs comme Pascal, Java, C# etc. étant relativement pauvres à cet 
égard. 


L'étudiant ne doit pas croire que l’informatique s’est résignée à ne travailler que sur les 
entiers et les décimaux, mais plutôt se rendre compte qu’il existe une palette importante de 
certains produits informatiques qui traitent plus ou moins efficacement les insuffisances des 
langages classiques par exemple vis à vis des rationnels (les systèmes de calcul formel comme 
MAPLE (étudié en Taupe), MATHEMATICA.... sont une réponse à ce genre d’insuffisance). 
Nous ne nous préoccupons absolument pas, dans un premier temps en algorithmique, ni de la 
vérification, ni du contrôle, ni des restrictions d’implantation des données. Notre 
préoccupation première est d’écrire des algorithmes justes qui fonctionnent sur des données 
justes. 


3.1 Objets de base d'un langage algorithmique 


Contenant 


Nous appelons contenant toute cellule mémoire d’une machine abstraite d’un niveau fixé. 


Contenu 


Nous appelons contenu l’information représentée par l’état du contenant. 


Atomes 


Pour un contenant fixé on note A l’ensemble de tous ses états possibles, on dit aussi 
ensemble des atomes du niveau n (niveau du contenant). 


Remarques : 
a) un atome de niveau n est donc un état possible d’un contenant, 
b) pour un niveau logique fixé, il y a un nombre d’atomes fini, 
c) lorsque l’on est au niveau machine : 


e le contenant est à p positions binaires( p est le nombre de bits du mot, p>1). 
e A={0,1}x...x {0,1}, p fois 
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Par définition, à toute adresse nous faisons correspondre bijectivement par l’opération nom, 
un identificateur unique définissant pour l’utilisateur la cellule mémoire repérée par cette 
adresse : 


NOM 
+ 3 _ 
adresse identificateur 
à — 


ADR 
Nous définissons aussi un certain nombre de fonctions : 
Etat : Adresse — Atome (donne l'état associé à une adresse) 
valeur: identificateur —Atome (donne l'état associé à un identificateur, on dit la valeur) 
contenu: Atome —information (donne le contenu informationnel de l'atome) 


signification: identificateur —information (sémantique de l’identificateur) 


Ces 4 fonctions sont liées par le schéma suivant : 
- = adr 
identificateur — adre33e 


etat 


A0 IE 


[ose 


information 


3.2 Opérations sur les objets de base d'un langage algorithmique 


Les parenthèses d’énoncé en LDFA seront algol-like : nous disposerons d’un marqueur du 
genre debut et d’un second du genre fin . 


Exécutant ou processeur algorithmique 
Nous appelons exécutant ou processeur, la partie de la machine abstraite capable de lire, 


réaliser, exécuter des opérations sur les atomes de cette machine, ceci à travers un langage 
approprié. 
Remarque: l'opérateur formel exécutant dépend du temps. 
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Instruction simple 
C’est une instruction exécutable en un temps fini par un processeur et elle n’est pas 


décomposable en sous-tâches exécutables ou en autres instructions simples. Ceci est valable 
à un niveau fixé. 


Instruction composée 


C’est une instruction simple, ou bien elle est décomposable en une suite d’instructions entre 
parenthèses. 


Composition séquentielle 
S1 1,],...,t représentent des instructions simples ou composées, nous écrirons la composition 
séquentielle avec des " ; ". La suite d’instructions "1 ; j; ; t "est appelée une suite 
d’instructions séquentielles. 


Schéma fonctionnel 


e soit un identificateur, 

e soit un atome, 

e soit une application f à n variables (où n>0): 
f : (identificateur)" — identificateur 


Espace d’exécution 


L’espace d’exécution d’une instruction, c’est le n-uplet des n identificateurs ayant au moins 
une occurrence dans l’instruction (ceci à un niveau fixé). 


Soit une instruction ix, l’ensemble Ek des variables, ayant au moins une occurrence dans 
l'instruction ik est noté : Ex = {x1, X2, ……, x} (espace d'exécution de l'instruction ix) 


Environnement 


C’est l’ensemble des objets et des structures nécessaires à l’exécution d’un travail donné 
pour un processeur fixé (niveau information). 


Action 


C’est l’opération ou le traitement déclenché par un événement qui modifie l’environnement 
(ou bien toute modification de l’environnement); 


Action primitive 
Pour un processeur donné(d’une machine abstraite d’un niveau fixé)une action est dite 
primitive, si l’énoncé de cette action est à lui seul suffisant pour que le processeur puisse 


l’exécuter sans autre éléments supplémentaires. Une action primitive est décrite par une 
instruction simple du processeur. 
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Action complexe 


Pour un processeur donné(d’une machine abstraite d’un niveau fixé)une action complexe est 
une action non-primitive, qui est décomposable en actions primitives (à la fin de la phase 


de conception elle pourra être exprimée soit par un module de traitement, soit par une 
instruction composée). 


Remarques : 


Ce qui est action primitive pour une machine abstraite de niveau n, peut devenir une 
action complexe pour une machine abstraite de niveau n+1, qui est l’expression de la 
précédente à un plus bas niveau (d’abstraction). 

Les instructions du langage doivent être les mêmes pour tous les niveaux de machine 
abstraite, sinon la programmation devient trop lourde à gérer. 

Tout langage de description de machine abstraite n’est pas implantable sur ordinateur 
(au plus partiellement sinon ce serait tout simplement un langage de programmation). 
Il ne peut servir qu’à décrire en partie la spécification et la conception. De plus il doit 
utiliser les idées de la programmation structurée descendante modulaire. 


4. Un langage de description d’algorithme : LDFA 


L'apprentissage d'un langage de programmation ne sert qu'aux phases 3 et 4 (traduction et exécution) et ne doit 
pas être confondu avec l'utilisation d'un langage algorithmique qui prépare le travail et n'est utilisé que comme 
plan de travail pour la phase de traduction. En utilisant la construction d'une maison comme analogie, il suffit 
de bien comprendre qu'avant de construire la maison, le chef de chantier a besoin du plan d'architecte de cette 
maison pour passer à la phase d'assemblage des matériaux ; il en est de même en programmation. 


Enonçons un langage simple, extensible, qui est utilisé dans tout le reste du document et qui 
va servir à décrire les algorithmes. Nous le dénotons dans la suite du document comme LDFA 
pour Langage de Description Formel d’Algorithme (terminologie non standard utilisée par 
l'auteur pour dénommer rapidement un langage algorithmique précis). 


4.1 Atomes du LDFA 


Les ensembles de nombres comme N,Z.Q,R (les vrais ensembles classiques des 
mathématiques et leurs structures connues). 

La grammaire mathématique et celle du français. 

{V,F} comme éléments logiques (({V,F},-— , A, V ) étant une algèbre de Boole) 
Les prédicats. 

Les caractères du français et les chaînes de caractères C des machines. 
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4.2 Information en LDFA 


On rappelle qu’une information en LDFA est obtenue par le contenu d’un atome et se 
construit à l’aide de : 
e la grammaire du français et le sens commun des mots, 
e les théorèmes et les résultats obtenus des théories mathématiques(le sens étant le 
sens habituel donné à tous les symboles), 
e toutes les manipulations générales (algorithmes en particulier) sur les structures de 
données. 


4.3 Vocabulaire terminal du LDFA 


Vr= { <— ,Q, lire(), ecrire), si, tantque, alors, ftant , faire , fsi , sinon, 


sortirSi, pour , repeter , fpour , jusque, ; , entrée , sortie , Algorithme , local , global, 
principal , modules , specifications , types-abstraits , debut ,fin,(, ),[,1,*,+,-,/, 
3 A 7 V } 


4.4 Instructions simples du LDFA : 


[l [| Instruction vide 


syntaxe : Q 


sémantique : ne rien faire pendant un temps de base du processeur. 


JC > 


syntaxe : à <—— © 
où : ae identif, et œest un schéma fonctionnel. 


sémantique : 
1)si a=identificateur alors val(a)=val(a) 
2) si œest un atome alors val (a)=t 
2) Si Cest tre apolication / ce (ici, css sic) > Ghz 50800 r 1dp) 
alors val (a)= © (val (ich), 206600: ,val (idp)) 
où œ'est l'interprétation de a sur l’ensemble des valeurs des val(idk) 


D 


syntaxe lire ( (où a € identif) 


sémantique : le contexte de la phrase précise où l’on lit pour "remplir" a, 
sinon on indique lire(a) dans ..... 


Elle permet d’attribuer une valeur à un objet en allant lire sur un périphérique d’entrée et elle range cette valeur 
dans l’objet. 
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DE > 


syntaxe : ecrire ( (où a e identif) 


sémantique : le contexte de la phrase précise où l’on écrit pour "voir!" a, 
sinon on indique ecrire(a) dans ..... 


Ordonne au processeur d’écrire sur un périphérique (Ecran, Imprimante, Port, Fichier etc...) 


In 


syntaxe : si P alors El sinon F2 fsi 
où P est un prédicat ou proposition fonctionnelle, 
El et E2 sont deux instructions composées. 


sémantique : classique de l'instruction conditionnelle, si le processeur 
n’est pas lié au temps on peut écrire 


si P alors El sinon Qfsi = si P alors El fsi 

Nous notons =l1a relation d'équivalence entre instructions. Il s’agit 
d’une équivalence sémantique, ce qui signifie que les deux 
instructions donnent les mêmes résultats sur le même environnement. 


[l [] Boucle tantque 


syntaxe : tantque P faire FE ftant 
où P est un prédicat et E une instruction composée) 


sémantique 
tantque P faire E ftant =siP alors (E ; tantque P faire E ftant) fsi 


Remarques : 
Au sujet de la relation "=" qui est la notation pour l’équivalence sémantique en LDFA, on 
considère un "programme" LDFA non pas comme une suite d’instructions, mais comme un 
environnement donné avec un état initial EO , puis on évalue la modification de cet 
environnement que chaque action provoque sur lui: 
{Eo} — {A} {B} > > {Ek}> {Ex} 


où action n+1 : {E:}— {Es}. 


On obtient ainsi une suite d’informations sur l’environnement :(Eo, E1, …., Ex+1) 


Nous dirons alors que deux instructions (simples ou composées) sont sémantiquement 
équivalentes (notation = }si leurs actions associées sur le même environnement de départ 
provoquent la même modification. 


A chaque instruction est associée une action sur l’environnement, c’est le résultat qui est le 
même (même état de l’environnement avant et après) : 
Soient : Instrl — action (action associée à InstrT), 

Instr2 — action? (action associée à Instr2), 
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Soient E et E’ deux états de l’environnement, 
si nous avons : {E} action1 {E°} et {E} action2 {E°} .alors Instrl et Instr2 sont 
sémantiquement équivalentes, nous le noterons : 


Instr1i = Instr2 


I [] Boucle répéter 


syntaxe : repeter E jusqua P 
(où P est un prédicat et E une instruction composée) 


sémantique 
repeter FE jusqua P = E ; tantque notP faire E ftant 


Exemple d'équivalence entre itérations: 


tantque P faire E ftant = si P alors (repeter E jusqua not P) fsi 


repeter E jusqua P = E ; tantque not P faire E ftant (par définition) 


JOCseuermr > 


syntaxe : pour x <—— a jusqua b faire E fpour 
(où E est une instruction composée, x une variable, a et b des expressions 
dans un ensemble fini F totalement ordonné, la relation d’ordre étant 


notée < , le successeur d’un élément x dans l’ensemble est noté Succ(x) 
et son prédécesseur pred(x)) 


sémantiques : 
Cette boucle fonctionne à la fois en suivant automatiquement l’ordre 
croissant dans l’ensemble fini F ou en suivant automatiquement l’ordre 


décroissant, cela dépendra de la position respective de départ de la borne 
a et de la borne b. La variable x est appelée un indice de boucle. 


sémantique dans le cas ordre croissant à partir du tantque 
X <—— a ; 
tantque x < succ(b) faire 
E ; 
KA SUCC(X)N > 
ftant 


sémantique dans le cas ordre décroissant à partir du tantque 
X <—— à ; 
tantque x > pred(b) faire 
E ; 
x <— preci(x}) p 
ftant 
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Exemple simple : 


e E=N (entiers naturels) et la relation d’ordre : < = inférieur ou égal dans N 

° pour i < x jusquà y faire R FinPour 
(ici 1 prendra toutes les valeurs successives dans N comprises entre x et y soient, 
x+y-1 valeurs et s’incrémentera de 1 à chaque fois) 


I [] Sortie de boucle 


syntaxe: SortirSi P (où P est un prédicat ou une instruction vide)ne peut 
être utilisée qu'à l’intérieur d’une itération (tantque, répéter, pour). 


sémantique : termine par anticipation et immédiatement l'exécution de la 
boucle dans laquelle l'instruction SortirSi se trouve. 


Exemple récapitulatif complet 


Reprenons l’exemple précédent de l’équation du second degré en décrivant dans l’arbre de 
programmation l’action de la machine abstraite de chaque niveau à l’aide d’instructions du 
langage algorithmique LDFA : 


| Equation : 4x2 +Bx+C=0 


Niveau 0 


Niveau 1 


Niveau ? 


X1<-- ( B+Sqrt{Delta)}N(2*A) ; 
X2 <-- (- B-Sqgrt(Delta)}W(2*A) ; 
ecrire (XI, X2}; 


[si Delta=0 alors! |X1=-- - Bi(2*A); Sinon 
ecrire (Xl) ; 


Niveau 3 


figure de la branche d'arbre 2ème degré 
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Equation : 4x"2 +Bx+C-=0 
Niveau ® PR 


| $i A=0 alors 


Niveau 1 


| $i B-0 alors 


Niveau ? 


Niveau 3 


figure de la branche d'arbre 1” degré 
Ecriture de l'algorithme 


En relisant cet arbre selon un parcours en préordre (il s'agit de parcourir l'arbre en partant 
de la racine et descendant toujours par le fils le plus à gauche, puis ensuite de passer au fils 
droit suivant etc….), l'on obtient après avoir complété l’algorithme une écriture linéaire 
comme suit : 


Algorithme Equation 
Entrée: ABC € R3 
Sortie: X1 ,X2 e R2 
Local: A € R 
début 
lire(A,B,C); 
Si A=O0 alors / A=0 } 
Si B = 0 alors 
Si C = 0 alors 
écrire(R est solution) 
Sinon /Cz0} 
écrire(pas de solution) 
Fsi 
Sinon /B+0)} 
X1 <—_-C/B; 
écrire (X1) 
Fsi 
Sinon /Az0)} 


Les bases de l'informatique - programmation - (:6:. 05.09.2004 ) page 177 


Sinon /Az0)} 
Nb 4 Ace 
Si À < O alors 
écrire(pas de solution) 
Sinon /A>0} 
Si À = 0 alors 
X1< -B/(2*A); 
écrire(X 1) 
Sinon {A>0} 
X1 <— (-B+sqrt(A)) / (2*A); 
X2 <- (-B-sgrt(A)) / (2*A):; 
écrire( X1 , X2) 
Fsi 


Fsi 
FinEquation 


Nous regroupons toutes les informations de conception dans un document que nous appelons 
le dossier de développement. 


5. Le Dossier de développement 


C’est un document dans lequel se trouvent consignés tous les éléments relatifs à la construction et à l’écriture de 
l’algorithme et du programme résolvant le problème cherché. Nous le divisons en 5 parties. 


5.1 Enoncé et spécification 
Enoncé du problème résolu par ce logiciel. 


e Spécifications opérationnelles des abstractions de plus haut niveau du logiciel, en 
exprimant celles-ci à l'aide de types abstraits et de spécifications de plus bas niveau. 

e Spécifications des types abstraits de données utilisés. 

e Spécifications d'interface pour les abstractions de plus bas niveau. 


On utilisera ces trois techniques de spécification de manière descendante, quitte à remonter 
corriger des spécifications de niveau plus haut lorsque des erreurs seront apparues dans une 
spécification de plus bas niveau. Ces spécifications sont destinées au niveau " concepteur de 
logiciel ”, plutôt qu'à l'utilisateur. Cette partie rassemble les définitions abstraites des 
composants. Un utilisateur de base n'ayant à priori pas à consulter ce paragraphe, les termes 
employés seront les plus rigoureux possibles relativement à un formalisme éventuel. 
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Analyse des besoins : 
son utilité principale est de fournir à l'utilisateur la description des services que lui rendra ce 
logiciel. Les termes utilisés doivent être compris par l'utilisateur. 


5.2 Méthodologie 


Dans ce paragraphe se situent tous les documents et les explications qui ont pu mener à la 
décision de résoudre le problème posé par la méthode que l'on a choisie. Le programmeur 
dispose 1c1 de toute latitude pour s'exprimer à l'aide de texte en langue naturelle, de 
représentation graphique, d'outils ou de supports permettant au lecteur de se faire une idée 
précise du pourquoi des choix effectués. 


5.3 Environnement 


L'étudiant pourra présenter sous forme d’un tableau les principales informations concernant 
les données de son algorithme. 


Exemple : 
TVA en % 
PTTC Prix TTC 
5.4 Algorithme en LDFA 


Ici se situe la description de l'algorithme proposé pour résoudre le problème proposé. Il est 
obtenu entre autre à partir de l’arbre de programmation construit pendant l’analyse et la 
conception. Ci-dessous le modèle général d'un algorithme : 


Algorithme XYZT; 
global : 
local : 
entrée : 
sortie : 
modules utilisés : 
Spécifications : (TAD) 
Types Abstraits de Données utilisés 
début 
( corps d'algorithme en LDFÀ) 
fin XYZT. 
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Nous verrons ailleurs ce que représentent les notions de TAD et 
de module. 
5.5 Programme en langage de programmation (Pascal par exemple) 


Dans ce paragraphe nous ferons figurer la ” traduction " en langage de programmation de 
l’algorithme du paragraphe précédent. 


6. Trace formelle d’un algorithme 


Et le dernier [précept], de faire partout des dénombrements si entiers, et des revues si générales, que je fusse 
assuré de ne rien omettre. 
R Descartes Discours de la méthode, seconde partie, 1637. 


Nous proposons au débutant de vérifier l'exactitude de certaines parties de son algorithme en 
utilisant un petit outil permettant l'exécution formelle (c'est à dire sur des valeurs algébriques 
ou symboliques plutôt que numériques) de son algorithme. La trace numérique et les 
vérifications associées seront effectuées lors de l'exécution par la machine. 


6.1 Espace d’exécution d’une instruction composée 


On appelle espace d’exécution d’une séquence ou d’un bloc d’instructions 11...in 
n 


E 
k , nn. - D 
l’ensemble x-1 où FK est l’espace d’exécution de l’instruction i. 


Rappelons que l’on peut considérer un " programme " LDFA sous un autre point de vue : non 
pas comme une suite d’instructions, mais comme un environnement donné avec un état initial 
Eo , puis on évalue la modification de cet environnement que chaque instruction provoque sur 
lui. 


On considère les instructions x comme des transformateurs d'environnement E,;;: 
{Eo} En {Ei} 2 {BE} mA ce ne {Ex} Re {Ex} 


L'instruction 41 fait alors passer l'environnement de l'état E, à l'état E,:1. 
Nous écrirons ainsi : In+1 : {En} — {En+1} 


Ces actions déterminent alors une suite d’états de l’environnement (Eo,E:1,....Ex+1) que l’on 
peut observer. 
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C’est ce point de vue qui permet d’exécuter un suivi d’exécution symbolique d’un algorithme. 
Nous le nommerons " trace formelle ". 


On adoptera pour une trace formelle une disposition en tableau de l’espace d’exécution 
comme suit : 


Etats V. Nom Va 
E: == == y 
E x = y+1 


La colonne Etats représente donc les états successifs de l’environnement (ou espace 
d’exécution) figuré ici par les variables V:,V:...,V.. Les contenus des cellules du tableau sont 
les valeurs symboliques des variables au cours du déroulement de l’exécution. On peut 
considérer l'image mentale suivante de la trace formelle comme étant une succession de 
"photographies instantanées" de l'environnement prises après chaque instruction. 


6.2 Exemple complet avec trace formelle 
Nous traitons un exemple complet avec son dossier de développement et une trace formelle. 


Enoncé 


1 
Calculer S= i-1 sans utiliser de formule (car l'on sait que S=(n+1)n°2 ) 


Spécification : flux d’information 


En Entrée En Sortie 
Un nombre n e N° Écrire la somme voulue S. 


Méthodologie 


S est la somme des termes d'une suite récurrente : 


Si SO = 0 
Si = Si] + 1 
Environnement 
Nom genre localisation utilisation 
N Entier Entrée Nombre d’éléments à saisir 
S Entier Sortie Variable de cumul pour la somme 
I Entier local Gestion des boucles : compteur 
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Algorithme 


Algorithme Somentier 
NeN 
S,Ie N° 


Début /Somentier} 
(Eo) 
Lire (N) ; 
(E:) 
S <— 0; 
(E) 
I< 1; 
(E3) 
TantQue I < ? ? ? faire 
(Es) 
S <— S+I; 
(Es) <É— 
II]; 
(E6) <É— 
FinTant; 
(E) 
Ecrire(S); 
Fin Somentier 


Ceci est un algorithme incomplet dans lequel on a déjà intercalé les états (E;) entre les 
instructions. On ne sait pas exactement quel sera le test d’arrêt de la boucle (remplacé par ? ? 
?), on sait seulement que c’est la valeur de la variable de compteur I qui le fournira. 


Utilisation de la trace formelle 
Nous allons montrer à l’aide de la trace formelle que cet algorithme fournit bien la somme des 


n premiers entiers dans la variable S, relativement aux préconditions { S=0eti= 1}. 


Nous allons donc faire de la démonstration de programme : 


Précondition |Action Postcondition 
n 
{S=0eti- 1} | Algorithme di 
[S= } 


Nous pouvons avoir une hésitation quant à la borne du test "TantQue I < ???", faut-il 
s'arrêter à N, N-1 ou N+1 ? 


Posons comme hypothèse que le test s'arrête à la valeur N, soit : "TantQue I < N 
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Exécutons manuellement et pas à pas l’algorithme précédent en supposant que le test d'arrêt 
n’est pas franchi, c’est à dire que l’on a I > N. 


Voici le début des résultats de sa trace formelle dans le tableau ci-dessous : 


SPP ES CIN FU CI 


isolons les deux premiers " tours ” de boucle : 


Nous voyons que juste avant la sortie de boucle (état E6) au premier tour 1=2 et S=1, au 


deuxième tour 1-3 et S=3. 
k 


î 
Nous posons l’hypothèse de récurrence qu’au kème tour i=k+1 et S=i-1 (somme des k 
premiers entiers). Nous allons utiliser l’exécution formelle pas à pas d’un tour de boucle afin 
de voir si après un tour de plus cette hypothèse se vérifie au rang k+1 : 


L2 K+l 


i 
Or S= iz1 +k+1 = i-1 (la somme des k+1 premiers entiers). 
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Nous venons donc de montrer qu’à l’état E6 cet algorithme donne : 


3 


Nous pouvons déjà écrire que : V n, n > 0, S =i-1 


En plus ce dernier tableau nous permet immédiatement de trouver la valeur exacte de la 
variable de contrôle de la boucle (ici la variable I qui vaut n+1) et donc d’écrire un test 
d’arrêt de boucle juste. 


On peut alors choisir comme test I>n+1 ou bien I< n+1 etc. ou tout autre prédicat 
équivalent. 


Il était possible de programmer directement cet algorithme avec les deux autres boucles 
(pour. et répeter..). Ceci est proposé en exercice au lecteur. 


7. Traducteur élémentaire LDFA - Java / Pascal 


Nous venons de voir qu’un algorithme devait se traduire en langage de programmation (dit 
évolué). Nous fournirons ici un tableau qui sera utile à l’étudiant pour la traduction des 
instructions algorithmiques en langage de programmation. 


7.1 Traducteur 


Afin de bien montrer que l'écriture algorithmique est plus abstraite qu'un langage de 
programmation nous donnons un tableau de traduction LDFA dans deux langages : en Pascal 
de base et en Java? restreint aux instructions seulement: ( dans le tableau, P est un prédicat et E une 
instruction composée ) 
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LDFA Java 


Pascal 


: ' : as de traduction 
Q (instruction vide) P 


pas de traduction 


“bee de Le (de) begin il ; i2; 13; …. ; ik end 
K=@$ KR =A4 

x <—a 

, pas de traduction (ordre d'exécution) ; 
if (P)El; else E2 ; if P then El else E2 

Si P alors E1 sinon E2 Fsi ( attention, pas de fermeture !) ( attention, pas de fermeture !) 

; while (P) E; while P doE 

DER PA se (attention, pas de fermeture) (attention, pas de fermeture) 

do E ; while (!P ); repeat E until P 


répeter E jusquà P 


System.in.read( ) ; 


ÉGa) System.in.readin( ) ; 


Get(fichier) 


System.in.print( ) ; 
ecrire (x1,x2,x3......,xn ) System.in. printin( ) ; 


write(fichier,x1,x2,x3..…...,xn ) 
writeln(x1,x2,x3......,xn ) 
Put(fichier) 


for (int x= a; x <= b; x++) 


for x:=a to b do E (croissant) 


pour x <— a jusquà b faire E; 
E for x:=a downto b do E (décroissant) 
Fpour ( attention, pas de fermeture) 
SortirSi P if (P ) break ; if P then Break 


Ce tableau de traduction permet déjà d’écrire très rapidement des programmes Pascal et Java 


simples à partir d’algorithmes étudiés et écrits. 


7.2 Exemple 


En appliquant le traducteur à l’algorithme de l’équation du second degré nous obtenons le 


programme Pascal suivant : 


program equation; 
var 
A,B,C:real; 
X1,X2:real; 
Delta:real; 
begin 
readIn(A.,B,C); 
if A = 0 then /A=0) 
if B = 0 then 
if C=0 then 
writeln(R est solution) 
else 
writeln(‘pas de solution) 
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else 


begin 
X1 :=- C/B; 
writeln('x=",X1) 
end 
else 
begin 


Delta := B*B-4*A*C; 
if Delta < O then 
writeln('pas de solution’) 
else 
if Delta=0 then 
begin 
X1 :=-B/(2*A); 
writeln(x=",X1) 
end 
else 
begin 
X1 := (-B + Sqrt(Delta)) / (2*A); 
X2 := (-B - Sart(Delta)) / (2*A); 
writeln(x1=',X1,'x2=',X2) 
end 


end 
end. 


En appliquant le traducteur Java2 à ce même algorithme de l’équation du second degré, nous 
obtenons le squelette de programme Java2 suivant : 


System.out.printin ("tout reel est solution") ; 
else 
System.out.printin("il n'y a pas de solution") ; 
else { 
x =-C/b ; 
System.out.printin("la solution est " + x) ; 
} 
else { 
delta = b*b -4*a*c ; 
if (delta <0) 
System.out.printin("il n'y a pas de solution dans les reels") ; 
else 
if (delta == 0) { 
x1 =-b/(2*a) ; 
System.out.printin("il y a une solution double : "+x1) ; 
} 
else { 
x1 = (-b + Math.sqrt(delta)) / (2*a) ; 
x2 = (-b - Math.sqrt(delta)) / (2*a) ; 
System.out.printin("il y deux solutions égales a "+x1+" et "+ x2) ; 
} 


} etc. 
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7.3 Sécurité et ergonomie 


L'utilisation du traducteur manuel LDFA ——> Pascal fournit une version préliminaire de 
programme pascal fonctionnant sur des données correctes sans aucune présentation. 


Il appartient au programmeur de compléter dans un deuxième temps la partie sécurité associée 
aux contraintes du domaine de définition des variables et aux contraintes matérielles 
d'implantation. Enfin, dans un troisième temps, l’ergonomie (forme de l’échange 
d’information entre le programme et le futur utilisateur) sera envisagée et programmée. 


Voyons sur l’exemple de la somme des n premiers entiers déjà cité plus haut, comment ces 
trois étapes s’articulent . 


Etape de traduction-somme des n premiers entiers 


Texte final de l’algorithme de départ : Texte de sa traduction en pascal : 
Algorithme Somentier program Somentier ; 
NeN var N : integer ; 
S,Ie N° S,I : integer ; 
Début /Somentier} begin 
Lire (N) ; readIn(N) ; 
S <— (; S :=0 ; 
1-1; I :=1 ; 
TantQue I < N+1 faire while I < N+1 do 
S <— S+I; begin 
Ie It]; S := S +]; 
FinTant; L'=1#1; 
Ecrire(S): end; 
Fin Somentier writeln(S) 
end. 


Etape de sécurisation-somme des n premiers entiers 

Sécurité due aux domaines de définition des données 

La traduction ne permet pas d’écrire les domaines de définition des variables : en l’occurrence 
. . *% . . 2 1J2LC':e 

ici la variable NEN est traduite par ” var N : integer ", or le type prédéfini integer est un 
sous-ensemble des entiers relatifs Z, il est donc nécessaire d’éliminer les entiers négatifs ou 


nuls comme choix possible. 


Dès que l’utilisateur aura entré son nombre, le programme devra tester l’appartenance au bon 
intervalle afin de protéger la partie de code, par exemple avec une instruction de condition : 


if N>0 then begin 
// code protégé 


end 
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Protection programmée dans les pointillés en dessous dans le cadre de droite : 


program Somentier ; program Somentier ; 
var N : integer ; var N : integer ; 
S, I : integer ; S, I : integer ; 
begin begin 
readIn(N) ; readIn(N) ; 
if N>0 then begin 
S :=0 ; S :=0 ; 
I :=1 ; L:=1 : 
while I < N+1 dobegin While I < N+1 do begin 
S:=S +]; S:=S +]; 
I :=1I+1; I:=1+1; 
end; end; 
writeln(S) writeln(S) 
end 
end. end. 


Sécurité due aux contraintes d'implantation 


Si nous exécutons ce programme pour la valeur N=500, la valeur fournie en sortie est " -5822 
" sur un pascal 16 bits comme TP-pascal, le résultat n'est pas correct. Nous sommes 
confrontés au problème de la représentation des entiers machines déjà cité. Ici le type integer 
est restreint à l’intervalle /-32768,+32767] ; il y a manifestement dépassement de capacité 
(overflow) et le système a allègrement continué les calculs malgré ce dépassement. En effet, 
la somme vaut 500*501/2 soit 125250, cette valeur n’appartient pas à l’intervalle des integer. 


Le programmeur doit donc remédier à ce problème par un effort personnel de sécurisation de 
son programme en n’autorisant les calculs que pour des valeurs valides offrant un maximum 


de sécurité. 
k k 


è î 
Ici la variable S contient la somme 2 ; NOUS savons que 2 = k(k+1)/2, donc il suffira de 
résoudre dans N l’inéquation k(k+1)/2 < 32767 où n est l’inconnue. L’unique solution 
positive a pour partie entière 255, qui est la valeur maximale avant dépassement de capacité. 
Donc il suffit de protéger le code par un test supplémentaire sur la variable N : 


if (N > O) and (N < 256) then begin 
SE UE 
EE 
while I< N+1 do begin 
SES UR 
ILES JÉSITR 
end; 
writeln(S) 
end 
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En vérifiant sur l’exécution, nous trouvons que S — 32640 pour N = 255. Ce qui nous donne la 
version suivante du programme : 


program Somentier ; 
var N : integer ; 
S , I : integer ; 
begin 
readin(N) ; 
if (N > 0) and (N < 256) then begin 


S :=0 ; 

I :=1 ; 

while I< N+1 do begin 
S :=S +; 
I := I+1; 

end; 

writeln(S) 

end 
end. 


Etape d’ergonomie-somme des n premiers entiers 


Dans cet exemple, l’information à échanger avec l’utilisateur est très simple et ne nécessite 
pas une interface spéciale. Il s’agira de lui préciser les contraintes d’entrée et de lui présenter 
d’une manière claire le résultat. 


program Somentier ; 
var N : integer ; 
S , I : integer ; 
begin 
Write(‘Entrez un entier entre 0 et 255°) ; 
readin(N) ; 
if (N > 0) and (N < 256) then begin 


S :=0 ; 
I :=1 ; 
while I< N+1 do begin 
S :=S +; 
I:=1+1; 
end; 
writeln(‘la somme des ‘,N,’ premiers entiers vaut ‘,S) 
end 
else 
writeln(‘Calcul impossible ! !°) 
end. 


Vous remarquerez que les adjonctions supplémentaires de code (en italique) dans le 
programme final se montent à environ 50% du total du code écrit, car un logiciel n’est pas 
uniquement un algorithme traduit. 
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En continuant d’appliquer le principe de la programmation structurée, il est bon de bien 
séparer lors du développement la partie algorithmique des parties sécurité et ergonomie. Le 
programmeur débutant y gagnera en clarté dans sa méthode de travail. 


8. Facteurs de qualité du logiciel 


B.Meyer et G.Booch 


Constat 


Un utilisateur, lorsqu'il achète un produit comme un appareil électro- ménager ou une 


voiture, attend de son acquisition qu’elle possède un certain nombre de qualités (fiabilité, 
durabilité, efficacité, ..). Il en est de même avec un logiciel. 


Voici une liste minimale de critères de qualité du logiciel (proposée B.Meyer, G.Booch): 


Extensibilité 
Réutilisabilité Compatibilité 
Portabilité Vérificabilité Intégrité 


Facilité utilisation Modularité Lisibilité 
Abstraction RS RE 


Reprenons les définitions communément admises par ces deux auteurs sur ces facteurs de 
qualité. 


La correction est la qualité qu'un logiciel a de respecter les 


IUT. > spécifications qui ont été posées. 


La robustesse est la qualité qu'un logiciel a de fonctionner en 


[D se protégeant des conditions de dysfonctionnement. 


L'extensibilité est la qualité qu'un logiciel a d’accepter des 


modifications dans les spécifications et des adjonctions 
Il ur 


La réutilisabilité est la qualité qu'un logiciel a de pouvoir être 
intégré totalement ou partiellement sans réécriture dans un 
IT LRéutitisabitité nouveau code. 


La compatibilité est la qualité qu'un logiciel a de pouvoir être 


utilisé avec d'autres logiciels sans autre effort de conversion 
IL des données par exemple. 
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mea > L'efficacité est la qualité qu'un logiciel a de bien utiliser les 
ressources. 
La portabilité est la qualité qu'un logiciel a d'être facilement 
IL transféré sur de nombreux matériels, et insérable dans des 
environnements logiciels différents. 
La vérificabilité est la qualité qu'un logiciel a de se plier à la 
IL détection des fautes, au traçage pendant les phases de validation 
et de test. 


Il [née > L'intégrité est la qualité qu'un logiciel a de protéger son code et 
ses données contre des accès non prévus. 
La facilité d'utilisation est la qualité qu'un logiciel a de pouvoir 
DCE > être appris, utilisé, interfacé, de voir ses résultats rapidement 


compris, de pouvoir récupérer des erreurs courantes. 


[0 La lisibilité est la qualité qu'un logiciel a d'être lu par un être 
humain. 
La modularité est la qualité qu'un logiciel a d'être 
Il décomposable en éléments indépendants les uns des autres et 
répondants à un certain nombre de critères et de principes. 
L'abstraction est la qualité qu'un logiciel a de s’attacher à 
Il décrire les opérations sur les données et à ne manipuler ces 


données qu’à travers ces opérations. 


La production de logiciels de qualité n’est pas une spécificité des professionnels de la 
programmation ; c’est un état d’esprit induit par les méthodes du génie logiciel. Le débutant 
peut, et nous le verrons par la suite, construire des logiciels ayant des " qualités " sans avoir à 
fournir d’efforts supplémentaires. 


Bien au contraire la réalité a montré que les étudiants " bricoleurs " passaient finalement plus 


de temps à " bidouiller " un programme que lorsqu'ils décidaient d’user de méthode de 
travail. Une amélioration de la qualité générale du logiciel en est toujours le résultat. 
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Machines abstraites : exemple 


Traitement descendant modulaire d'un exemple complet 


Objectif : développer un exemple simple de construction d'une machine abstraite par 
décomposition descendante sur 4 niveaux. 


ENONCE 


On donne une liste de n noms (composés de lettres uniquement). Extrayez ceux qui sont le 
premier et le dernier par ordre alphabétique. Ecrire un programme Pascal effectuant cette 
opération. 


SPECIFICATIONS :(il s'agit d'éclaircir certaines décisions) 
Plan: 
Objets utilisés, 


machine abstraite, 
spécification de données. 


= Objets utilisés au niveau 1 oo 


Identification Signification 
( Liste , << ) Liste est un ensemble fini de noms où << est une relation 
d'ordre total 
Noms Ensemble de tous les noms possibles (chacun est 
constitué de lettres) 
élément Fonction fournissant le kième élément de la liste : 


élément : N* x Liste — Liste 


Grand Un élément de l'ensemble Noms : 
Grand € Noms 
Petit Un élément de l'ensemble Noms : 
Petit e Noms 
Long Fonction fournissant le nombre d’éléments de la liste : 


Long : Liste — N* 
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= Machine abstraite de niveau 1 | 


(description de haut niveau d'abstraction de l'algorithme choisi) 
Grand <- élément ( 1 , Liste) ; 
Petit < élément ( 1, Liste) ; 
Pour indice < 2 jusquà Long (Liste) faire 
Si Grand << élément (indice, Liste) alors 
Grand <- élément (indice, Liste) 
fsi ; 
Si élément (indice ,Liste) << Petit alors 
Petit <— élément (indice, Liste) 
fsi 
Fpour ; 
{Grand = le dernier et Petit = le premier } 


= Les données au niveau 1  — 


Identification Signification 
Noms Un ensemble de caractères 
( Liste , << ) Liste est un ensemble fini muni d'une relation d'ordre 
total << 
élément Fonction élément : N* x Liste — Liste 
(k, Liste) — élément (k, Liste) e Liste 
Long Fonction fournissant le nombre d’éléments de la liste : 
Long : Liste — N* 
Liste — Long (Liste) =n 


Nous avons ici une spécification abstraite de haut niveau. Il est impératif de prendre des 
décisions sur les structures de données qui vont être utilisées. Nous allons envisager le cas le 
plus simple : celui où la structure choisie pour représenter la liste est un tableau. 


a Les données au niveau2 | << 


Reprise des objets abstraits en les exprimant de la façon suivante : 


Cas À où la version pascal contient déjà les outils de chaînes 

e Liste = Tableau 

élément (1, Liste) = Liste[i] 

Long(Liste) = n , taille du tableau 

Noms : Type string 

<<: < (relation de comparaison lexicographique sur les chaînes) 
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Nous continuons à descendre dans les niveaux d’abstraction. Nous devons prendre des 
décisions sur le langage-cible. Il est dit dans l'énoncé que ce doit être Pascal, mais lequel ? 


Nous avons choisi dans ce premier cas, une version simple en prenant par exemple comme 
dialecte deux descendants de l'UCSD-Pascal, à savoir Think Pascal (Mac) ou Borland Pascal- 
Delphi (Windows-Linux) qui contiennent en prédéfini le type de chaîne de caractères. 


Ces spécifications de données étant établies, la machine précédente devient : 


ai > | Machine abstraite de niveau 2 | << 


Algorithme EXTRAITO 

Global : n € N* , Long_mot e N* 

Local : indice € N*, ( Grand , Petit) € Noms : 

Spécification: 
Noms = Type string prédéfini par une version d’implémentation du pascal. 
Liste — Tableau de Nom, de Taille n € N* fixée. 

Début 


Grand <- Liste|1] ; 
Petit <— Liste[1] ; 
Pour indice <2 jusquà n faire 
Si Grand < Liste[indice] alors Grand <- Liste[indice] fsi ; 
Si Liste[indice] < Petit alors Petit <— Liste[indice] fsi 
Fpour ; 


Fin_EXTRAITO 


Cet algorithme se traduit immédiatement en pascal. Nous voyons donc qu’il nous a été possible d’écrire ce 
petit programme en descendant uniquement sur 2 niveaux de spécifications. 


Qu'en est-il lorsque l’on travaille avec un autre langage cible (nous allons juste utiliser une 
version différente du même langage cible) ? Nous allons voir que nous devrons descendre 
alors plus loin dans les spécifications et développer plus de code c'est l'objectif de la suite de 
ce document. 


Cas B où la version pascal ne contient pas les outils de chaînes 
Reprenons partiellement la même spécification de données par un tableau de taille n pour la 


Liste, mais supposons que le langage-cible soit du Pascal ISO, dans lequel le type string 
n’existe pas. 
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cas B Les données au niveau2 | << 


Cas B où la version pascal ne contient pas d'outils de chaînes 

e__ Noms : Nous choisissons, afin de ne pas nous perdre en complexités inutiles, de spécifier 
la l'ensemble des caractères par un tableau de caractères : notons le Tchar 

Liste = Tableau de Tchar 

élément (1, Liste) = Liste[i] 

Long(Liste) = n , taille du tableau. 

<<: CMP (opérateur de relation de comparaison sur les Tchar) 


cas B = Machine abstraite CMP 


Ces choix de spécification induisent un choix de développement d'une machine abstraite 
spécifique à la relation d'ordre << , qui n'est pas un opérateur simple du langage : nous avons 
dénoté la machine par le nom CMP. 


Noms = Tchar 
Taille de Tchar =n 
chl e Tchar, ch2 e Tchar 


Spécification de l’opérateur ‘CMP ’de comparaison de chaînes : 
CMP : Tchar x Tchar — { Vrai, Faux } 

CMP (ch1,ch2) = Vrai ssi (ch1 < ch2) ou (ch1 = ch2) 
CMP (ch1,ch2) = Faux ssi ch2 < ch1 


CMP D chl e Noms, 
ch2 e Noms 


Descendons dans les spécifications plus concrètes de la machine abstraite de comparaison, 
spécifions d'une manière plus détaillée, les données Noms et Liste de la machine abstraite 
CMP, en répondant aux deux questions ci-dessous : 


Noms = Tableau de caractères noté Tchar , comment est-il représenté ? 
Liste = Tableau de Tchar , comment est-il représenté ? 
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cas B Les données au niveau 3 | << 


Noms = Tableau de caractères 


Un nom Noms : Noms [1] = le caractère de rang 1-1 
1 2 Long_mot e Taille = Long_mot 


e caractère spécial = # 


Une liste de noms Liste : 


Liste = Tableau de noms 


Liste[i] = le Noms de rang i 
Attribut : 


Taille = n 


On dispose d'une relation d'ordre sur les caractères (ordre ASCII) notée <. 


5 | Machine CMPaenieau3 | T° 


Décrivons une première version de CMP en tenant compte des spécifications de données 
précédentes. 


Tantque (les caractères lus de ch1 et de ch2 sont les mêmes) 
et (ch1 non entièrement exploré) et (ch2 non entièrement exploré) faire 
passer au caractère lu suivant dans ch1 ; 
passer au caractère lu suivant dans ch? ; 
Ftant ; 
Si (ch1 et ch? finis en même temps) alors ch1=ch2 fsi ; 
Si (ch1 fini avant ch2) ou (car_Lu de ch1 < car_Lu de ch2) alors ch1 < ch2 fsi ; 
Si (ch? fini avant ch1) ou (car_Lu de ch2 < car_Lu de ch1) alors ch2 < ch1 fsi ; 


Descendons plus bas dans les niveaux d’abstraction. 
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= [Machine CMP de niveau 4] ET 


Notre travail va consister à expliciter, à l'aide des structures de données choisies les phrases 
de haut niveau d'abstraction de la spécification de niveau 3 de CMP (en italique le niveau 3, 
en gras le niveau 4): 


spécification de niveau 3 de CMP spécification de niveau 4 de CMP 

car_Lu de ch1 ch1l[i] (ième caractère de ch1) 

car_Lu de ch2 ch2[k] (kème caractère de ch2) 

ch1 fini ou entièrement exploré ch1li] = # 

Ch2 fini ou entièrement exploré ch2[k] = # 

les caractères lus de ch1 et de ch2 sont les mêmes |ch1[i] = ch2{i] 

caractère suivant de chl , ch2 Si caractère actuel = ch1[k] alors 

caractère suivant = ch1[k+1], 

idem pour ch2 


La spécification opérationnelle de niveau 4 de CMP devient alors : 
Tantque (ch1[k] = ch2[k] ) et ( ch1[k] Z# ) et ( ch2[k] z #) faire 
KP 
Ftant ; 
Si ( ch1[k] = # ) et ( ch2[k] = # ) alors CMP <- Vrai fsi ; 
Si ( ch1[k] = # ) ou (ch1[k] < ch2[k] ) alors CMP <- Vrai fsi ; 
Si ( ch2[k] = # ) ou (ch2[k] < ch1[k] ) alors CMP <- Faux fsi ; 


Il faut prévoir d'initialiser le processus au premier caractère k=1 d'où maintenant une 
spécification de l'algorithme : 


— 
Algorithme CMP 
Local : k e N* 
entrée : ( chl , ch2 ) e Noms” 
sortie : CMP € { Vrai, Faux } 
Spécification: 


Noms = Tableau de Taille Long_mot fixée disposant d'un caractère de fin (#) 
Début 

k< 1; 

Tantque(ch1[k] = ch2{k]) et (ch1[k] z #) et (ch2[k] z # ) faire 

k< k+1 

Ftant ; 

Si( ch1[k] = '#' ) et ( ch2[k] ='# ) alors CMP < Vrai fsi ; 

Si ( ch1[k] = '# ) ou (ch1[k] < ch2[k] ) alors CMP <- Vrai fsi ; 

Si ( ch2[k] = '#' ) ou (ch2[k] < ch1{[k] ) alors CMP +<- Faux fsi ; 
Fin _ CMP. 
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Puis en intégrant la machine abstraite CMP de niveau 4 avec les spécifications de TAD 
décrites précédemment, le tout dans la spécification de niveau 3 de l'algorithme choisi, nous 
obtenons l'algorithme final suivant : 


cas B = Algorithme EXTRAITI niveau 4 | << 


Algorithme EXTRAITI1 
Global : n e N*,Long_mot € N* 
Local : indice e N*, ( Grand , Petit ) Noms” 


module utilisé : 


Spécification: 
Noms = Tableau de caractères, de Taille Long_mot fixée disposant d'un attribut marqueur 
de fin, qui est le caractère spécial # . 
Liste = Tableau de Noms, de Taille n € N* fixée. 
TAD utilisés: 
e Tableau de caractère de dimension 1. 
e Tableau de Noms de dimension 1. 
Début 


Grand <- Listel1] ; 
Petit < Liste[1] ; 
Pour indice <- 2 jusquà n faire 
Si CMP(Grand , Liste[indice] ) alors Grand <- Liste[indice] fsi ; 
Si CMP(Liste[indice] , Petit ) alors Petit <— Liste[indice] fsi 
Fpour ; 


Fin EXTRAIT1. 


Voici une traduction possible en Pascal de cet algorithme. 


Program EXTRAIT]; 
Const 

Taille = 5; 

Long_mot = 20; 
Type 


Nom = array[1..Taille] of Char; 

List_noms = array[1..Long_mot | of Nom; 
Var 

Liste : List noms; 

indice : integer; 

Grand,Petit : Nom; 
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function CMP (ch1,ch2:Nom):Boolean; 
var 
Kk : integer; 
begin 
k:=1 
While (ch1[k]=ch2[k])and(ch1[k]<'#')and(ch2[k]<'#") do k:=k+1; 
if (ch1[k]='#')and(ch2[k]='#") then result :=True; 
if (ch1[k]='#')or(ch1[k]<ch2[k]) then result :=True; 
if (ch2[k]='#')or(ch2[k]<ch1[k]) then result :=False; 
end; {CMP} 


procedure INIT_Liste; 
begin 

{initialise la liste des noms terminés par des #} 
end; 


procedure ECRIRE_Nom (name:Nom); 
begin 

{écrit sur une même ligne les caractères qui composent la variable name, sans le #]} 
end; {ECRIRE_Nom} 


Begin {EXTRAIT} 
INIT_ Liste; 
Grand:=Liste|1 |; 
Petit:=Liste] 1]; 
for indice:=2 to taille do 
begin 
if CMP(Liste[indice],Petit) then Petit := Liste[indice]; 
if CMP(Grand,Liste[indice]) then Grand := Liste[indice]; 
end; 
write('Le premier est : ‘); 
ECRIRE _Nom(Petit); 
write('Le dernier est : "}; 
ECRIRE _Nom(Grand); 
End.{ EXTRAIT } 


Le lecteur comprendra à partir de cet exemple que les langages de programmation sont très nombreux et 
que le choix d’un langage pour développer la solution d’un problème est un élément important. 


Autres versions possibles à partir de CMP 

La version d’implantation de CMP du niveau 4” a été conçue sur une structure de données 
tableau terminée par une sentinelle (le caractère #). Elle a été implantée par une fonction en 
pascal. 
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Il est possible de réécrire d’autres version d’implantation de cette même machine CMP avec 
des structures de données différentes comme un tableau avec un attribut de longueur ou bien 


une structure liste dynamique : 


sentinelle : 


ECTS CI CIE 


attribut : 


ÉCRIS 
Ee—| 


pan 


pointeur : 


Fig - schéma des trois représentations des données (a, 


> di) 


Nous engageons le lecteur à écrire à chaque fois l’algorithme associé et à le traduire en un 


programme pascal. 


Nous donnons ci-après, au lecteur les trois versions d’implantation en pascal de la fonction 


CMP associée (sentinelle, pointeur, attribut). 


CMP 
programme avec sentinelle 


sentinelle : 


pulse [eelof 


function CMP(ch1,ch2:Nom):Boolean; 
var 
k : integer; 
begin 
k:=1 
While (ch1[k]=ch2[k]) 
and(ch1[k]<'#') 
and(ch2[k]<'#) do 
k:=k+1; 
if (ch1[k]='#)and(ch2[k]='#") then 
result :=True; 
if (ch1[k]='#)or(ch1[k]<ch2[k]) then 
result :=True; 
if (ch2[k]='#)or(ch2[k]<ch1[k]) then 
result :=False; 
end;/CMP} 
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type pchaine="chaine; 
CMP chaine=record 
programme avec pointeur car:char; 
suiv:pchaine; 
end; 


function CMP(ch1,ch2:Nom):Boolean; 
begin 
while ((ch1”.car=ch2".car) 
and (ch1”.suiv<nil) 
and (ch2* .suiv<nil)) do 
begin 
chl:=chl.suiv; 
ch2:=ch2" suiv; 
end; 
if ((ch1”.suiv=nil) and (ch2”.suiv=nil)) then 
CMP:=true; 
if (((ch1.suiv=nil) and (ch2.suiv<nil)) 
or (ch1/.car<ch2”.car)) then result:=true; 
if (((ch2.suiv=nil) and (ch1.suiv<nil)) 
or (ch1/.carch2”.car)) then result:=false; 
end;/CMP} 


ES 


pointeur : 


const MaxCar=1000; 
CMP type inter=0..MaxCar; 
programme avec attribut chaine=record 
long:integer; 
car:array|[1..MaxCar] of char; 
end; 


attribut : function CMP(ch1,ch2:Nom):Boolean; 


var n:integer; 
a 
n:=|; 
| while (ch1.car[n]=ch2.car[n]) 
and ((n<n1) 
and (n<n2)) do 
n:=n+]; 
if ((n=ch1.long) and (n=ch2.long)) then 
result :=true; 
if (((n=chl1.long) and (n<ch2.long)) 
or (ch1.car[n]<ch2.car{[n])) then 
result:=true; 
if((n=ch2.long) and (n<ch1.long)) 
or (chl.car{[n]ch2.car[n]) then 
result:=false; 
end;/CMP} 
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3.2 : Modularité 


Plan du chapitre: Ë 


1. La modularité 


1.1 Notion de module 


1.2 Critères principaux de modularité 
La décomposabilité modulaire 
La composition modulaire 
La continuité modulaire 
La compréhension modulaire 
La protection modulaire 


1.3 Préceptes minimaux de construction modulaire 
Interface de données minimale 
Couplage minimal 
Interfaces explicites 
Information publique et privée 


2. La modularité par les unit en pascal UCSD 
2.1 Partie " public " d’une UNIT : "Interface " 


2.2 Partie " privée " d’une UNIT : "Implementation " 
2.3 Partie initialisation d’une UNIT 
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1. Modularité (selon B.Meyer) 


1.1 Notion de module 


Le mot MODULE est un des mots les plus employés en programmation moderne. Nous 
allons expliquer ici ce que l'on demande, à une méthode de construction modulaire de 
logiciels, de posséder comme propriétés, puis nous verrons comment dans certaines 
extensions de Pascal sur micro-ordinateur (Pascal, Delphi), cette notion de module se 
trouve implantée. 


B.Meyer est l’un des principaux auteurs avec G.Booch qui ont le plus travaillé sur cette 
notion. Le premier a implanté ses idées dans le langage orienté objet " Eiffel ", le second a 
utilisé la modularité du langage Ada pour introduire le concept d’objet qui a été la base de 
méthodes de conception orientées objet : OOD, HOOD,UML... 


Nous nous appuyons ici sur les concepts énoncés par B.Mever fondés sur 5 critères et 6 
principes relativement à une méthodologie d’analyse de type modulaire. Une démarche (et 
donc le logiciel construit qui en découle) est dite modulaire si elle respecte au moins les 
concepts ci-après. 


1.2 Critères principaux de modularité 


Les 5 principes retenus : 


e La décomposabilité modulaire 
e La composition modulaire 
e La continuité modulaire 


e La compréhension modulaire 


e La protection modulaire 


Définitions et réalisations en Pascal de ces cinq principes 


La décomposabilité modulaire : 


capacité de décomposer un problème en sous-problèmes, semblable à la méthode structurée 
descendante. 


Réalisation de ce critère en Pascal : 


La hiérarchie descendante des procédures et des fonctions. 
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Illustration de la décomposabilité en Pascal : 


programme Principal 


La composition modulaire : 


capacité de recombinaison et de réagencement de modules écrits, semblable à la partie 
ascendante de la programmation structurée. 


Réalisation de ce critère en Pascal : 


N'existe pas en Pascal standard, toutefois la notion d'UNIT en Pascal UCSD (dont le 
Delphi est un descendant) et de Library en sont deux implantations partielles. 


Illustration de la composition en Pascal : 


chent de À B C 


=) (===) 


program Principal 


La continuité modulaire : 
capacité à réduire l’impact de changements dans les spécifications à un minimum de 
modules liés entre eux, et mieux à un seul module. 

Réalisation de ce critère en Pascal : 


Partiellement ; le cas particulier des constantes symboliques en Pascal standard, au 
paragraphe const, montre l’intérêt de ce critère. 

Exemple : const n=10 ; 

for i :=1 to n do .… 


if T1 <nthen … 
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Il suffit de changer la ligne const n=10 pour modifier automatiquement les instructions où 
intervient la constante n, sans avoir à les réécrire toutes. Cette pratique en Pascal est très utile 
en particulier lorsqu'il s’agit de compenser le défaut dans la continuité modulaire, apporté par 
la notion de tableau statique dont les bornes doivent être connues à l’avance. 


La compréhension modulaire : 
capacité à l’interprétation par un programmeur du fonctionnement d’un module ou d’un 
ensemble de modules liés, sans avoir à connaître tout le logiciel. 

Réalisation de ce critère en Pascal : 


Partiellement à la charge du programmeur en écrivant des procédures et des fonctions qui 
s’appellent le moins possible. Chaque procédure ou fonction doit être dédiée à une tâche 
autonome. 


Plus efficace dans Delphi grâce à la notion d'UNIT. 


La protection modulaire : 
capacité à limiter les effets produits par des incidents lors de l’exécution à un nombre 
minimal de modules liés entre eux, mieux à un seul module. 

Réalisation de ce critère en Pascal : 


Correcte en Pascal grâce au contrôle des types et des bornes des paramètres d'entrées ou de 
sorties d'une procédure ou d'une fonction. Les variables locales permettent de restreindre la 
portée d’un incident. 


Attention | Les pointeurs en Pascal 


Le type pointeur met fortement en défaut ce critère, car sa gestion mémoire est de bas 
niveau et donc confiée au programmeur ; les pointeurs ne respectent même pas la notion 
de variable locale! 

En général le passage par adresse met en défaut le principe de protection modulaire. 


1.3 Préceptes minimaux de construction modulaire 


Etant débutants, nous utiliserons quatre des six préceptes énoncés par B.Meyer. Ils sont 
essentiels et sont adoptés par tous ceux qui pratiquent des méthodes de programmation 
modulaire : 


Interface de données minimale 
Couplage minimal 

Interfaces explicites 
Information publique et privée 
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Précepte 1 : Interface de données minimale 
Un module fixé doit ne communiquer qu’avec un nombre " minimum " d’autres modules du 
logiciel. L’objectif est de minimiser le nombre d'interconnexions entre les modules. Le 
graphe établissant les liaisons entre les modules est noté ” graphe de dépendance ”. Il doit 
être le moins maillé possible. La situation est semblable à celle que nous avons rencontré 
lors de la description des différentes topologies des réseaux d’ordinateurs : les liaisons les 
plus simples sont les liaisons en étoile, les plus complexes (donc ici déconseillées) sont les 


liaisons totalement maillées. 


L'intérêt de ce précepte est de garantir un meilleur respect des critères de continuité et de 
protection modulaire. Les effets d'une modification du code source ou d'une erreur durant 
l'exécution dans un module peuvent se propager à un nombre plus ou moins important de 
modules en suivant le graphe de liaison. Un débutant optera pour une architecture de liaison 
simple, ce qui induira une construction contraignante du logiciel. L’optimum est défini par le 
programmeur avec l’habitude de la programmation. 


Réalisation de ce précept en Pascal : 


Le graphe de dépendance des procédures et des fonctions sera arborescent ou en étoile. 


Précepte 2 : Couplage minimal 
Lorsque deux modules communiquent entre eux, l’échange d’information doit être 
minimal. Ce précepte ne fait pas double emploi avec le précédent. Il s'agit de minimiser 
la aille des interconnexions entre modules et non leur nombre comme dans le précepte 
précédent. 
Réalisation de ce précept en Pascal : 
En général, nous avons aussi un couplage fort lorsqu'on introduit toutes les variables 
comme globales (donc à éviter, ce qui se produit au stade du débutant). D'autre part la 
notion de visibilité dans les blocs imbriqués et la portée des variables Pascal donne accès 
à des données qui ne sont pas toutes utiles au niveau le plus bas. 


Précepte 3 : Interfaces explicites 
Lorsque deux modules M1 et M2 communiquent, l’échange d’information doit être 
lisible explicitement dans l’un des deux ou dans les deux modules. 
Réalisation de ce précept en Pascal : 
L'utilisation des données globales ou de la notion de visibilité nuit aussi à ce principe. Le 
risque de battre en brèche le précepte des interfaces explicites est alors de conduire à des 
accès de données injustifiés (problème classique des effets de bord, où l’on utilise 
implicitement dans un bloc une donnée visible mais non déclarée dans ce bloc). 


Précepte 4 : Information publique et privée 

Toute information dans un module doit être répartie en deux catégories : l’information 
privée et l’information publique. 

Ce précepte permet de modifier la partie privée sans que les clients (modules utilisant ce 
module) aient à supporter un quelconque problème à cause de modifications ou de 
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changements. Plus la partie publique est petite, plus on a de chances que des changements 
n'aient que peu d'effet sur les clients du module. 


e La partie publique doit être la description des opérations ou du fonctionnement du 
module. 


e La partie privée contient l’implantation des opérateurs et tout ce qui s'y rattache. 


Réalisation de ce précept en Pascal : 


Le Pascal standard ne permet absolument pas de respecter ce principe dans le cadre général. 
Delphi, avec la notion d'UNIT cotient une approche partielle mais utile de ce principe. Les 
prémisses de cette approche existent malgré tout dans les notions de variables et de 
procédures locales à une procédure. La notion de classe en Delphi implante complètement 
ce principe. 


Enfin et pour mémoire nous citerons l'existence du précepte d'ouverture-fermeture et du précepte d'unités 
linguistiques. 


2. La modularité par les Unit avec Delphi 


La notion de UNIT a été introduite en Pascal UCSD ancêtre de Delphi 


Rappelons que Delphi et les versions de compilateurs libres gratuit comme FreePascal 
compiler, Obéron etc. présentes sur Internet fonctionnant sur les micro-ordinateurs type PC, 
ainsi que le Think Pascal de Symantec fonctionnant sur les MacIntosh d’Apple, sont tous une 
extension du Pascal UCSD. Il est donc possible sur du matériel courant d’utiliser la notion 
d’UNIT simulant le premier niveau du concept de module. 


Cet élément représente une unité compilable séparément de tout programme et stockable en 
bibliothèque. Une Unit comporte une partie ” public " et une partie ” privé ". Elle implante 
donc l’idée de module et étend la notion de bloc (procédure ou fonction) en Pascal. 


Syntaxe : 


Exemple : 


Unit Truc; 
<partie public> 
<partie privée> 
<initialisation> 
end. 
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2.1 Partie " public " d’une UNIT : " Interface " 


Correspond exactement à la partie publique du module représenté par la UNIT. Cette partie 
décrit les en-têtes des procédures et des fonctions publiques utilisables par les clients. Les 
clients peuvent être soit d’autres procédures Pascal, des programmes Delphi ou d’autres Unit. 


La clause Uses XXX dans un programme Delphi, permet d’indiquer la référence à la Unit 
XXX et autorise l’accès aux procédures et fonctions publiques de l’interface dans tout le 


programme. 


Syntaxe : 


Déclaration d'utilisation 


(const }) Déclaration de constantes 


6 
> mem 
a 


SR APE Déclaration de variables nn 
ni Déclaration d'en-tête de proc. et de fonct. 


Exemple : 


Unit Truc ; 
interface 
Uses Machin, Chose; 
const 
a=10; 
re 
Type 
amoi=12..36; 
var 
X, y : Integer; 
Z : AMOI; 
implementation 


end. 
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2.2 Partie " privée " d’une UNIT : " Implementation " 


Correspond à la partie privée du module représenté par la UNIT. Cette partie intimement liée 
à l’interface, contient le code interne du module. Elle contient deux sortes d’éléments : les 
déclarations complètes des procédures et des fonctions privées ainsi que les structures de 
données privées. Elle contient aussi les déclarations complètes des fonctions et procédures 
publiques dont les en-têtes sont présentes dans l’interface. 


Syntaxe : 


Déclaration d'utilisation 


> mem 
ED retro | — 


mi éclaration complète des proc. et fonc 


Go) 
EURPAY | 
@ 


Exemple : 


Unit Truc ; 
interface 
Uses Machin, Chose; 
const 

a=10; 

x—IaË 


Type 
amoi = 12..36; 


var 
X, y : Integer; 
Z : AaMOI; 


procedure P1(x:real;var u:integer); 
procedure P2(u,v:char;var x,y,t:amoi); 
function F(x:real):boolean; 
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implementation 


procedure P1(x:real;var u:integer); 
begin 

< corps de procédure > 

end; 


procedure P2(u,v:char;var x,y,t:amoi); 
begin 

< corps de procédure > 

end; 


function F(x:real):boolean; 
begin 

< corps de fonction > 

end; 


end. 


2.3 Partie initialisation d’une UNIT 


Il est possible d'initialiser des variables et d'exécuter des instructions au lancement de l'UNIT. 
Elles correspondent à des instructions classiques Pascal sur des données publiques ou privées 
de la Unit (initialisation de tableaux, mise à zéro de divers indicateurs, chargement de fichiers 
etc….): 
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3.3 : Complexité, tri, recherche 


Plan du chapitre: Ë 


1. Complexité d'un algorithme 


1.1 Notions de complexité temporelle et spatiale 
1.2 Mesure de la complexité temporelle d'un algorithme 
1.3 Notation de Landau O(n) 


2. Trier des tableaux en mémoire centrale 


2.1 Tri interne, tri externe 
2.2 Des algorithmes classiques de tri interne 
e Le Tri à bulles 
e Le Tri par sélection 
e Le ri par insertion 
e Le Tri rapide QuickSort 


© Le Tri par tas HeapSort 
3. Rechercher dans un tableau 


3.1 Recherche dans un tableau non trié 
3.2 Recherche dans un tableau trié 
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1. Complexité d'un algorithme et performance 


Nous faisons la distinction entre les méthodes (algorithmes) de tri d'un grand nombre 
d'éléments (plusieurs milliers ou plus), et le tri de quelques éléments (quelques dizaines, voir 
quelques centaines ). Pour de très petits nombres d'éléments, la méthode importe peu. Il est 
intéressant de pouvoir comparer différents algorithmes de tris afin de savoir quand les utiliser. 
Ce que nous énonçons dans ce paragraphe s'applique en général à tous les algorithmes et en 
particulier aux algorithmes de tris qui en sont une excellente illustration. 


1.1 Notions de complexité temporelle et spatiale 


L'efficacité d'un algorithme est directement liée au programme à implémenter sur un 
ordinateur. Le programme va s'exécuter en un temps fini et va mobiliser des ressources 


mémoires pendant son exécution; ces deux paramètres se dénomment complexité temporelle 
et complexité spatiale. 


Dès le début de l'informatique les deux paramètres "temps d'exécution" et "place mémoire" 
ont eu une importance à peu près égale pour comparer l'efficacité relative des algorithmes. Il 
est clair que depuis que l'on peut, à coût très réduit avoir des mémoires centrales d'environ 1 
Giga octets dans une machine personnelle, les soucis de place en mémoire centrale qui 
s'étaient fait jour lorsque l'on travaillait avec des mémoires centrales de 128 Kiïlo octets (pour 
des gros matériels de recherche des années 70) sont repoussés psychologiquement plus loin 
pour un utilisateur normal. Comme c'est le système d'exploitation qui gère la mémoire 
disponible ( RAM, cache, virtuelle etc….), les analyses de performances de gestion de la 
mémoire peuvent varier pour le même programme. 


Le facteur temps d'exécution reste l'élément qualitatif le plus perceptible par l'utilisateur d'un 
programme ne serait ce que parce qu'il attend derrière son écran le résultat d'un travail qui 
représente l'exécution d'un algorithme. 


L'informatique reste une science de l'ingénieur ce qui signifie ici, que malgré toutes les études 
ou les critères théoriques permettant de comparer l'efficacité de deux algorithmes dans 
l'absolu, dans la pratique nous ne pourrons pas dire qu'il y a un meilleur algorithme pour 
résoudre tel type de problème. Une méthode pouvant être lente pour certaines configurations 
de données et dans une autre application qui travaille systématiquement sur une configuration 
de données favorables la méthode peut s'avérer être la "meilleure". 

La recherche de la performance à tout prix est aussi inefficace que l'attitude contraire. 


Prenons à notre compte les recommandations de R.Sedgewick : 


Quel que soit le problème mettez d'abord en œuvre l'algorithme le plus simple, solution du problème, car le 


A" 


temps nécessaire à l'implantation et à la mise au point d'un algorithme "optimisé" peut être bien plus 
important que le temps requis pour simplement faire fonctionner un programme légèrement moins rapide. 
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Il nous faut donc un outil permettant de comparer l'efficacité ou complexité d'un algorithme à 
celle d'un autre algorithme résolvant le même problème. 


1.2 Mesure de la complexité temporelle d'un algorithme 


1.2.1 La complexité temporelle 

1.2.2 Complexité d'une séquence d'instructions 
1.2.3 Complexité d'une instruction conditionnelle 
1.2.4 Complexité d'une itération finie bornée 


Nous prenons le parti de nous intéresser uniquement au temps théorique d'exécution d'un 
algorithme. Pourquoi théorique et non pratique ? Parce que le temps pratique d'exécution d'un 
programme, comme nous l'avons signalé plus haut dépend : 


e de la machine (par exemple processeur travaillant avec des jeux d'instructions 
optimisées ou non), 

e du système d'exploitation (par exemple dans la gestion multi-tâche des 
processus), 

e du compilateur du langage dans lequel l'algorithme sera traduit (compilateur 
natif pour un processeur donné ou non), 
des données utilisées par le programme (nature et/ou taille), 
d'un facteur intrinsèque à l'algorithme. 


Nous souhaitons donc pouvoir utiliser un instrument mathématique de mesure qui rende 
compte de l'efficacité spécifique d'un algorithme indépendamment de son implantation en 
langage évolué sur une machine. Tout en sachant bien que certains algorithmes ne pourront 
pas être analysés ainsi soit parce que mathématiquement cela est impossible, soit parce que les 
configurations de données ne sont pas spécifiées d'un manière précise, soit parce que le temps 
mis à analyser correctement l'algorithme dépasserait le temps de loisir et de travail disponible 
du développeur ! 


Notre instrument, la complexité temporelle, est fondé sur des outils abstraits (qui ont leur 
correspondance concrète dans un langage de programmation). L'outil le plus connu est 
l'opération élémentaire (quantité abstraite définie intuitivement ou d'une manière évidente par 
le développeur). 


Notion d'opération élémentaire 

Une opération élémentaire est une opération fondamentale d'un algorithme si le temps 
d'exécution est directement lié (par une formule mathématique ou empirique) au nombre de 
ces opérations élémentaires. Il peut y avoir plusieurs opérations élémentaires dans un même 
algorithme. 


Nous pourrons ainsi comparer deux algorithmes résolvant le même problème en comparant ce 
nombre d'opérations élémentaires effectuées par chacun des deux algorithmes. 
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1.2.1 La complexité temporelle : notation 
C'est le décompte du nombre d'opérations élémentaires effectuées par un algorithme donné. 


Il n'existe pas de méthodologie systématique (art de l'ingénieur) permettant pour un 
algorithme quelconque de compter les opérations élémentaires. Toutefois des règles usuelles 
sont communément admises par la communauté des informaticiens qui les utilisent pour 
évaluer la complexité temporelle. 


Soient ji1 , i2 ; … , ix des instructions algorithmiques (affectation, itération, condition...) 
Soit une opération élémentaire dénotée OpElem, supposons qu'elle apparaisse n, fois dans 
l'instruction is, n2 fois dans l'instruction b, … ne fois dans l'instruction ik. Nous noterons 
Nb(i) le nombre n;, Nb() le nombre n etc. 


Nous définissons ainsi la fonction Nb (x ) indiquant le nombre d'opérations élémentaires 
dénoté OpElem contenu dans l'instruction algorithmique 1, : 
Nb ): Instruction > Entier. 


1.2.2 Complexité temporelle d'une séquence d'instructions 


Soit S la séquence d'exécution des instructions x 3 i2 3 … 5 ix , SOit nx =Nb (ik ) le nombre 
d'opérations élémentaires de l'instruction ix. 


Le nombre d'opérations élémentaires OpElem de S, Nb(S) est égal par définition à la somme 
des nombres: n1 + n2 + … + nK: 


début 

l1 ; 

i . 
S = .. 
ss; 

Ïk 


fin 


NDS) =  Nb(i,) = n3 + M2 + … + Mk 


1.2.3 Complexité temporelle d'une instruction conditionnelle 
Dans les instructions conditionnelles étant donné qu'il n'est pas possible d'une manière 
générale de déterminer systématiquement quelle partie de l'instruction est exécutée (le alors 
ou le sinon), on prend donc un majorant : 

si Expr alors El 


Cond = sinon E2 
fsi 


Nb( Cond ) < Nb( Expr) + max ( Nb( EI ) , Nb( E2 )) 
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1.2.4 Complexité temporelle d'une itération finie bornée 


Dans le cas d'une boucle finie bornée (comme pour…fpour) contrôlée par une variable d'indice 
"1", l'on connaît le nombre exact d'itérations noté Nbr _ d'itérations de l'ensemble des 
instructions composant le corps de la boucle dénotées S (où S est une séquence 
d'instructions), l'arrêt étant assuré par la condition de sortie Expr(i) dépendant de la variable 
d'indice de boucle 1. 


La complexité est égale au produit du nombre d'itérations par la somme de la complexité de la 
séquence d'instructions du corps et de celle de l'évaluation de la condition d'arrêt Expr(i). 


Itération Expr(i) 


Iter = " 
finitér 


Nb Iter ) = [ Nb S) + Nb(Expr(i)) ] x Nbr_d'itérations 


Exemple dans le cas d'une boucle pour...fpour : 


pour i<-- à jusquà b faire 


l1 ; 


La complexité de la condition d'arrêt est par définition de 1 (<= le temps d'exécution de 
l'opération effectuée en l'occurence un test, ne dépend ni de la taille des données ni de leurs 
valeurs), en notant |b-a| le nombre exact d'itérations exécutées (lorsque les bornes sont des 
entiers |[b-a| vaut exactement la valeur absolue de la différence des bornes) nous avons : 

Nb Iter ) = (X Nb(i,) + 1 ). [b-al| 


Lorsque le nombre d'itérations n'est pas connu mais seulement majoré ( nombre noté 
Majorant_Nbr_d'itérations ), alors on obtient un majorant de la complexité de la boucle (le 
majorant correspond à la complexité dans le pire des cas). 


Complexité temporelle au pire : 


Majorant_Nb( Iter ) = [ Nb( S) + Nb(Expr(i)) | x Majorant_Nbr_d'itérations 
1.3 Notation de Landau O(n) 


Nous avons admis l'hypothèse qu'en règle générale la complexité en temps dépend de la 
taille n des données (plus le nombre de données est grand plus le temps d'exécution est long). 
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Cette remarque est d'autant plus proche de la réalité que nous étudierons essentiellement des 
algorithmes de tri dans lesquels les n données sont représentées par une liste à n éléments. 


Afin que notre instrument de mesure et de comparaison d'algorithmes ne dépende pas de la 
machine physique, nous n'exprimons pas le temps d'exécution en unités de temps 
(millisecondes etc.) mais en unité de taille des données. 


Nous ne souhaitons pas ici rentrer dans le détail mathématique des notations O(f(n)) de 
Landau sur les infiniment grands équivalents, nous donnons seulement une utilisation pratique 
de cette notation. 


Pour une fonction f (n) dépendant de la variable n, on écrit : 
f est O(g(n)) g(n) où g est elle-même une fonction de la variable entière n, et l'on lit f est de 
l'ordre de grandeur de g(n) ou plus succinctement f est d'ordre g(n), lorsque : 


f est d'ordre g(n) : 


Pour tout valeur entière de n, il existe deux constantes a et b positives 
telles que : a.g(n) < f(n) < b.g(n) 


Ce qui signifie que lorsque n tend vers l'infini (n devient très grand en informatique) le 
rapport f(n)/g(n) reste borné. 


f est d'ordre g(n) : 


a < f(n}/g(n) < b quand n — 
Lorsque n tend vers l'infini, le rapport f(n)/g(n) reste borné. 


Exemple : 
Supposons que f et g soient les polynômes suivants : 
f(n) = 3n° - 7n +4 
g(n) =n'; 
Lorsque n tend vers l'infini le rapport f(n)/g(n) tend vers 3: 
fn)/g(n) — 3 quandn — 
ce rapport est donc borné. 


donc f est d'ordre n° ou encore f est O(n?) 


C'est cette notation que nous utiliserons pour mesurer la complexité temporelle C en nombre 
d'opérations élémentaires d'un algorithme fixé. Il suffit pour pouvoir comparer des 
complexités temporelles différentes, d'utiliser les mêmes fonctions g(n) de base. 


Les informaticiens ont répertorié des situations courantes et ont calculé l'ordre de complexité 
associé à ce genre de situation. 
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Les fonctions g(n) classiquement et pratiquement les plus utilisées sont les suivantes : 


gim)=1 

g(n) = logx (n) 
g(n)=n 

g(n) = n.log,(n) 
g(n) = n° 


Ordre de complexité C Cas d'utilisation courant 
g(n) = 1 = Cest O(1) Algorithme ne dépendant pas des données 


_ Algorithme divisant le problème par une quantité 
g(n) = logx (n) — € est Ollogk(n)) constante (base k du logarithme) 
a(n)=n = Cest Oln) Algorithme travaillant directement sur chacune des 
n données 


Algorithme divisant le problème en nombre de 
g(n) = n.log(n) = C est O(n.log.(n)) | sous-problèmes constants (base k du logarithme), 
dont les résultats sont réutilisés par recombinaison 


_ 2 2 Algorithme traitant généralement des couples de 
CE  Cerou données (dans deux boucles imbriquées). 


2. Trier des tableaux en mémoire centrale 


Un tri est une opération de classement d'éléments d'une liste selon un ordre total défini. Sur 
le plan pratique, on considère généralement deux domaines d'application des tris: les tris 
internes et les tris externes. 


Que se passe-t-il dans un tri? On suppose qu'on se donne une suite de nombres entiers (ex: 5, 
8, -3 ,6 ,42, 2,101, -8, 42, 6) et l'on souhaite les classer par ordre croissant (relation d'ordre au 
sens large). La suite précédente devient alors après le tri (classement) : (-8, -3, 2, 5, 6, 6, 8, 42, 
42, 101). Il s'agit en fait d'une nouvelle suite obtenue par une permutation des éléments de la 
première liste de telle façon que les éléments résultants soient classés par ordre croissant au 
sens large selon la relation d'ordre totale "< ":(-8<-3<2<5<6<6<8<42<42< 
101). 


Cette opération se retrouve très souvent en informatique dans beaucoup de structures de 
données. Par exemple, il faut établir le classement de certains élèves, mettre en ordre un 
dictionnaire, trier l'index d'un livre, etc. 


2.1 Tri interne, tri externe 
Un tri interne s'effectue sur des données stockées dans une table en mémoire centrale, un tri 


externe est relatif à une structure de données non contenue entièrement dans la mémoire 
centrale (comme un fichier sur disque par exemple). 
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Dans certains cas les données peuvent être stockées sur disque (mémoire secondaire) mais 
structurées de telle façon que chacune d'entre elles soit représentée en mémoire centrale par 
une clef associée à un pointeur. Le pointeur lié à la clef permet alors d'atteindre l'élément sur 
le disque (n° d'enregistrement...). Dans ce cas seules les clefs sont triées (en table ou en arbre) 
en mémoire centrale et il s'agit là d'un tri interne. Nous réservons le vocable tri externe 
uniquement aux manipulations de tris directement sur les données stockées en mémoire 
secondaire. 


2.2 Des algorithmes classiques de tri interne 


Dans les algorithmes référencés ci-dessous, nous notons (a, 4, … , a.) la liste à trier. Etant 
donné le mode d'accès en mémoire centrale (accès direct aux données) une telle liste est 
généralement implantée selon un tableau à une dimension de n éléments (cas le plus courant). 
Nous attachons dans les algorithmes présentés, à expliciter des tris majoritairement sur des 
tables, certains algorithmes utiliserons des structures d'arbres en mémoire centrale pour 
représenter notre liste à trier (a, a, … , a;). 


Les opérations élémentaires principales les plus courantes permettant les calculs de 
complexité sur les tris, sont les suivantes : 


Deux opérations élémentaires 


La comparaison de deux éléments de la liste a; et ak, (si a; > ax, siai < ak,.….). 
L'échange des places de deux éléments de la liste a; et ak, (place (ai ) < place (ax) ). 


Ces deux opérations seront utilisées afin de fournir une mesure de comparaison des tris entre 
eux. Nous proposons dans les pages suivantes cinq tris classiques, quatre concerne le tri de 
données dans un tableau, le cinquième est un tri de données situées dans un arbre binaire, ce 
dernier pourra en première lecture être ignoré, si le lecteur n'est pas familiarisé avec la notion 
d'arbre binaire 


Tris sur des tables : 
Tri itératif à bulles 


Tri itératif par sélection 


Tri itératif par insertion 


Tri récursif rapide QuickSort 


Tris sur un arbre binaire : 
e Le Tri par tas / HeapSort 
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Le tri à bulle 


e A) Spécification abstraite 

e B) Spécification concrète 

e C) Algorithme 

e D) Complexité 

e E) Programme Delphi - Java 
e F) Assistant visuel 


C'est le moins performant de la catégorie des tris par échange ou sélection, mais comme c'est 
un algorithme simple, il est intéressant à utiliser pédagogiquement. 


A) Spécification abstraite 


Nous supposons que les données a1, a2, … , a, sont mises sous forme d'une liste (a1, a2, … , 
&), le principe du tri à bulle est de parcourir la liste (a1, a, … , a.) en intervertissant toute 
paire d'éléments consécutifs (a;1, ai) non ordonnés. 


Aïinsi après le premier parcours, l'élément maximum se retrouve en a;. On suppose que 
l'ordre s'écrit de gauche à droite (à gauche le plus petit élément, à droite le plus grand 
élément). 

On recommence l'opération avec la nouvelle sous-suite (ar, 42, … , 41), et ainsi de suite 
jusqu'à épuisement de toutes les sous-suites (la dernière est un couple). 


Le nom de tri à bulle vient donc de ce qu'à la fin de chaque itération interne, les plus grands 
nombres de chaque sous-suite se déplacent vers la droite successivement comme des bulles de 
la gauche vers la droite. 


B) Spécification concrète 
La suite (ai, 42, … , a.) est rangée dans un tableau à une dimension T{...] en mémoire centrale. 


Le tableau contient une partie triée (en foncé à droite) et une partie non triée (en blanc à 
gauche). 


partie non triée partie triée 


On effectue plusieurs fois le parcours du tableau à trier. 
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Le principe de base est de ré-ordonner les couples (a;.1, ai) non classés (en inversion de rang 
soit ai > ai) dans la partie non triée du tableau, puis à déplacer la frontière (le maximum de la 
sous-suite (1, 4, … , 411) ) d'une position : 


si a,> @;,, alors Echanger a. à, 


partie non trièe partie triée 


Tant que la partie non triée n'est pas vide, on permute les couples non ordonnés ( (a:1, ai) tels 
que a; > ai) ) pour obtenir le maximum de celle-ci à l’élément frontière. C'est à dire qu'au 
premier passage c'est l'extremum global qui est bien classé, au second passage le second 
extremum etc. 


©) Algorithme : 


Algorithme Tri_a_Bulles 
local: ï,j,n,temp € Entiers naturels 
Entrée : Tab € Tableau d'Entiers naturels de 1 à n éléments 
Sortie : Tab € Tableau d'Entiers naturels de 1 à n éléments 
début 
pour i de n jusquà 1 faire / recommence une sous-suite (&j, &2, … , &;) 
pour j de 2 jusquà i faire // échange des couples non classés de la sous-suite 
si Tabl j-1 ] > Tab! j ] alors /a;,et a; non ordonnés 
temp <— Tab! j-1 ] ; 
Tab! j-1 ] Tab! j | : 
Tab[ j] < temp /on échange les positions de a;.; et a; 
Fsi 
fpour 
fpour 
Fin Tri _ a Bulles 


Exemple : soit la liste (5,4,2,3,7,1 ), appliquons le tri à bulles sur cette liste d'entiers. 
Visualisons les différents états de la liste pour chaque itération externe contôlée par l'indice 1 : 
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i = 6 / pour j de 2 jusquà 6 faire 
ER 2 | 5 | 5 [1] 5>4doncpermuation des deux cellules Le | À | 
5>2 doncpermufation des deux cellules (m] - - 


5 FIRE 5> 3 doncpermufation des deux cellules s [me 
C4 [2 À 5 JM 1 | 5<7 doncaucune adion sur ces deux cellules DODRBO = - 
ERES 


[4 [2] BU] 7 >: doncpermuiafion des deux cellules  OODD 
C4 [213 (5 [1 [Ma À afin de la boude externe le max 7 est rangé OO OOEB 


i = 5 / pour j de 2 jusquà 5 faire 
MEME 5 | 5 | 1 [1] 4>2 doncpermufation des deux cellules 1 TL OODDE 
EN : NES 


4 >3 doncpermuiation des deux cellules IDDN 
4<5 donc aucune action sur ces deux cellules - ORBCE 


5>1 doncpermufation des deux cellules mimi] 
À la fin de la boucle externe le max 5 est rangé OODODO0BmE 


EE : FEsRS 
[27574 En 7 
[2 {3 {4 [1 F5 
i = 4 / pour j de 2 jusquà 4 faire 

_: HRFSRSESERE 2< 3 donc aucune adïon sur ces deux cellules BBOOCE 


_3<4 donc aucune action sur ces deux cellules ORBOCE 


| 7 | 4>7 doncpermufaïion des deux cellules [431 doncpermutation des deux cellules DONBOE 
Est] À /a fin de la boucle externe le max 4 est rangé DD OD0BmEDE 


i = 3 / pour j de 2 jusquà 3 faire 
BST) 7 < 3 donc aucune action sur ces deux cellules B&O0BEE 
[als] _3>1 doncpermufation des deux cellules CNNEOE 


SNA SM] À /o fin de la boucle externe le max 3 est rangé CODE 
i = 2 / pour j de 2 jusquà 2 faire 
2>] doncpermufation des deux cellules Los en [ 


M1! 11:1:1"] j 
C1 SSI) A la fin de la boucle externe le max 2est rangé DD 5555 


i = 1 / pour j de 2 jusquà 1 faire (boucle vide) 


Bin SNS ne reste plus d'éléments à comparer ! ns D on 


D) Complexité : 


G) 


| Choix opération 


Choisissons comme opération élémentaire la comparaison de deux cellules du tableau. 


Le nombre de comparaisons "si Tabl[ j-1 | > Tabl j ] alors” est une valeur qui ne dépend que 
de la longueur n de la liste (n est le nombre d'éléments du tableau), ce nombre est égal au 
nombre de fois que les itérations s'exécutent, le comptage montre que la boucle "pour i de n 
jusquà 1 faire" s'exécute n fois (donc une somme de n termes) et qu'à chaque fois la boucle 
"pour j de 2 jusquà i faire" exécute (i-2)+1 fois la comparaison "si Tab[ j-1 | > Tab! j] 
alors”. 
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La complexité en nombre de comparaison est égale à la somme des n termes suivants (1 = n, 1 
=n-l,...1= 1) 


C=(n-2)+1 + ([n-1]-2)+1 +.....+140 = (n-1)+(n-2)+..+1 = n(n-1)/2 (c'est la somme des n-1 
premiers entiers). 


La complexité du tri à bulle en nombre de comparaison est de de l'ordre de n°, que l'on 
écrit O(n?). 


Q 


| Choix opération 


Choisissons comme opération élémentaire l'échange de deux cellules du tableau. 


Calculons par dénombrement le nombre d'échanges dans le pire des cas (complexité au pire = 
majorant du nombre d'échanges). Le cas le plus mauvais est celui où le tableau est déjà classé 
mais dans l'ordre inverse et donc chaque cellule doit être échangée, dans cette éventualité 1l y 
a donc autant d'échanges que de tests. 


La complexité du tri à bulle au pire en nombre d'échanges est de l'ordre de n°, que l'on 
écrit O(n?). 


E) Programme Delphi (tableau d'entiers): 


program TriParBulle; 

const N = 10; / Limite supérieure de tableau } 

type TTab = array [1..N] of integer;, / TTab : Type Tableau } 
var Tab : TTab ; 


procedure TriBulle (var Tab:TTab) ; 
{ Implantation Pascal de l'algorithme } 
var 1, j, t : integer; 
begin 
for i := N downto 1 do 
for j := 2 to i do 


if Tab[j-1] > Tab{j] then 
begin 
t:= Tab[j-1]; 
Tab{j-1] := Tab[j]; 
Tab t 
end; 
end; 


procedure Initialisation(var Tab:TTab) ; 
{ Tirage aléatoire de N nombres de 1 à 100 } 


Les bases de l'informatique - programmation - |;4:. 05.09.2004 ) page 9 
p 1 


var 1: integer; { i : Indice de tableau de N colonnes } 


begin 
randomize; 
for i := 1 to N do 
Tabl{i] := random(100); 
end; 


procedure Impression(Tab:TTab) ; 
{ Affichage des N nombres dans les colonnes } 
var 1 : integer; 
begin 
writeln(------"-"---""--"""""-- ) 
for i:= 1 to N do write(Tabli] : 3,'|'); 
writeln; 
end; 


begin 
Initialisation(Tab); 
writeln("TRI PAR BULLE); 
writeln; 
Impression(Tab); 
TriBulle(Tab); 
Impression(Tab); 


Résultat de l'exécution du programme précédent : 


TRI PAR BULLE 


E) Programme Java (tableau d'entiers) : 


class ApplicationTriBulle ({ 


static int[] table = new int[10] ; // le tableau à trier en attribut 


static void TriBulle ( ) { 
int n = table.length-I1; 
for ( int i = n; i>=1; i--) 
for ( int j] = 2; j<=i; j++) 
if (tablel[j-1] > tablelj]) 
{ 
int temp = tablel[j-1]; 
tablef[j-1] = tablelj]; 
tablel[j] = temp; 
} 
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static void Impression ( ) { 

// Affichage du tableau 

int n = table.length-I1; 

for ( int i = 1; i<=n; i++) 
System.out.print(table[i]+" , "); 
System.out.printin(); 

} 


static void Initialisation ( ) { 

// remplissage aléatoire du tableau 
int n = table.length-I1; 

for ( int i = 1; i<=n; i++) 

tablefi] = (int) (Math.random()*100); 
} 


public static void main(String[ ] args) %{ 
Initialisation ( j); 
System.out.println("Tableau initial :"); 
Impression ( ); 
TriBulle ( ); 
System.out.println("Tableau une fois trié 
Impression ( ); 
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Le tri par sélection 
#F; 


e A) Spécification abstraite 

e B) Spécification concrète 

e C) Algorithme 

e D) Complexité 

e E) Programme Delphi - Java 


C'est une version de base de la catégorie des tris par sélection. 
A) Spécification abstraite 


Nous supposons que les données a1, a2, … , a, sont mises sous forme d'une liste (a1, a2, … , 
A), la liste (a, a2, … , a) est décomposée en deux parties : une partie liste (ar, a2, … , ax) et 
une partie non-triée (ax+1, Ak+2, … ; An); l'élément ax, est appelé élément frontière (c'est le 
premier élément non trié). 


Le principe est de parcourir la partie non-triée de la liste (ak+1, ak+2, … , an) en cherchant 
l'élément minimum, puis en l'échangeant avec l'élément frontière ak+1, puis à déplacer la 
frontière d'une position. Il s'agit d'une récurrence sur les minima successifs. On suppose que 
l'ordre s'écrit de gauche à droite (à gauche le plus petit élément, à droite le plus grand 
élément). 

On recommence l'opération avec la nouvelle sous-suite (ak+2, … , an) , et ainsi de suite 
jusqu'à ce que la dernière soit vide. 


B) Spécification concrète 


La suite (ai, 42, … , a.) est rangée dans un tableau à une dimensionT{[...] en mémoire centrale. 


Le tableau contient une partie triée (en foncé à gauche) et une partie non triée (en blanc à 
droite). 


partie triée partie non triée 


On cherche le minimum de la partie non-triée du tableau et on le recopie dans la cellule 
frontière (le premier élément de la partie non triée). 


Les bases de l'informatique - programmation - (:6. 05.09.2004 ) age 
pas 5 


Donc pour tout a, de la partie non triée on effectue l'action suivante : 


a minimum 


Si Ax+1 > à, alors ax <— a, Fsi 


partie triée NF : . 
partie non trièée 
si d,,> d, albrs Echanger 4,—a,,, 


et l'on obtient ainsi à la fin de l'examen de la sous-liste (ax41, ak+2, … , ah) la valeur min (ax:1, 
Ak42, … ; 4n) Stockée dans la cellule ax:1. 


partie triée partie non triée 


La sous-suite (a1, 42, … , 4x, 4x1) est maintenant triée : 


— partie non triée 
partie triée 


Et l'on recommence la boucle de recherche du minimum sur la nouvelle sous-liste (ax:2, 4x:3, 
… ; An) EtC... 


Tant que la partie non triée n'est pas vide, on range le minimum de la partie non-triée dans 
l’élément frontière. 


©) Algorithme : 


Une version maladroite de l'algorithme mais exacte a été fournie par un groupe d'étudiants 
elle est dénommée / Version maladroite 1/. 


Elle échange physiquement et systématiquement l'élément frontière Tab[ 1] avec un élément 
Tab! j ] dont la valeur est plus petite (la suite (a1, a2, … , ai) est triée) : 
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Q 


| Maladroit 


Algorithme Tri_Selection /Version maladroite 1/ 
local: m,1,}j,n, temp € Entiers naturels 
Entrée : Tab € Tableau d'Entiers naturels de 1 à n éléments 
Sortie : Tab € Tableau d'Entiers naturels de 1 à n éléments 
début 
pour i de 1 jusquà n-1faire // recommence une sous-suite 
m<-i;/iest l'indice de l'élément frontière Tab)! i ] 
pour j de i+1 jusquà n faire/ liste non-triée : (@;:1, &i:2, … , &n) 
si Tabl j ] < Tab[ m ] alors / a; est le nouveau minimum partiel 
me]: 
temp <-Tab[ m ]; 
Tab[ m ] <_ Tab i | ; 
Tab[ 1] < temp /on échange les positions de a; et de a; 
m <- i; 
Fsi 
fpour 
fpour 
Fin Tri_Selection 


Voici une version correcte et améliorée du précédent (nous allons voir avec la notion de complexité 
comment appuyer cette intuition d'amélioration), dans laquelle l'on sort l'échange a; ef a; de la boucle 
interne "pour j de i+1 jusquà n faire" pour le déporter à la fin de cette boucle. 


Amélioration 


Î 
(S) 


Au lieu de travailler sur les contenus des cellules de la table, nous travaillons sur les 


indices, ainsi lorsque aj est plus petit que ai nous mémorisons l'indice "j" du minimum dans 
une variable " m <- j ; " plutôt que le minimum lui-même. 


Version maladroite Version améliorée 
pour j de i+1 jusquà n faire pour j de i+1 jusquà n faire 
si Tab j ] < Tab[ m ] alors si Tab[ j ] < Tab[ m ] alors 
m< j; m< j; 
temp <-Tab[ m ]; Fsi 
Tab[m]<Tablil]; fpour; 
Tabl[ i] <- temp temp <- Tab[ m ] ; 
Fsi Tab[ i] <- temp 
fpour 
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A la fin de la boucle interne "pour j de i+1 jusquà n faire" la variable m contient l'indice de 
min(ai+1,ak+2, … , an) et l'on permute l'élément concerné (d'indice m) avec l'élément 
frontière ai : 


Algorithme Tri_Selection /Version 2 améliorée/ 
local: m,1,j,n, temp € Entiers naturels 
Entrée : Tab € Tableau d'Entiers naturels de 1 à n éléments 
Sortie : Tab € Tableau d'Entiers naturels de 1 à n éléments 
début 
pour i de 1 jusquà n-1 faire // recommence une sous-suite 
m<-i1i;/iest l'indice de l'élément frontière ai = Tab] i ] 
pour j de i+1 jusquà n faire// (a;,1, &i:2,.… , 4) 
si Tab] j ] < Tab[ m ] alors // aj est le nouveau minimum partiel 
m <- j ; // indice mémorisé 
Fsi 
fpour'; 
temp <— Tab[ m ]; 
Tab[ m ] <-Tabl i | ; 
Tab[ 1] < temp /on échange les positions de a; et de a; 
fpour 
Fin Tri_Selection 


D) Complexité : 


Q 


| Choix opération 


Choisissons comme opération élémentaire la comparaison de deux cellules du tableau. 


Pour les deux versions I et 2 : 

Le nombre de comparaisons "si Tab[ j | < Tab[ m | alors" est une valeur qui ne dépend que 
de la longueur n de la liste (n est le nombre d'éléments du tableau), ce nombre est égal au 
nombre de fois que les itérations s'exécutent, le comptage montre que la boucle "pour i de 1 
jusquà n-1 faire" s'exécute n-1 fois (donc une somme de n-1 termes) et qu'à chaque fois la 
boucle "pour j de i+1 jusquà n faire" exécute (n-(i+1)+1 fois la comparaison "si Tab! j ] < 
Tabl[ m ] alors”. 


La complexité en nombre de comparaison est égale à la somme des n-1 termes suivants (= 1, 
…i=n-1l) 

C=({n-2)+1 +(n-3)+1 +.....+1+0 = (n-1)+(n-2)+..+1 = n.(n-1)/2 (c'est la somme des n-1 
premiers entiers). 


La complexité du tri par sélection en nombre de comparaison est de de l'ordre de n°, 
que l'on écrit O(n°). 
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Choix opération 


Choisissons comme opération élémentaire l'échange de deux cellules du tableau. 


Calculons par dénombrement le nombre d'échanges dans le pire des cas (complexité au pire = 
majorant du nombre d'échanges). Le cas le plus mauvais est celui où le tableau est déjà classé 
mais dans l'ordre inverse. 


Pour la version 1 
Au pire chaque cellule doit être échangée, dans cette éventualité 1l y a donc 
autant d'échanges que de tests. 
La complexité au pire en nombre d'échanges de la version 1 est de 
l'ordre de n°, que l'on écrit O(n°). 


Pour la version 2 
L'échange a lieu systématiquement dans la boucle principale "pour 1 de 1 
jusquà n-1 faire" qui s'exécute n-1 fois : 
La complexité en nombre d'échanges de cellules de la version 2 est 
de l'ordre de n, que l'on écrit O(n). 


Un échange valant 3 transferts (affectation) la complexité en 
transfert est O(3n) = O(n) 


Toutefois cette complexité en nombre d'échanges de cellules n'apparaît pas comme 
significative du tri, outre le nombre de comparaison, c'est le nombre d'affectations d'indice qui 
représente une opération fondamentale et là les deux versions ont exactement la même 
complexité O(n°). 


Exemple : soit la liste à 6 éléments (5,4,2,3,7,1 ), appliquons la version 2 du tri par 
sélection sur cette liste d'entiers. Visualisons les différents états de la liste pour la première 
itération externe contrôlée par 1 (i = 1) et pour les itérations internes contrôlées par l'indice ]j 
(dSj=2.,:442: J= 6): 


i = m = ? i=1 m =3 i= m =53 
4 1 L JL D 
___ FSI RRRS) ES : FRFSRRES) ESKE : FIRSEN 
Î=2 i=3 i=4 
comme 5>4 on mémorise dans m comme 452 on mémorise dans m comme 2<3 on ne mémorise pas 


permuiaton des deux cellules 


i=1 m =3 i=1 m=é "ne." 


nl L l 1 L L 
ESES : FIRE) ESES : EINEDS) FIpSFIRRUS 
Îj=5 


6 
comme 2<7 on ne mémorise pas comme 25 1 on mémorise dans m LR, 


on échange T{1] et T{6] 


L'algorithme ayant terminé l'échange de T[1] et de T[6], 1l passe à l'itération externe suivante 
(dans pour i de 1 jusquà n-1 faire , il passe à i = 2) : 
i=2 


JL 
SSESERFISSES 


Re _ —— — 
parie triée parte non trée etc. 


E) Programme Delphi (tableau d'entiers) : 


program TriParSelection; 

const N = 10; / Limite supérieure de tableau } 

type TTab = array [1..N] of integer; / TTab : Type Tableau } 
var Tab : TTab ; 


procedure TriSelection (var Tab:TTab) ; 
{ Implantation Pascal de l'algorithme } 
var 1, J,t, m: integer; 
begin 
for i := 1 to N-1 do 
begin 
m := ji; 


for j := i+1 to N do 
if Tab] j | < Tab[ m ] then m = ;; 
t:= Tab[m/]; 
Tab[ml] := Tab{i]|; 
Tabli] := t; 
end; 
end; 


procedure Initialisation(var Tab:TTab) ; 
{ Tirage aléatoire de N nombres de 1 à 100 } 
var 1: integer; / i : Indice de tableau de N colonnes } 
begin 

randomize; 

for i := 1 to N do 

Tab{i] := random(100); 

end; 


procedure Impression(Tab:TTab) ; 
{ Affichage des N nombres dans les colonnes } 
var 1 : integer; 
begin 
for i:= 1 to N do write(Tabli] : 3, '|'); 
writeln; 


end; 


begin 
Initialisation(Tab); 
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writeln('TRI PAR SELECTION"); 
writeln; 

Impression(Tab); 
TriSelection(Tab); 
Impression(Tab); 


Résultat de l'exécution du programme précédent : 


TRI PAR SELECTION 


E) Programme Java (tableau d'entiers) : 


class ApplicationTriSelect 
{ 


static int[] table = new int[20] ; // le tableau à trier en attribut 


static void Impression ( ) { 

// Affichage du tableau 

int n = table.length-1; 

for ( int i = 1; i<=n; i++) 

System.out.print (tableli]+" , "); 
System.out.printin(); 
} 


static void Initialisation ( ) { 

// remplissage aléatoire du tableau 
int n = table.length-1; 

for ( int i = 1; i<=n; i++) 

tablefi] = (int) (Math.random()*100); 
} 


static void TriSelect ( ) { 
int n = table.length-I1; 
for ( int i = 1; i <= n-1; i++) 
{ // recommence une sous-suite 
int m = i; // élément frontière ai = tablel[ i ] 
for ( int j] = i+l; j <= n; j++) Îf \eitil, 82, ,44 ,; an) 


if (table! j ] < table[ m ]) // àaj = nouveau minimum partiel 
j ; // indice mémorisé 
int temp = table! m ]; 
table! m |] = table! ïi |; 
tablel i ]= temp; 
} 
} 
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public static void main(String[ ] args) 

{ 
Initialisation ( ); 
System.out.printlin("Tableau initial :"); 
Impression ( ); 

TriSelect ( ); 

System.out.println("Tableau une fois trié :"); 
Impression ( ); 
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Le tri par insertion 


: { 
e A) Spécification abstraite 

e B) Spécification concrète 

e C) Algorithme 


e D) Complexité 
e E) Programme Delphi - Java 


C'est un tri en général un peu plus coûteux en particulier en nombre de transfert à 
effectuer qu'un tri par sélection (cf. complexité). 


A) Spécification abstraite 


Nous supposons que les données a1, a2, … , a, sont mises sous forme d'une liste (a1, a2, … , 
&), le principe du tri par insertion est de parcourir la liste non triée liste (ai, a2, … , a) en la 
décomposant en deux parties : une partie déjà triée et une partie non triée. 


La méthode est identique à celle que l'on utilise pour ranger des cartes que l'on tient dans sa 
main : on insère dans le paquet de cartes déjà rangées une nouvelle carte au bon endroit. 


L'opération de base consiste à prendre l'élément frontière dans la partie non triée, puis à 
l'insérer à sa place dans la partie triée (place que l'on recherchera séquentiellement), puis à 
déplacer la frontière d'une position vers la droite. Ces insertions s'effectuent tant qu'il reste un 
élément à ranger dans la partie non triée.. L'insertion de l'élément frontière est effectuée par 
décalages successifs d'une cellule. 


La liste (ai, a, … , a.) est décomposée en deux parties : une partie triée (ai, a2, … , ax) et une 
partie non-triée (ak+1, Ak+2, .… , an); l'élément ax, est appelé élément frontière (c'est le premier 
élément non trié). 


partie triée partie non triée 
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B) Spécification concrète itérative 


La suite (ai, 42, … , a.) est rangée dans un tableau à une dimension T{...] en mémoire centrale. 
Le tableau contient une partie triée ( (a:, a2, … , ax) en foncé à gauche) et une partie non triée ( 
(ax+1, Ak42, … , An); en blanc à droite) : 


partie triée partie non triée 


On insère l'élément frontière ak;, en faisant varier j de k jusqu'à 2 , afin de balayer toute la 
partie (al, a2, … , ak) déjà rangée, on décale alors d'une place les éléments plus grands que 
l'élément frontière : 


tantque a; > ax:1 faire 
décaler a; en a; ; 
passer au ] précédent 
ftant 


partie triée L partie non triée 


La boucle s'arrête lorsque a;1 < ak41,ce qui veut dire que l'on vient de trouver au rang j-1 un 
élément a; plus petit que l'élément frontière ak:1, donc ak,1 doit être placé au rang J. 


©) Algorithme : 


Algorithme Tri_Insertion 
local: i,j,n, ve Entiers naturels 
Entrée : Tab € Tableau d'Entiers naturels de 0 à n éléments 
Sortie : Tab € Tableau d'Entiers naturels de 0 à n éléments 
{ dans la cellule de rang 0 se trouve une sentinelle chargée d'éviter de tester dans la 
boucle tantque .. faire si l'indice j n'est pas inférieur à 1, elle aura une valeur 
inférieure à toute valeur possible de la liste 
} 
début 
pour i de2 jusquà n faire// la partie non encore triée (&;, &;:1, … , 4n) 
v <—Tabl 1] ; // l'élément frontière : a; 
ji; // le rang de l'élément frontière 
Tantque Tab! j-1 ] > v faire / on travaille sur la partie déjà triée (az, az, … , à;) 
Tab[ j] < Tabl j-1 |; // on décale l'élément 
+ J-l; // on passe au rang précédent 
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FinTant ; 
Tab[ j] < v “on recopie a; dans la place libérée 
fpour 
Fin Tri_Insertion 


Sans la sentinelle en T[0] nous aurions une comparaison sur j à l'intérieur de la boucle : 
Tantque Tab! j-1 ] > v faire/on travaille sur la partie déjà triée(a;, 42, … , ai) 
Tab[ j] < Tabl j-1 |, // on décale l'élément 
j—J-l; // on passe au rang précédent 
si j = 0 alors Sortir de la boucle fsi 
FinTant ; 


Exercice 
Un étudiant a proposé d'intégrer la comparaison dans le test de la boucle en 
écrivant ceci : 
Tantque (Tab{j-1] > v) et (j >0 ) faire 
Tab j] < Tabl j-1 ]; 
nInE 
FinTant ; 
Il a eu des problèmes de dépassement d'indice de tableau lors de 
l'implémentation de son programme. 


Essayez d'analyser l'origine du problème en notant que la présence d'une 
sentinelle élimine le problème. 


D) Complexité : 


eo 
| Choix opération 


Choisissons comme opération élémentaire la comparaison de deux cellules du tableau. 


Dans le pire des cas le nombre de comparaisons "Tantque Tabl j-1 ] > v faire" est une valeur 
qui ne dépend que de la longueur i de la partie (al, a2, … , ai) déjà rangée. II y a donc au pire i 
comparaisons pour chaque i variant de 2 à n: 

La complexité au pire en nombre de comparaison est donc égale à la somme des n termes 
suivants (i = 2, i= 3,...1=n) 

C=2+3+44+.+n=n(n+1)2 -1 comparaisons au maximum. (c'est la somme des n 
premiers entiers moins 1). 


La complexité au pire en nombre de comparaison est de l'ordre de n°, que l'on écrit 
O(n°). 
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@) 
| Choix opération 


Choisissons maintenant comme opération élémentaire le transfert d'une cellule du tableau. 


Calculons par dénombrement du nombre de transferts dans le pire des cas . 


Il y a autant de transferts dans la boucle "Tantque Tabl j-1 ] > v faire" qu'il y a de 
comparaisons il faut ajouter 2 transferts par boucle "pour i de 2 jusquà n faire", soit au total 
dans le pire des cas : 

C = n(n+1)/2 + 2(n-1) = (n2 + 5n - 4)/2 


La complexité du tri par insertion au pire en nombre de transferts est de l'ordre de n°, 
que l'on écrit O(n°). 


E) Programme Delphi (tableau d'entiers) : 


program TriParlnsertion; 

const N = 10; / Limite supérieure de tableau } 

type TTab = array [0.NJof integer;, / TTab : Type Tableau } 
var Tab : TTab ; 


procedure Trilnsertion (var Tab:TTab) ; 
{ Implantation Pascal de l'algorithme } 
var 1, J, V : integer:; 
begin 
for i := 2 to N do 
begin 
v := Tabl i |; 
IE 


while Tab! j-1 ] > v do 
begin 
Tabl j ] := Tab! j-1 | ; 
j=j-1; 
end; 
Ab: 
end 


end; 


procedure Initialisation(var Tab:TTab) ; 
{ Tirage aléatoire de N nombres de 1 à 100 } 
var 1: integer; /{ i : Indice de tableau de N colonnes } 
begin 

randomize; 

for i := 1 to N do 

Tabl{i] := random(100); 

Tab[0]:= -Maxint ; // la sentinelle est l'entier le plus petit du type 
integer sur la machine 
end; 
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procedure Impression(Tab:TTab) ; 

{ Affichage des N nombres dans les colonnes } 
var 1 : integer; 

begin 


for i:= 1 to N do write(Tabli] : 3, '|'); 
writeln; 
end; 


begin 
Initialisation(Tab); 
writeln('TRI PAR INSERTION); 
writeln; 
Impression(Tab); 
Trilnsertion(Tab); 
Impression(Tab); 
writeln(------"-"---"""""" à 

end. 


Résultat de l'exécution du programme précédent : 


TRI PAR INSERTION 


E) Programme Java (tableau d'entiers) : 


class ApplicationTrilnsert 
{ 
// le tableau à trier: 
static int[] table = new int[10] ; 


Dans la cellule de rang 0 se trouve une sentinelle chargée d'éviter de tester dans la boucle tantque .. faire si 
l'indice j n'est pas inférieur à 1, elle aura une valeur inférieure à toute valeur possible de la liste 


“ 
static void Impression ( ) { 
// Affichage du tableau 
int n = table.length-I1; 
for ( int i = 0; i<=n; i++) 
System.out.print(tableli]+" , "); 
System.out.printin(); 
} 


static void Initialisation ( ) { 
// remplissage aléatoire du tableau 
int n = table.length-I1; 
for ( int i = 1; i<=n; i++) 
tablefi] = (int) (Math.random()*100); 
//sentinelle à l'indice 0 
table[0] = -Integer.MAX VALUE; 


} 
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public static void main(String[ ] args) %{ 
Initialisation ( ); 
System.out.println("Tableau initial :"); 
Impression ( ); 
Trilnsert ( ); 
System.out.printlin("Tableau une fois trié :"); 
Impression ( j); 


static void Trilnsert ( ) { 
// sous-programme de Tri par insertion 
int n = table.length-1; 
for ( int i = 2; i <= n; i++) 
{ 
16. y tablelil]l; 
TAC ] 1 


while (table! j-1 ] > v) 

{// travail sur la partie déjà triée (al, a2, ... , ai) 
table! j ] = tablef j-1 ]; // on décale l'élément 
j--; // on passe au rang précédent 


} 


table j] ; //on recopie ai dans la place libérée 


Les bases de l'informatique - programmation - (1. 05.09.2004 ) page 238 


Le tri rapide 


méthode Sedgewick 


e A) Spécification abstraite 

e B) Spécification concrète 

e C) Algorithme 

e D) Complexité 

e E) Programme Delphi - Java 


C'est le plus performant des tris en table qui est certainement celui qui est le plus 
employé dans les programmes. Ce tri a été trouvé par C.A.Hoare, nous nous référons à 
Robert Sedgewick qui a travaillé dans les années 70 sur ce tri et l'a amélioré et nous 
renvoyons à son ouvrage pour une étude complète de ce tri. Nous donnons les principes 
de ce tri et sa complexité en moyenne et au pire. 


A) Spécification abstraite 


Nous supposons que les données a1, a2, … , a, sont mises sous forme d'une liste (a1, a2, … , 
&), le principe du tri par insertion est de parcourir la liste L = liste (ai, 42, … , a.) en la 
divisant systématiquement en deux sous-listes L1 et L2. L'une de ces deux sous-listes est telle 
que tous ses éléments sont inférieurs à tous ceux de l'autre liste , la division en sous-liste a 
lieu en travaillant séparément sur chacune des deux sous-listes en appliquant à nouveau la 
même division à chaque sous-liste jusqu'à obtenir uniquement des sous-listes à un seul 
élément. 


C'est un algorithme dichotomique qui divise donc le problème en deux sous-problèmes dont 
les résultats sont réutilisés par recombinaison, il est donc de complexité O(n.log(n)). 


Pour partitionner une liste L en deux sous-listes L1 et L2 : 


° on choisit une valeur quelconque dans la liste L (la dernière par exemple) que l'on 
dénomme pivot, 

e puis on construit la sous-liste LI comme comprenant tous les éléments de L dont la 
valeur est inférieure ou égale au pivot, 

e et l'on construit la sous-liste L2 comme constituée de tous les éléments dont la valeur 
est supérieure au pivot. 
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Soit sur un exemple de liste L : 
L=T 4,23, 3, 42,2, 14, 45, 18, 38, 16] 
prenons comme pivot la dernière valeur pivot = 16 


Nous obtenons deux sous-listes L1 et L2 : 


L1 = [4, 14, 3, 2] 
L2 = [23, 45, 18, 38, 42] 


A cette étape voici l'arrangement de L : 


L=LI1 + pivot + L2 = [4, 14, 3, 2, 16, 23, 45, 18, 38, 42] 


En effet, en travaillant sur la table elle-même par réarrangement des valeurs, le pivot 16 est 
placé au bon endroit directement : 


[4<16, 14<16, 3<16, 2<16, L6, 23>16, 45>16, 18516, 38>16, 42>16] 


En appliquant la même démarche au deux sous-listes : LI (pivot=2) et L2 (pivot=42) 
[4, 14, 3, 2, 16, 23, 45, 18, 38, 42] nous obtenons : 


L11=| | liste vide 
L12=[3, 4, 14] 
L1=L11 + pivot + L12 = (2,3, 4, 14) 


L21=[23, 38, 18] 
L22=[45] 
L2=L21 + pivot + L22 = (23, 38, 18, 42, 45) 


A cette étape voici le nouvel arrangement de L : 


L= 12,3, 4, 14), 16, (23, 38, 18, 42, 45)] 


etc. 

Ainsi 

de proche en proche en subdivisant le problème en deux sous-problèmes, à chaque étape nous 
obtenons un pivot bien placé. 

B) Spécification concrète 


La suite (ai, 42, … , 4.) est rangée dans un tableau de dimension unT{...] en mémoire centrale. 


Le processus de partionnement décrit ci-haut (appelé aussi segmentation) est le point central 
du tri rapide, nous construisons une fonction Partition réalisant cette action . 
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Comme l'on appliquant la même action sur les deux sous-listes obtenues après partition, la 
méthode est donc récursive, le tri rapide est alors une procédure récursive. 


B-1 ) Voici une spécification générale de la procédure de tri rapide : 


Tri Rapide sur [a..b] 
Partition [a..b] renvoie pivot & [a..b] = [x pivot'|+[pivot]+{[pivot''.… y] 


Tri Rapide sur [pivot'' .…. y] 
Tri Rapide sur [x .…… pivot'] 


B-2) Voici une spécification générale de la fonction de partionnement : 


La fonction de partionnement d'une liste [a..b] doit répondre aux deux conditions 
suivantes : 
e renvoyer la valeur de l'indice noté i d'un élément appelé pivot qui est 
bien placé définitivement : pivot = T{i], 
établir un réarrangement de la liste [a..b] autour du pivot tel que : 


[a..b] =[x. pivot']+[pivot]+{[pivot'' … y] 


[x .… pivot'] = T[G] ,..,Tli-1] 
( où : x = T[G] et pivot = T{i-1] ) tels que les T[G] , … , T{i-1] sont tous inférieurs à Ti] , 


[pivot"" .…. y] =T{i+1],.., T[D] 
( où : y = T[D] et pivot" = T[i+1] ) tels que les T[i+1] , … , T[D] sont tous supérieurs à T{i], 


Il est proposé de choisir arbitrairement le pivot que l'on cherche à placer, puis ensuite de 
balayer la liste à réarranger dans les deux sens (par la gauche et par la droite) en construisant 
une sous-liste à gauche dont les éléments ont une valeur inférieure à celle du pivot et une 
sous-liste à droite dont les éléments ont une valeur supérieure à celle du pivot . 


1) Dans le balayage par la gauche, on ne touche pas à un élément si sa valeur est inférieure 
au pivot (les éléments sont considérés comme étant alors dans la bonne sous-liste) on 
arrête ce balayage dès que l'on trouve un élément dont la valeur est plus grande que celle 
du pivot. Dans ce dernier cas cet élément n'est pas à sa place dans cette sous-liste mais 
plutôt dans l'autre sous-liste. 


2) Dans le balayage par la droite, on ne touche pas à un élément si sa valeur est supérieure au 
pivot (les éléments sont considérés comme étant alors dans la bonne sous-liste) on arrête ce 
balayage dès que l'on trouve un élément dont la valeur est plus petite que celle du pivot. Dans 
ce dernier cas cet élément n'est pas à sa place dans cette sous-liste mais plutôt dans l'autre 
sous-liste. 
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éléments inférieurs au pivots 8 éléments supérieurs au pivot = 


balayage par la gauche lindies croissarits) balayage par la droite indices déc roissants] 
— ee 


premier élément plus 


grand que le pivot 


premier élément plus 
petit que le pivot 


3) on procède à l'échange des deux éléments mal placés dans chacune des sous-listes : 


> RU. 


4) On continue le balayage par la gauche et le balayage par la droite tant que les éléments sont 
bien placés (valeur inférieure par la gauche et valeur supérieure par la droite), en échangeant à 


chaque fois les éléments mal placés. 


5) La construction des deux sous-listes est terminée dès que l'on atteint (ou dépasse) le pivot. 


DS ET | 
sous-liste des ééments inférieurs au pivot sous-liste des éléments supérieurs au 
? échanges avant été effectués pot, 2 échanges ayant été effectués 


Appliquons cette démarche à l'exemple précédent : L = I 4, 23, 3, 42, 2, 14, 45, 18, 38, 16] 
Choix arbitraire du pivot : l'élément le plus à droite ici 16 


Balayage à gauche : 

4 < 16 => ïilest dans la bonne sous-liste, on continue 
liste en cours de construction : [ 4, 16 ] 

23 > 16 => il est mal placé il n'est pas dans la bonne sous-liste, on arrête le balayage gauche, 
liste en cours de construction :[ 4, 23, 16] 

Balayage à droite : 

38 > 16 => il est dans la bonne sous-liste, on continue 
liste en cours de construction : [ 4, 23, 16, 38] 

18 > 16 => il est dans la bonne sous-liste, on continue 
liste en cours de construction : [ 4, 23, 16, 18, 38 ] 

45 > 16 => ilest dans la bonne sous-liste, on continue 
liste en cours de construction : [ 4, 23, 16, 45, 18, 38 ] 

14 < 16 => il est mal placé il n'est pas dans la bonne sous-liste, on arrête le balayage droit, 
liste en cours de construction : [ 4, 23, 16, 14, 45, 18, 38] 
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Echange des deux éléments mal placés : 


[ 4, [23], 16,114}, 45, 18, 38 ] ----> [| 4, 14), 16, | 23, 45, 18,38] 


On reprend le balayage gauche à l'endroit où l'on s'était arrêté : 
[ 4, 14,13}, 42, 2, 23, 45, 18, 38, 16] 
3 < 16 => il est dans la bonne sous-liste, on continue 

liste en cours de construction : [| 4, 14, 3| ,16, | 23, 45, 18,38 | ] 
42 > 16 => il est mal placé il n'est pas dans la bonne sous-liste, on arrête de nouveau le 
balayage gauche, 

liste en cours de construction : [ | 4, 14, 3, 42|, 16, | 23, 45, 18, 38 


nd 


On reprend le balayage droit à l'endroit où l'on s'était arrêté : 


[ 4, 14, 3, 42,12 | 23, 45, 18, 38, 16] 


2 < 16 => il est mal placé il n'est pas dans la bonne sous-liste, on arrête le balayage droit, 
liste en cours de construction : [ | 4, 14, 3, 42|, 16, | 2, 23, 45, 18,38 |] 


On procède à l'échange des deux éléments mal placés : 

[ 4, 14, 3,142) 16,,2 |, 23, 45, 18, 38 ] ----> [| 4, 14, 3,2 |,16,| 42, 23, 45, 18, 38 
et l'on arrête la construction puisque nous sommes arrivés au pivot la fonction partition a 
terminé son travail elle a évalué : 


nd 


- le pivot : 16 
- la sous-liste de gauche : L1 = [4, 14, 3, 2] 


- la sous-liste de droite : L2 = [23, 45, 18, 38, 42] 
- la liste réarrangée : [ 4, 14, 3, 2, 16, 42, 23, 45, 18, 38 | 


Il reste à recommencer les mêmes opérations sur les parties L1 et L2 jusqu'à ce que les 
partitions ne contiennent plus qu'un seul élément. 


©) Algorithme : 
Global :Tab[min..max] tableau d'entier 


fonction Partition( G , D : entier ) résultat : entier 
Local :1,J, piv , temp : entier 
début 

piv < Tab[D|; 

1 — G-I; 

Pr 

repeter 

repeter i<— i+1 jusquà Tabli] >= piv; 
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repeter j<- j-1 jusquà Tab{j] <= piv; 
temp <— Tabli]; 
Tab{i] < Tab{j]; 
Tab[j] — temp 

jusquà j <= i; 

Tab{j] — Tabli]; 

Tabli] — Tab[d|; 

Tab{d] < temp; 

résultat <— i 

FinPartition 


Algorithme TriRapide( G , D : entier ); 
Local : i : entier 
début 
si D > G alors 
1 <—Partition( G , D ); 
TriRapide( G , 1-1 ); 
TriRapide( i+1 , D ):; 
Fsi 
FinTRiRapide 


Nous supposons avoir mis une sentinelle dans le tableau, dans la première cellule la plus à 
gauche, avec une valeur plus petite que n'importe qu'elle autre valeur du tableau. 


Cette sentinelle est utile lorsque le pivot choisi aléatoirement se trouve être le plus petit 
élément de la table /pivot = min (al, a2, … , an)/: 


Comme nous avons: 
Vj, Tab[j] > piv, alors la boucle : 


"repeter j << j-1 jusquà Tab{j] <= piv ;" 
pourrait ne pas s'arrêter ou bien s'arrêter sur un message d'erreur. 


La sentinelle étant plus petite que tous les éléments y compris le pivot arrêtera la boucle et encore une fois évite 
de programmer le cas particulier du pivot = min (al, a2, .… , an). 


D) Complexité : 


Nous donnons les résultats classiques et connus mathématiquement (pour les démonstrations 
nous renvoyons aux ouvrages de R.Sedgewick & Aho-Ullman cités dans la bibliographie). 
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o) 


Choix opération 


Î 
© 


L'opération élémentaire choisie est la comparaison de deux cellules du tableau. 


Comme tous les algorithmes qui divisent et traitent le problème en deux sous-problèmes le 
nombre moyen de comparaisons est en O(n.log(n)) que l'on nomme complexité moyenne. La 
notation log (x) est utilisée pour le logarithme à base 2, log2 (x). 


L'expérience pratique montre que cette complexité moyenne en O(n.log(n)) n'est atteinte que 
lorsque les pivots successifs divisent la liste en deux sous-listes de taille à peu près 
équivalente. 

Dans le pire des cas (par exemple le pivot choisi est systématiquement à chaque fois la plus 
grande valeur) on montre que la complexité est en O(n°). 


Comme la littérature a montré que ce tri était le meilleur connu en complexité, il a été proposé 
beaucoup d'améliorations permettant de choisir un pivot le meilleur possible, des 
combinaisons avec d'autres tris par insertion généralement, si le tableau à trier est trop petit..… 


Ce tri est pour nous un excellent exemple en n.log(n).illustrant la récursivité. 


E) Programme Delphi (tableau d'entiers) : 
program TriQuickSort; 


const N = 10; / Limite supérieure de tableau } 
type TTab = array [0..N] of integer, / TTab : Type Tableau } 
var Tab : TTab ; 


function Partition ( G , D : integer) : integer:; 
var 1, j: Integer; 
piv, temp : integer; 
begin 
1 := G-1; 
j:= D; 
piv := Tab[D|; 
repeat 
repeat i := i+1 until Tabli] >= piv; 
repeat j := j-1 until Tab{j] <= piv; 
temp :=Tabli]; 
Tabfi] :=Tab{j]; 
Tab{j] :=temp; 
until j <= i; 
Tab{j] := Tabli]; 
Tab{i] := Tab{d|; 
Tab{d] := temp; 
result := i; 
end;/Partition} 
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procedure TriRapide( G, D : integer); 
var 1: Integer; 
begin 

if D>G then 

begin 


1:= Partition( G , D j; 
TriRapide( G , 1-1 ); 
TriRapide( i+1 , D ); 
end 
end;/7riRapide} 


procedure Initialisation(var Tab:TTab) ; 
{ Tirage aléatoire de N nombres de 1 à 100 } 
var 1: integer; { i : Indice de tableau de N colonnes } 
begin 

randomize; 

for i := 1 to N do 

Tabl{i] := random(100); 

Tab[0] := -Maxint ; // la sentinelle 

end; 


procedure Impression(Tab:TTab) ; 

{ Affichage des N nombres dans les colonnes } 

var 1 : integer; 

begin 
writeln("------"-----"""-"""""-- ); 
for i:= 1 to N do write(Tabli] : 3,'|'); 

writeln; 
end; 


begin 
Initialisation(Tab); 
writeln('TRI RAPIDE); 
writeln; 
Impression(Tab); 
TriRapide( 1 ,N ); 
Impression(Tab); 
D'HICU DE 
end. 


Résultat de l'exécution du programme précédent : 


TRI RAPIDE 
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E) Programme Java (tableau d'entiers) : 


class ApplicationTriQOSort 
{ 
static int[] table = new int[21] ; // le tableau à trier en attribut 
/* Les cellules [0] et [20] contiennent 
des sentinelles, 
Les cellules utiles vont de 1 à 19. 
(de 1 à table.length-2) 
#f 


static void impression ( ) 

{ 

// Affichage sans les sentinelles 
int n = table.length-2; 

for ( int i = 1; i<=n; i++) 
System.out.print(tableli]+" , "); 
System.out.println(); 

} 


static void initialisation ( ) 
{ 
// remplissage aléatoire du tableau 
int n = table.length-2; 
for(int i = 1; i<=n; i++) 
tablefi] = (int) (Math.random()*100); 
// Les sentinelles: 


table[0] = -Integer.MAX VALUE; 
tablefn+1] = Integer.MAX VALUE; 
} 

/[/ ----> Tri rapide 


static int partition (int G, int 
{ // partition / Sedgewick / 
int i, j, piv, temp; 
piv = table[D]; 
= G-1; 
j = D; 
do 
Li 
do 
i++; 
while (tableli]<piv); 
do 
j——; 
while (table[j]l>piv}); 
temp = tableli]; 
tableli] = tableljl]l; 
tablel;] temp; 
} 
while(j>i); 
tablel;i] tablelil; 
tableli] = table[D]; 
table[D] = temp; 
return ji; 
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static void QSort (int G, int D ) 

{ // tri rapide, sous-programme récursif 
int de 

if (D>G) 


partition(G,D); 
QSort(G,i-1); 
QSort(i+1,D); 


public static void main(string[ |] args) 

{ 
Initialisation ( j); 
int n = table.length-2; 
System.out.println("Tableau initial :"); 
Impression ( ); 

QSort(l1,n); 
System.out.println("Tableau une fois trié :"); 
Impression ( ); 
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Le tri par arbre 


e Définitions préliminaires 
e A) Spécification abstraite 
e B) Spécification concrète 
e C) Algorithme 

e D) Complexité 

e E) Programme Delphi 


C'est un tri également appelé tri par tas (keapsort, en anglais). Il utilise une structure de données 
temporaire dénommée ‘'tas'' comme mémoire de travail. 


= Définitions préliminaires a 


Définition - 1 / Arbre parfait : 


c'est un arbre binaire dont tous les noeuds de chaque niveau sont présents sauf éventuellement 
au dernier niveau où il peut manquer des noeuds (noeuds terminaux = feuilles), dans ce cas 
l'arbre parfait est un arbre binaire nmcomplet et les feuilles du dernier niveau doivent être 
regroupées à partir de la gauche de l'arbre 


un arbre parfait complet 


Amputons l'arbre parfait précédent de ses trois feuilles situées sur le bord droit, les cinq 
premières feuilles de gauche ne changeant pas, on obtient toujours un arbre parfait mais il est 
incomplet : 
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un autre arbre parfait incomplet 


exemple d'arbre non parfait 


Définition - 2 / Arbre partiellement ordonné : 


C'est un arbre étiqueté dont les noeuds appartiennent à un ensemble muni d'une relation 
d'ordre total (les nombres entiers, réels etc. en sont des exemples) tel que pour un noeud 
donné tous ses fils ont une valeur supérieure ou égale à celle de leur père. 


Exemple d'un arbre partiellement ordonné sur l'ensemble {20, 27,29, 30, 32, 38, 45, 45, 50, 
51, 67 ,85 } d'entiers naturels : 


Nous remarquons que la racine d'un tel arbre est toujours l'élément de l'ensemble 
possédant la valeur minimum (le plus petit élément de l'ensemble), car la valeur de ce noeud 
par construction est inférieure à celle de ses fils et par transitivité de la relation d'ordre à celles 
de ses descendants c'est le minimum. 
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S1 donc nous arrivons à ranger une liste d'éléments dans un tel arbre le minimum de cette liste 
est atteignable immédiatement comme racine de l'arbre. 


Exemple d'un autre arbre partiellement ordonné sur le même ensemble {20, 27,29, 30, 32, 38, 
45, 45, 50, 51, 67 ,85 } d'entiers naturels (il n'y a pas unicité) : 


Définition - 3 / Le tas : 


On appelle tas un tableau représentant un arbre parfait partiellement ordonné. 


Principe du tri par tas 


C'est une variante de méthode de tri par sélection où l'on parcourt le tableau des éléments en 
sélectionnant et conservant les minimas successifs (plus petits éléments partiels) dans un arbre parfait 
partiellement ordonné. 


A) Spécification abstraite 


Nous supposons que les données a1, a, … , a, sont mises sous forme d'une liste (a1, a2, … , 
&), le principe du tri par tas est de parcourir la liste (a, 42, … , a.) en ajoutant chaque élément 
ak dans un arbre parfait partiellement ordonné. 


e L'insertion d'un nouvel élément à dans l'arbre a lieu dans la dernière feuille vide de 
l'arbre à partir de la gauche (ou bien si le niveau est complet en recommençant un 
nouveau niveau par sa feuille la plus à gauche) et, en effectuant des échanges tant que 
la valeur de ak est inférieur à celle de son pére. 


e Lorsque tous les éléments de la liste seront placés dans l'arbre, l'élément minimum "ai" 


de la liste (ai, a, … , a,) se retrouve à la racine de l'arbre qui est alors partiellement 
ordonné. 
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e On recommence le travail sur la nouvelle liste (a:, 42, … , an) -{ai}(c'est la liste précédente 
privée de son minimum), 


pour cela on supprime l'élément minimum ai de l'arbre pour le mettre dans la 
liste triée puis, 


on prend l'élément de la dernière feuille du dernier niveau et on le place à 
la racine. 


On effectue ensuite des échanges de contenu avec le fils dont le contenu est 
inférieur, en partant de la racine, et en descendant vers le fils avec lequel on a 
fait un échange, ceci tant qu'il n'a pas un contenu inférieur à ceux de ses deux 
fils (ou de son seul fils) ou tant qu'il n'est pas à une feuille. 


e On recommence l'opération de suppression et d'échanges éventuels jusqu'à ce que 
l'arbre ne contienne plus aucun élément. 


B) Spécification concrète 


La suite (ai, 42, … , a.) est rangée dans un tableau à une dimension T[...] correspondant au 
tableau d'initialisation. Puis les éléments de ce tableau sont ajoutés et traités un par un dans un 
arbre avant d'être ajoutés dans un tableau trié en ordre décroissant ou croissant, selon le choix 
de l'utilisateur. 


Signalons qu'un arbre binaire parfait se représente classiquement par un tableau : 


S1 t est ce tableau, on a les règles suivantes : 
e t[1]est la racine : 


e tlidiv 2] est le père de t[i] pour i > 1: 
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e t[2 *ilett[2 * i+ 1] sont les deux fils, s'ils existent, 
de t{i] : 


e _sip est le nombre de noeuds de l'arbre et si 2 * 1=p, 
ti] n'a qu'un fils, t[p]. 
si i est supérieur à p div 2, t[i] est une feuille. 


Figures illustrant le placement des éléments de la liste dans l'arbre 


Exemple d'initialisation sur un tableau à 15 éléments : 


Insertion du premier élément (le nombre 7) à la racine de l'arbre : 


Insertion du second élément (le nombre 27, 27 > 7 donc c'est un fils du noeud 7) : 


Insertion du troisième élément (le nombre 41, 41 > 7 c'est un fils du noeud 7) : 
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Insertion du quatrième élément (le nombre 30, comme le niveau des fils du noeud 7 est 
complet, 30 est placé automatiquement sur une nouvelle feuille d'un nouveau niveau, puis il 
est comparé à son père 27, 30 > 27 c'est donc un fils du noeud 27 il n'y a pas d'échange ) : 


Insertion du cinquième élément (le nombre 10) : L'insertion du nouvel élément 10 dans l'arbre 
a lieu automatiquement dans la dernière feuille vide de l'arbre à partir de la gauche, ici le fils 
droit de 27 : 


Puis 10 est comparé à son père 27, cette fois 10 est plus petit que 27, il y a donc échange des 
places entre 27 et 10, ce qui donne un nouvel arbre : 


Puis 10 est comparé à son nouveau père 7, cette fois il n'y a pas d'échange car 10 est plus 
grand que 7. 


Le processus continue avec l'élément suivant de la liste le nombre 31: 
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31 est automatiquement rangé sur la première feuille disponible à gauche soit le fils gauche 
de 41: 


Puis 31 est comparé à son père, comme 31 < 41 il y a échange des valeurs, puis 31 est 
comparé à son nouveau père 7 comme 31 > 7 il n'y a plus d'échange : 


etc. 


Supposons que l'arbre ait été construit sur les dix premiers éléments du tableau et 
observons maintenant comment l'élément minimum de la liste qui est le onzième 
élément, soit le nombre 3, est rangé dans l'arbre. 


D 7 7 | ENENRINIES 


Voici l'état de l'arbre avant introduction du nombre 3 (quatre niveaux de nœuds) : 


Le nombre 3 est introduit sur la première feuille libre du niveau quatre : 


= insertion 
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Il est comparé à son père le noeud 17, comme 3 < 17, il y a alors échange : 


Il est ensuite comparé à son nouveau père le noeud 10, comme 3 < 10, il y a alors échange : 


= 


Il est enfin comparé à son dernier père (la racine de l'arbre), comme 3 < 7, il y a alors échange 


C'est l'élément 3 qui est maintenant la racine de l'arbre, comme les 4 éléments suivants sont 
plus grand que 3, ils seront rangés plus bas dans l'arbre (cf. figure ci-dessous) : 
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Conclusion sur le premier passage : 


La liste initiale : 


est finalement stockée ainsi : 


é——— plus petit élément 


Figures illustrant la suppression de la racine 


Le nombre 3 est le plus petit élément, on le supprime de l'arbre et l'on prend l'élément de la 
dernière feuille du dernier niveau (ici le nombre 25) et on le place à la racine (à la place 
qu'occupait le nombre 3) 


ce qui donne comme nouvelle disposition : 
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et l'on recommence les échanges éventuels en comparant la racine avec ses descendants : 


le fils gauche 23 est inférieur à 25 => échange 


Arrêt du processus (33 > 25 et 30 > 25) 


On obtient le deuxième plus petit élément à la racine de l'arbre, ici le nombre 7. 
Puis l'on continue à "vider" ainsi l'arbre et déplaçant les feuilles vers la racine et en 
échangeant les noeuds mal placés. 


A la fin, lorsque l'arbre a été entièrement vidé, nous avons extrait à chaque étape le plus petit 
élément de chaque sous liste restante et nous obtenons les éléments de la liste classés par 
ordre croissant ou décroissant selon notre choix (dans notre exemple si nous stockons les 
minima successifs de gauche à droite dans une liste nous obtiendrons une liste classée par 
ordre croissant de gauche à droite). 


En résumé notre version de tri par tas comporte les étapes suivantes : 


e _initialisation : ajouter successivement chacun des n éléments dans le tas t[1..p]; p 
augmente de 1 après chaque adjonction . A la fin on a un tas de taille p =n. 


e tant que p est plus grand que 1, supprimer le minimum du tas (p décroît de 1), réorganiser 
le tas, ranger le minimum obtenue à la (p + 1)" place. 


On en déduit l'algorithme ci-dessous composé de 2 sous algorithmes Ajouter pour la 
première étape, et Supprimer pour la seconde. 
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©) Algorithme : 


Algorithme Ajouter 
Entrée P : entier ; x : entier / P nombre d'éléments dans le tas, x élément à ajouter 
Tas[1..max] : tableau d'entiers / le tas 
Sortie P : entier 
Tas[1..max] / le tas 
Local j, temp : entiers 
début 
P< P +1; /incrémentation du nombre d'éléments du tas 
]<— P ; J'initialisation de j à la longueur du tas (position de la dernière feuille) 
Tas[P] < x ; / ajout l'élément x à la dernière feuille dans le tas 
Tantque (j > 1) et (Tas[j] < Tas[j div 2]) faire ; / tant que l'on est pas arrivé à la racine et 
que le "fils" est inférieur à son “père”, on permute les 2 valeurs 
temp <— Tas{j] ; 
Tas{j] <— Tas[j div 2] ; 
Taslj div 2] < temp ; 
j<—jdiv2; 
finTant 
FinAjouter 


Algorithme Supprimer 
Entrée : P : entier / P nombre d'éléments contenu dans l'arbre 
Tas[1..max] : tableau d'entiers / le tas 
Sortie : P : entier // P nombre d'éléments contenu dans l'arbre 
Tas[1..max] : tableau d'entiers // le tas 
Lemini : entier / le plus petit de tous les éléments du tas 
Local i, j, temp : entiers ; 
début 
Lemini < Tas[1] ; / retourne la racine (minimum actuel) pour stockage éventuel 
Tas[1] <-Tas[P] ; / la racine prend la valeur de la dernière feuille de l'arbre 
P<P-1; 
IS 
Tantque j <= (P div 2) faire 
/ recherche de l'indice i du plus petit des descendants de Tas{j] 
si (2 * j= P ) ou (Tas[2 * j] < Tas[2 * j+1]) 
alorsi<— 2*)j; 
sinon i <—2 * j +1 ; 
Fsi; 
/ Echange éventuel entre Tas{j] et son fils Tas{i] 
si Tlab{j] > Tlab[i] alors 
temp < Tlab[j] ; 
Tlab{j] <— Tlabfi] ; 
Tlab{i] <— temp ; 
Ju 
sinon Sortir ; 
Fsi; 
finTant 
FinSupprimer 
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Algorithme Tri_par_arbre 
Entrée Tas[1..max] //e tas 
Tablnit{1..max] / les données initiales 
Sortie TabTrie[1..max]: tableaux d'entiers / tableau une fois trié 
Local P : Entier / P le nombre d'éléments à trier 
Lemin : entier / le plus petit de tous les éléments du tas 
début 
P<«0; 
Tantque P < max faire 
Ajouter(P,Tas,Tablnit[P+1]); / appel de l'algorithme Ajouter 
finTant; 
Tantque P >= 1 faire 
Supprimer(P,Tas,Lemin) ; // appel de l'algorithme Supprimer 
TabTrie[max-P] <— Lemin ; / stockage du minimum dans le nouveau tableau 
finTant; 
Fin Tri_par_arbre 


D) Complexité : 


Cette version de l'algorithme construit le tas par n appels de la procédure Ajouter et effectue 
les sélections par n - 1 appels de la procédure supprimer. 


n 
> log, 1 


Le coût et de l'ordre de 1 comparaisons, au pire. 


La complexité au pire en nombre de comparaisons est en O(n log n). 


Le nombre d'échanges dans le tas est majoré par le nombre de comparaisons et il est du même 
ordre de grandeur. 


La complexité au pire en nombre de transferts du tri par tas est donc en O(n log n). 


E) Programme Delphi (tableau d'entiers) : 


program TriParArbre; 
const Max =10; / nombre maximal d'éléments du tableau 
type TTab=array [1..Max] of integer; // TTab : Type Tableau 
var Tas, Tablnit, TabTrie : TTab; / Tas, tableau initial puis tableau 
triéTableau 

P, Lemin : integer; 


procedure Ajouter (var Tas : TTab; var P, x : integer): 
var j, temp : integer ; 
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begin 


D 2= 2 4 | 2 
=): 
Tas[P] := x ; 


if j>1 then 
While Tas[j] < Tas[j div 2] do 
begin 
temp := Tasfj] ; 
Tas{j] := Tas{j div 2] ; 
Tas[j div 2] := temp ; 


j=jJ iv 2: 
if j<=1 then break; 
end 


end; / Ajouter 


procedure Supprimer (var Tas:TTab; var P, Lemin : integer); 
var 1, j, temp : integer ; 
begin 
Lemin := Tas{1] ; 
Tas[1] := Tas[P] ; 
PÉIPEIE 
j=l; 
While j <= (P div 2) do 
begin 
if (2 *j=P )or(Tas[2 * j] < Tas[2 * j+1]) 
then i := 2 * j 
elsei=2*j+1l; 
if Tas{j] > Tas[i] then 
begin 
temp := Tas|j] ; 
Tas[j] := Tas{i] ; 
Tas[i] := temp ; 
= 
end 
else break ; 
end 
end; / Supprimer 


procedure Initialisation(var Tab:TTab) ; 
/ Tirage aléatoire de Max nombres de 1 à 100 
var 1: integer; /i : Indice de tableau 
begin 

randomize; 

for i := 1 to Max do 

Tabl{i] := random(100); 

end; 


procedure Impression(Tab:TTab) ; 
" Affichage des Max nombres 
var 1 : integer; 
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begin 
DUC DE 
for i:= 1 to Max do write(Tabli] : 3, |"); 
writeln; 
end; 


begin / TriParArbre 
Initialisation(Tablnit); 
writeln('TRI PAR ARBRE); 
writeln; 
Impression(Tablnit); 
P:=0; 
while p < Max do 
Ajouter ( Tas, p, Tablnit{p+1] ); 
while p >= 1 do 
begin 
Supprimer ( Tas, P, Lemin ) ; 
TabTrie[Max-P]:=Lemin 
end; 
Impression(TabTrie); 


readin 
end. / TriParArbre 


REMARQUE IMPORTANTE 


Notons que dans la procédure nous avons traduit la condition de la boucle : 
Tantque (j > 1) et (Tas[j] < Tasf[j div 2]) faire 
temp <— Tas[j] ; 
Tas{j] <— Tas[j div 2] ; 
Tas[j div 2] < temp ; 
j<—jdiv2; 
finTant 
par les lignes de programmes suivantes : 
if j>1 then 
While Tas[j] < Tas[j div 2] do 
begin 
temp := Tas|[j] ; 
Tas{j] := Tasfj div 2] ; 
Tas[j div 2] := temp ; 


J:=7J div 2; 
if j<=1 then break 
end 


BA] 


ceci afin d'éviter un incident dû à un effet de bord. Lorsque l'indice "j" prend par exemple la 
valeur 1, l'indice "j div 2" vaut alors 0 et cette valeur n'est pas valide puisque l'indice de 
tableau varie entre 1..Max. 
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On peut pallier aussi d'une autre manière à cet inconvénient en ajoutant une sentinelle "à 
gauche dans le tableau" en étendant la borne inférieure à la valeur 0, les indices pouvant alors 
varier entre 0..Max. On obtient une autre écriture de la procédure "Ajouter" qui suit malgré 
tout l'algorithme de près : 


type TTab=array [0..Max] of integer; //0 est l'indice sentinelle 


procedure Ajouter (var Tas : TTab; var P, x : integer); 
var j, temp : integer ; 
begin 
RESTE PAIE 
EIRE 
Tas[P] := x ; 
While (j > 1) et (Tas{j] < Tas[j div 2]) do 
begin 
temp := Tasfj] ; 
Tas{j] := Tas{j div 2] ; 
Tas[j div 2] := temp ; 


J = jdiv2, 
end 
end, / Ajouter 


Résultat de l'exécution du programme précédent : 


TRI PAR ARGRE 
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3. Rechercher dans un tableau 


Les tableaux sont des structures statiques contiguës, il est facile de rechercher un élément fixé 
dans cette structure. Nous exposons ci-après des algorithmes élémentaires de recherche 
utilisables dans des applications pratiques par le lecteur. 

Essentiellement nous envisagerons la recherche séquentielle qui convient lorsqu'il y a peu 
d'éléments à consulter (quelques centaines), et la recherche dichotomique dans le cas où la 
liste est triée. 


3.1 Recherche dans un tableau non trié 


Algorithme de recherche séquentielle : 


Soit t un tableau d'entiers de 1..n éléments non rangés. 


On recherche le rang (la place) de l'élément Elt dans ce tableau. L'algorithme 


renvoie le rang (la valeur -1 est renvoyée lorsque l'élément Elt n'est pas 
présent dans le tableau t) 


Complexité en O(n) 


Nous proposons au lecteur 4 versions d'un même algorithme de recherche séquentielle. Le 
lecteur adoptera une de ces versions en fonction des possibilités du langage avec lequel il 
compte programmer sa recherche. 


Version Tantque avec "et alors" (si le langage | Version Tantque avec "et" (opérateur et non 
dispose d'un opérateur et optimisé) optimisé) 

1< 1; 1< 1; 

Tantque (i < n) et alors (t[i] Z Elt) faire Tantque (i < n) et (t{i] Z Elt) faire 

1<— i+l 1<— i+]l 

finTant; finTant; 

si i<n alors rang <- i si t{[1] = Elt alors rang <- : 

sinon rang <— -1 sinon rang <- -1 

Fsi Fsi 


Version Tantque avec sentinelle en fin de tableau (rajout d'une cellule supplémentaire en fin 
de tableau contenant systématiquement l'élément à rechercher) 
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Version Tantque avec sentinelle avec "et 
alors” 


Version Pour avec instruction de sortie 
(conseillée si le langage dispose d'un opérateur 
Sortirsi ) 


t[n+1] <- Elt ; / sentinelle rajoutée 

1<— |]; 

Tantque (i < n) et alors (t[i] Z Elt) faire 
1<— it] 

finTant; 

si i<n alors rang <- i 

sinon rang <— -1 

Fsi 


pour i <— 1 jusquà n faire 
Sortirsi t{i] = Elt 
fpour; 


si i<n alors rang <- i 
sinon rang <— -1 
Fsi 


3.2 Recherche dans un tableau trié 


Spécifications d'un algorithme séquentiel 


Soit t un tableau d'entiers de 1..n éléments rangés par ordre croissant par exemple. 


On recherche le rang (la place) de l'élément Elt dans ce tableau. L'algorithme renvoie le 
rang (la valeur -1 est renvoyée lorsque l'élément Elt n'est pas présent dans le tableau t) 


On peut reprendre sans changement les versions de l'algorithme de recherche 
séquentielle précédent travaillant sur un tableau non trié. 


Complexité moyenne en O(n) 


On peut aussi utiliser le fait que le dernier élément du tableau est le plus grand élément et 
s'en servir comme une sorte de sentinelle. Ci-dessous deux versions utilisant cette dernière 


remarque. 


Version Tantque 


Version pour 


si t[n] < Elt alors rang <— -1 
sinon 
1< 1; 
Tantque t|i] < Elt faire 
1<— it; 
finTant; 
si t[i] = Elt alors rang <- : 
sinon rang <— -1 Esi 
Fsi 


si t[n] < Elt alors rang <- -1 
sinon 
pour i <- 1 jusquà n-1 faire 
Sortirsi t[i] > Elt / sortie de la boucle 
fpour:; 
si t{1] = Elt alors rang <- : 
sinon rang <— -1 Fsi 
Fsi 


Les bases de l'informatique - programmation 


- ( rév. 05.09.2004 ) page 265 


Spécifications d’un algorithme dichotomique 


e Soit t un tableau d'entiers de 1..n éléments rangés par ordre croissant par exemple. 


e On recherche le rang (la place) de l'élément Elt dans ce tableau. L'algorithme renvoie le 
rang (la valeur -1 est renvoyée lorsque l'élément Elt n'est pas présent dans le tableau t). 
Au lieu de rechercher séquentiellement du premier jusqu'au dernier, on compare 


l'élément Elt à chercher au contenu du milieu du tableau. Si c'est le même, on 
retourne le rang du milieu, sinon l'on recommence sur la première moitié (ou la 
deuxième) si l'élément recherché est plus petit (ou plus grand) que le contenu du 
milieu du tableau. 


e  Complexité moyenne en O(log(n)) 


Soit un tableau au départ contenant les éléments (x1, X2, … , Xn) 


CNE RER 


1 2 N 


On recherche la présence de l'élément x dans ce tableau. On divise le tableau en 2 parties 


égales : 
artlé gauche artlé drolte 


Soit x est inférieur à l'élément milieu et s'il est présent il ne peut être que dans la partie 
gauche, soit x est supérieur à l'élément milieu et s'il est présent il ne peut être que dans la 
partie droite. Supposons que x < milieu nous abandonnons la partie droite et nous 
recommençons la même division sur la partie gauche : 


partle gauche 


partie drolte 


On divise à nouveau la partie gauche en deux parties égales avec un nouveau milieu : 


x+< milieu x > milieu 


milieu 
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Si x < milieu c'est la partie gauche qui est conservée sinon c'est la partie droite etc … 


Le principe de la division dichotomique aboutit à la fin à une dernière cellule dans laquelle 


soit x = milieu et x est présent dans la table, soit x Z milieu et x n'est pas présent dans la 
table. 


Version itérative du corps de cet algorithme : 


bas, milieu, haut, rang : entiers 


bas <— 1; 
haut — N; 
Rang <- -|; 
repéter 
milieu <— (bas + haut) div 2; 
si x = t[milieu] alors 
Rang <— milieu 
sinon si t[{milieu] < x alors 
bas <— milieu + 1 
sinon 
haut < milieu-1 
fsi 
fsi 
jusquà ( x = t{milieu] ) ou ( bas haut ) 


Voici en Delphi une procédure traduisant la version itérative de cet algorithme : 


procedure dicholter(x:Elmt; table:tableau; var rang:integer); 
{recherche dichotomique par itération dans table rang =-1 si pas trouvé} 
var 
milieu: 1..max; 
g,d:0..max+1; 
begin 
g:=l; 
d := max; 
rang :=-|; 
while g <= d do 
begin 
milieu := (g+d) div 2; 
if x = table[milieu] then 
begin 
rang := milieu; 
exit 
end 
else 
if x < table[milieu] then d := milieu-1 
else g := milieu+1 


end; 
end;/dicholter} 
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Dans le cas de langage de programmation acceptant la récursivité (comme Delphi ), il est 
possible d'écrire une version récursive de cet algorithme dichotomique. 


Voici en Delphi une procédure traduisant la version récursive de cet algorithme : 


procedure dichoRecur(x:Elmt:itable: tableau; g,d:integer; var rang:integer); 
{ recherche dichotomique récursive dans table 
rang =-1 si pas trouvé. 
g, d: 0..max+1 } 
var 
milieu: 1..max; 
begin 
if g<= d'then 
begin 
milieu := (g+d) div 2; 
if x = table[milieu] then rang := milieu 
else 
if x < table[milieu] then / la partie gauche est conservée 
dichoRecur( x, table, g, milieu-1, rang ) 
else // la partie droite est conservée 
dichoRecur( x, table, milieu+1, d, rang ) 
end 
else rang := -1 
end; {dichoRecur} 
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Exercices chapitre 3 


Des exercices traités avec leur solution détaillée 


Algorithmes et leur traduction en langage de programmation 


Somme de 2 vecteurs 
Fonctions booléennes 
Variantes sur la factorielle 
PGOCD , PPCM de deux entiers 
Nombres premiers 

Nombres parfaits 

Suite : racine carrée - Newton 
Inversion d’un tableau 


Û D OC OO O0 © D © 
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Des algorithmes 


Somme de 2 vecteurs 


Enoncé : 


Programme simple d’utilisation des tableaux, on représente un vecteur de Z” dans un tableau à un indice variant 
de 1 à n. Ecrire un programme LDFA additionnant 2 vecteurs de Z” dont les composantes sont lues au clavier. 


Solution faisant apparaître les niveaux de décomposition et l'algorithme associé 


b 
À : | de 
di dal à Niveau 1: 


Algorithme Somme Vecteur 
Entrée: U, V deux vecteurs de Z" 
Sortie: W. un vecteur de Z”° 


Local: ie N 


début 
lire(U, V); 
W € U+V; 
ecrire (W) 


FinSomme Vecteur 


Un vecteur de Z” est défini par ses coordonnées : U(U, , U: , …., U, ); V(Vi, V2, .…., Va )etc…. 


Action < W = U+V > : Action < Lire (U,V)>: |Action < Ecrire(W) > : 
Vi,1<i<n / W =U+V Vi,1<i<n / lire Uet V; Vi,1<i<n / ecrire W; 
Description : Description : Description : 
Pour i € 1 jusquà n Faire Pour i € 1 jusquà n Faire Pour i € 1 jusquà n Faire 
W; € U+V; lire(U; , Vi) ecrire(W;) 
Fpour; Fpour; Fpour; 


ALOOTINITE 


Niveau 2 : 
début 
< lire(u,v) > 


Pour i < 1 jusquà n Faire 
W, € U+ V; 
Fpour; 


< ecrire(w) > 
FinSomme Vecteur 


[Pour i<-- l jusqui n faire | Fpour 
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Pour i € 1 jusquà n Faire 
lire(U; , Vi) 
Fpour; 


[Pouri <- me | Fpour 
Pour i € 1 jusquà n Faire 


ecrire(W;) 


[Pouri <- 1 jusqua n faire i=<-- ] jusqu n faire Fpour; 


FinSomme Vecteur 


Algorithme Somme Vecteur 
Entrée: U,V deux vecteurs de Z' 
Sortie: W un vecteur de Z' 


Local: ie N 


début 
| ! pour i <— 1 jusquà n faire 
lire(Ui , Vi) 
Fpour; 


än( 
3 
pour i <— 1 jusquà n faire 


[Pour i <- 1 jusquà n faire Wi <— Ui + Vi 


Fpour; 
pour i <—1 jusquà n faire 
ecrire(Wi) 

[Pouri i<-- l jusquà n faire [FF Fpour; 


fin //sommevecteur 
[Pour i=-- l jusquà n faire 


program somme_ vecteur; 
const n =3; 


; . | Ù 
type = ; } 
intervalle=1..n; LD'ON NT | 


vecteur = array|intervalle] of integer; 
var 
U,V,W:vecteur; 
i:intervalle; 
begin 
for i:=1 to n do readin (Ulfi],V{il); 
for i:=1 to n do Wfil:=Ufi]+V{i]; 
for i:=1 ton do writeln(Wli]); 
end. 
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Fonctions booléennes 


Enoncé : 


Programme simple d'écriture de deux fonctions de calcul des deux connecteurs logiques, le et booléen et le ou 
booléen par application des propriétés suivantes : 


X et Faux = Faux 
X et Vrai =X 


X ou Vrai = Vrai 
X ou Faux = X 


Solution en Ldfa avec les traductions de chaque fonction en Delphi-Pascal et en Java 


LDFA LDFA 
Algorithme LeEt Algorithme LeOu 
// un Et logique // un Ou logique 


Entrée: x, y € Booléens 
Sortie: resultat € Booléens 


debut 
si x = Faux alors 
resultat < Faux 
sinon 
resultat <— y 
fsi 
fin // LeEt 


Entrée: x, y € Booléens 
Sortie: resultat € Booléens 


debut 
si x =Vrai alors 
resultat < Vrai 
sinon 
resultat <— y 
fsi 
fin // LeOu 


DELPHI-Pascal 


function Et(x,y : Boolean):Boolean; 
begin 
if x=faux then 
result := false 
else 
result := y 
end; 


DELPHI-Pascal 


function Ou(x,y : Boolean):Boolean; 
begin 
if x=true then 
result := true 
else 
result := y 
end; 


Java 
boolean Et ( boolean x , boolean y) 


if (x == false ) 
return false ; 
else 
return y ; 


Java 
boolean Ou ( boolean x , boolean y) 


f(x==true) 
return true ; 
else 
return y ; 


On pourra utiliser les raccourcis d'écriture suivants pour un algorithme-fonction : 


Algorithme LeEt 
Entrée: x, y € Booléens 
Sortie: resultat € Booléens 


Algorithme LeOu 
Entrée: x, y € Booléens 
Sortie: resultat € Booléens 


Fonction LeEt (x , y: Booléens) : resultat Booléens 


Fonction LeOu (x , y: Booléens) : resultat Booléens 
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Variantes sur la factorielle 


Enoncé : Algorithme de calcul de la factorielle d'un entier n! =n.(n-1)! en utilisant différentes instructions de 


boucles. 


Solution en Ldfa 


par boucle tantque..ftant 


par boucle pour...jusquà 


Algorithme Factor 
Entrée: n € Entier* 
Sortie: fact e Entier* 
Local: i eN 


début 
lire(n) ; 
fact <- 1; 
1<— 2; 
Tantque i <= n Faire 
fact <- fact * i ; 
1 i+l; 
Ftant; 
Écrire (n ,! = , fact ); 
Fin // Factor 


Algorithme Factor 
Entrée: n € Entier* 


Sortie: fact e Entier* 
Local: ienN 

début 

lire(n) ; 

fact <- 1; 


Pour i <- 2 jusquà n Faire 
fact <— fact*i ; 

Fpour; 

Ecrire (n ,! = , fact }; 

Fin // Factor 


par boucle repeter.... jusqua 


par récursivité à partir de la formule 


Algorithme Factor 
Entrée: n € Entier* 
Sortie: fact e Entier* 
Local: i € Entier 
début 

lire(n) ; 


fact <- 1; 
1 2; 
Repeter 
fact <- fact * i ; 
1<—i+l; 
jusquà i>n; 
ecrire(n .! = 


! fact }: 
fin // Factor 


Algorithme fact_recur 


utilise Fonction fact 
debut 

ecrire ('5! =',fact(5)) 
fin // fact_recur 


Fonction fact (n:entier) : resultat entier 
debut 


sin=0Oalors resultat < 1 


sinon resultat <- fact (n-1)*n 
fsi 


fin // fact 


: n! =n.(n-1l)! 


program Factor; 

var n , fact , i :integer ; 

begin 

readin(n); 

fact:=1; 

11=2; 

repeat 
fact:=fact*i; 
i:=i+1 


var 


program Factor; 


n:integer; 


function fact (n : integer ) : integer ; 
begin 


ifn=0 then result:=1 
else result:=fact(n-1)*n 


end;// fact 


untili>n; begin 
writeln(n ,'! = ', fact) readin(n); 
end. writeln(n ,'! = ', fact(n)); 
end. 


Les bases de l'informatique - programmation 


- ( rév. 05.09.2004 ) 


EXERCICES 


page 


273 


PGOCD , PPCM de deux entiers 


Enoncé : Ecrire des programmes LDFA donnant le pgcd et le ppem de 2 entiers naturels. 


Le pgcd de 2 entiers non nuls est le plus grand diviseur commun à ces deux entiers. 
Exemple : 35 et 21 ont pour pgcd 7, car 35 = 7*5 et 21 = 7*3, 


Le ppem de 2 entiers non nuls est le plus petit commun multiple à ces deux entiers. 
Exemple : 35 et 21 ont pour ppem 105, car 105 =3*35 et 105=5*21. 


Solution du pgcd faisant apparaître les niveaux de décomposition et l'algorithme associé 


La méthode employée pour évaluer le pgcd de 2 entiers, se dénomme l'algorithme d'Euclide ou encore la 
division par les restes successifs. Soit le calcul du pgcd de 35 et 21 : on divise 35 par 21, puis 21 par le reste 14, 
puis 14 par le nouveau reste 7etc...Le processus s'arrête lorsque le dernier reste est nul, le pgcd est alors le 


précédent reste non nul 


35 


Le dernier reste non nul étant 7, le pgcd de 35 et 21 est donc 7. D'une manière générale, pour calculer le pgcd de 
deux entiers a et b nous divisons le plus grand par le plus petit, chacun de ces deux entiers est représenté par une 


variablea € Netb € N, nous classons systématiquement les contenus de ces variables en mettant dans a le 
plus grand des deux entiers et dans b le plus petit des deux. 


doré 


Niveau 1: 


Algorithme CalculPgcd 
Entrée: a,b € N*° 


Sortie: pgcd € N 
Local:r,t € N° 


début 


< min(a,b) dans b, max dans a >; 
< divisions par restes successifs > 


Deux actions sont utilisées pour calculer le pgcd de 2 entiers. FinCalculPgcd 


Action < min(a,b) dans b, max dans à >: 


Action < divisions par restes successifs >: 


Description : 


Si b>a Alors 
< échange a et b > 
Fsi; 


Description : 


Répéter 

<r=reste (a par b) , division > 
jusquà r=0; 
pgcd < à; 
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Niveau 2 : 
Algorithme CalculPgcd 


Entrée: a ,b € N*? 
Sortie: pgcd € N 
Local:r,t € N° 


Si b>a Alors 
< échange a et b > 
Fsi; 


Répéter 
<r=reste (a par b) , division > 
jusquà r—0; 


FinCalculPgcd 


Action < échange a et b > Action <r= reste (a par b) , division > 
Description : Description : 

t Ça; r € amodb; 

a <b; a<b; 

b<t b<r 


Niveau 3 : 
Algorithme CalculPgcd 


Entrée: a ,b € N*? 
Sortie: pgcd € N 
Local:r,t € N° 


Si b>a Alors 


< divisions par restes > 


FinCalculPgcd 


Les bases de l'informatique - programmation - (4: 05.09.2004) EXERCICES page 275 


Ce qui donne finalement en développant 


les branches de l'arbre jusqu'au niveau 3 


Algorithme CalculPgcd program calcul_Pecd; 
Entrée: a b € N*? var . 
Sortie: pgcd € N na d HIAESE | 
Hu CN pgcd, r, t : integer; 
begin 
a : readin(a,b); 
re(a,b); if b>a then 
Si . st begin 
a; t:=a; 
a <b; + a:=b; 
b<t b:=t 
Fsi; end; 
Répéter répeat 
ns din r := a mod b; 
a<b; a:=b; 
b<r b:=r 
rs 10; until r=0; 
pecd € a; pgcd:= a; 
ecrire(pgcd) writeln(pgcd) 
FinCalculPgcd end. 


Solution du calcul du ppem de deux entiers sous forme d'un algorithme-fonction 


La méthode employée pour évaluer le ppem de 2 entiers a et b ( b <a Jest simple : 
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Nous évaluons tous les multiples de b par ordre croissant (2b, 3b, ...) et nous arrêtons le calcul dès qu'un 
multiple est divisible par a (si a et b sont premiers entre eux le ppem est égal à leur produit) : 


Au nl , 
EN | 


Éd 
nt 


2b 3b 


Délpii 
program calcul_ppcm; 


var 
a, b, p:integer; 


function ppcm (a.b:integer):integer; 
var 
k,p:integer; 
begin 
p:=b; 
k:=l; 


while (k<= a)and(p mod a<>0) do 
begin 
p:=b*k; 
k:=Kk+l1; 
end; 
result:=p 
end; 


begin 

a:= 125; 

b:= 45; 

p:= ppcm(a, b); 

writeln('Calcul du ppem :'); 
writeln('a=', a, b=', b, => ppcm=, p) 
end. 


{n-1)b nb (a+1)b 


Fonction ppem (a,b:entier) résultat entier; 
local : n ,p € entier 


debut 
p<€b; 
n< |; 
tantque (n <= a) et (p Mod a<>0) faire 
p<b*n; 
n<n+l; 
ftant 
résultat < p 
Fin // ppcm 


Java 
class ApplicationPpem { 

public static void main(String[ ] args/) { 

int a,b,p; 

a=125; 

b=45; 

p=ppem(a,b); 

System.out.printin("Calcul du/ppem :"); 


System.out.printin("a="+a+"/b="+b+" => ppem="+p); 
} 


static int ppem (int a , int b) 


intn=1,p=b; 
while((n <= a)&{(p % a !=0)) 
{ 


p=b#*n; 
n ++; 
} 


return p ; 


/* Autre version avec un for sans aucun corps. Le code est 
plus compact, mais il est moins lisible ! 

ie 

static int ppem (int a , int b) 


int p=b; 


for(int n=1; (n<=a)&(p%a!=0); n++,p=b*n); 
return p ; 
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Nombres premiers 


Enoncé : Un nombre entier est premier s’il n’est divisible que par 1 et par lui-même. 
Exemple : 17, 19, 31 sont des nombres premiers. 


Ecrire un programme LDFA donnant les n premiers nombres premiers. 


Solution faisant apparaître les niveaux de décomposition et l'algorithme associé 


| 
À û À } - ! 
4 miel = Niveau 1: 
Entrée: n e N 
Eee 


Sortie: x € N 
Local: Est_premier € {Vrai , Faux} 


Divis ,compt € N° 


début 
Deux actions sont utilisées pour calculer les nombres premiers, lire(n); 
elles correspondent chacune à une branche de l'arbre. Tantque(compt < n) Faire 


< recherche primalité de x >; 
< comptage si x est premier > 
Ftant 
FinPremier 


Action < recherche primalité de x > Action < comptage si x est premier > 
Description : Description : 
Répéter Si Est_premier =Vrai Alors 
< x est-il divisible ?> <on ecrit x et on le compte> 
jusquà < non premier, ou plus de diviseurs> Fsi; 
<on passe au x suivant> 


Etude de la branche gauche de l'arbre au niveau 2 : 


el), n sa mil 
Ati t 


Niveau2: 
début 
lire(n); 
Tantque (compt < n) Faire 


Tantque compt=n faire ; Répéter 


< x est-il divisible ?> 
jusquà < plus de diviseurs> 


< comptage si x est premier > 
Ftant 
FinPremier 
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Etude de la branche gauche de l'arbre au niveau 3 : 


Action < x est-il divisible ?> Action < non premier, ou plus de diviseurs> 
Description : Description : 
Si x mod divis=0 Alors (divis > n-1) 
Est_premier < Faux ou 
Sinon (Est_premier=Faux) 
divis € divis+1 
Fsi 


RL. 
tit 


Niveau 2 


l Si x mod divis=-0 alors Î Est_Premier =--- Faux $ 
1 \ soit : divis > x-l 


Répéter AONANNN soit : Est_Premier = Faux 
Si x mod divis=0 Alors Niveau © 
Est_premier € Faux 
Sinon 
divis € divis+1 
Fsi 
jusquà (divis > x-1)ou (Est_premier=Faux); 


Etude de la branche droite de l'arbre au niveau 2 : 


Niveau 2 : 


PEER 


début 
F RE lire(n),; k 
FR ; Tantque (compt < n) Faire 
a Crcherheprimalité [à < recherche primalité de x >; 


Si Est_premier =Vrai Alors 
< Afficher x > 
Fsi; 


<on passe au x suivant> 


FinPremier 


Etude de la branche droite de l'arbre au niveau 3 : 
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Action < Afficher x > Action <on passe au x suivant> 


Description : Description : 


ecrire(x); 


x € x+1 
compt € compt+1 


Niveau 3 : 
Algorithme Premier 
Entrée: n € N 
Sortie: x € N 
Local: Est_premier € {Vrai , Faux} 
Divis ,compt € N° 


début 
lire(n); 
Tantque (compt < n) Faire 


< recherche primalité de x >; 


Si Est_premier =Vrai Alors 
ecrire(x); 
compt € compt+1 
Fsi; 


x< x+1l 


Niveau 3 compt <--- compt + 1 


Ftant 


FinPremier 


Version finale complète de l'algorithme 
Algorithme Premier 


Entrée:n € N 


sa traduction en Delphi 
program Premier; 


var 

Sbéx EN n,nbr,divis,compt:integer; 

Est_premier:boolean; 
Local: Est_premier € {Vrai, Faux} begin 
Divis , compt € N° write( Combien de nombres premiers : ‘); 

début readin(n); 
lire(n); iVP, nv: à bee « compt:=1; NT h à 
compt € 1; SK ue writeln(2); A 
ecrire(2); nbr:= 3; i 
x € 3; while (compt < n) do 
Tantque(compt < n) Faire begin 
divis € 2; divis:= 2; 
Est_premier € Vrai; Est_premier:= true; 
Répéter repeat 

Si x mod divis=0 Alors  Est_premier € Faux if nbr mod divis=0 then  Est_premier:= false 

Sinon  divis € divis+1 else  divis:= divis+1 

Fsi 


until (divis > nbr div 2)or (est_premier=false); 


jusquà (divis > x-1)ou (Est_premier=Faux); if Est_premier=true then 


Si Est_premier =Vrai Alors 


begin 
ecrire(x); writeln(nbr); 
compt € compt+1 compt:= compt+1 
Fsi; end; 
x<€< x+l nbr:= nbr+1 
Ftant end 
FinPremier end. 
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Nombres parfaits 


Enoncé : Un nombre est dit parfait s’il est égal à la somme de ses diviseurs 1 compris. 
Exemple : 6 = 1+2+3 , est parfait 


Ecrire un programme LDFA donnant les n premiers nombres parfaits. 


Solution faisant apparaître les niveaux de décomposition et l'algorithme associé 


die Spain 


Niveau 0 Entrée: n € N 
Dé Le Sortie: nbr € N 
cal somme seu br estrarait Local: som, k, compt € N° 


Niveau 1 début 

Tantque (compt < n) Faire 
< somme des diviseurs de nbr >; 
< nbr est parfait > 


Deux actions sont utilisées pour calculer les nombres parfaits, 


elles correspondent chacune à une branche de l'arbre. Ftant 
FinParfait 
Action < somme des diviseurs de nbr > Action < nbr est parfait > 
Description : Description : 
calcul de la somme des diviseurs du lorsque le nombre « nbr >» est reconnu comme parfait, 
nombre : nbr il doit être compté, puis afjiché à l'écran 


AE, < nbr est parfait si nbr = som > 


è : — 
cumul, si k divise nbr > < comptage > 
Fpour 


Etude de la branche gauche de l'arbre au niveau 2 : 


us is silos a 
ddl te 


Niveau2: 


Niveau 0 Début 
ms su Tantque (compt < n) Faire 
| Tantque compi=n faire 3 meet] ant 
pour k € 2 jusquà nbr-1 Faire 
Niveau 1 < cumul des diviseurs > 
Fpour; 
[Pour k-2 jusquà Nor-1 faire E E < nbr est parfait si nbr=som > 
Pour k=2? jusquà Nbr-1 faire < comptage > 
Ftant 
Niveau 2 FinParfait 
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Etude de la branche gauche 
de l'arbre au niveau 3 : 


Tantique compt=n faire 


Niveau 1 
pour k € 2 jusquà nbr-1 Faire 


[Pour k=2 jusquà Nbr-1 faire 
Si nbr mod k = 0 Alors 


= } som < som + k 
Si Nbr mod k-0 alors som =--- som + k Fsi 
| | Fpour 


< nbr est parfait si nbr=som > 


Niveau 3 < comptage > 
Ftant 


\ 


Tantque (compt < n) Faire 


Etude de la branche droite de l'arbre au niveau 2 : 
PAPERS 


Hs 
ES 


Niveau 2 : 
début 
Tantque (compt < n) Faire 


< somme des diviseurs de nbr >; 


Ftant 


FinPremier 


Action < test nbr parfait ? > Action < comptage > 
Description : Description : 
le nombre nbr est parfait s'il est égal à la Puis l’on passe au nombre suivant 
somme calculée : 
nbr € nbr+1 

Si som=nbr Alors 

ecrire(nbr) ; 

compt € compt+]; 
Fsi; 
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Etude de la branche droite de l'arbre au niveau 3 : 


SAS ae 


À deals Lu 


Si som=nbr Alors 
ecrire(nbr) ; 
compt € compt+]; 
Fsi; 


nbr € nbr+1 


Si som = nbr alors 


Niveau 3 


Version finale complète de l'algorithme 


ecrire {nbr) ; 
compt <-- compt + 


— 


sa traduction en Delphi 


nbr=<-- nbr+l; 


Algorithme Parfait 
Entrée: n € N 
Sortie: nbr € N 
Local: som, k, compt € N° 


début i \ bh 
lire(n); EN , || 
compt € O; à. ab 
nbr < 2; 
Tantque (compt < n) Faire 

som <€ 1; 


Pour k < 2 jusquà nbr-1 Faire 
Si nbr mod k = 0 Alors 
som € som + k 


program Parfait; 
var 
n, nbr : integer; 
som, k, compt : integer; 
compt := 0; 


"ART 
bolpul 
nbr := 2; 


while (compt < n) do 
begin 
som:= 1; 
for k:= 2 to nbr-1 do 
if nbr mod k=0 then 
som := som + k ; 


begin 
readin(n); 


Fsi if som=nbr then 
Fpour ; begin 
Si som=nbr Alors writeln(nbr); 
ecrire(nbr) ; compt:= compt+1; 
compt € compt+]; end ; 
Fsi; nbr:= nbr+1 
nbr € nbr+1 end 
Ftant end. 
FinParfait 
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Suite : racine carrée - Newton 


Enoncé : Etude d’une suite convergente de la forme U, = f(U, ;) 


Ecrire un programme LDFA proposant une étude simple de la suite U, suivante (méthode de Newton) : 
D = 120: + X/Un)-X>0 


La suite U, converge vers le nombre Vx (la racine carré de X), le programme doit effectuer : 


1° le calcul du terme de rang n donné par l’utilisateur, 
2° le calcul jusqu'à une précision relative Epsilon fixée 


Solution faisant apparaître les niveaux de décomposition et l'algorithme associé 


) | 
À , (| FPS 
db it De Niveau 1: 


Algorithme Newton 
Entrée: n € N* 
Niveau 0 x e R* 


se LS 
Sortie: ueR 
Niveau 1 Local: v € R 
ieN 
Deux actions sont utilisées pour effectuer les calculs demandés, début 


elles correspondent chacune à une branche de l'arbre. 


<calcul du terme de rang n>; 
<calcul de la limite à la précision € > 


FinNewton 
Action <calcul du terme de rang n> Action <calcul de la limite à la précision € > 
Description : Description : 
Pour i € 1 jusquà n Faire Répéter 
<u(n+1) € [u(n)+x/u(n)]2 > <* u(n+1)=[u(n)+x/u(n)]/2 , précision *> 
Fpour; jusquà <* précison < £ *> 


\ + 
Etude de la branche 4 | gauche de l'arbre au niveau 2 : ir, ut À bn . 
il DA 14 


Niveau 2: 
début 

Eps < 10”; 

n €<10; 
lire(x); 
Pour i < 1 jusquà n Faire 

<u(n+1) € [u(n)+x/u(n)]/2 > 
Fpour; 
ecrire(u); 


<calcul de la limite à la précision & > 
FinNewton 
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Etude de la branche gauche de l'arbre au niveau 3 : 


Niveau 3: " 
début 
Eps € 10”; 
n €<10; 
lire(x); 
Pour i € 1 jusquà n Faire 
v € u; 
u< (u+x/u)2 ; 
Fpour; 
ecrire(u); 
<calcul de la limite à la précision & > 
FinNewton 


Développement de la branche droite de l'arbre jusqu'au niveau 3 : 


+ 


Can 


Niveau 3: 
début 
Eps < 10”; 
n €<10; 
lire(x); 
Pour i € 1 jusquà n Faire 
v € u; 


u< (u+x/u)2 ; 
Fpour; 
ecrire(u); 
Répéter 
v € u; 
u< (u+x/u)2; 


Niveau 3 


Version finale complète de l'algorithme 


— 


jusquà | (u-v)/v | < Eps; 
ecrire(u) 


FinNewton 


sa traduction en Delphi 


Algorithme Newton 
Entrée: 


neN*,xeR*,:seR &Eef{0.1]) 
Sortie: u € R 
Local: veR,ienN 


début 

Eps< 10”; 
n €<10; 
lire(x); 

// calcul du terme de rang n donné: 
u€ (1+x})2; 

Pour i € 1 jusquà n Faire 

u< (u+x/u)2 ; 

Fpour; 

ecrire(u); 


program Newton; 


const 
Eps=1E-4; 
n=10; 

var 
u,v,x : real ; 
i : integer ; 


bolpui 
begin 
readin(x); 
// calcul du terme de rang n donné: 
u:=(1+x)/2; 
for i:= 1 to n do 
u:= (u + x/u)/2 ; 
writeln(u); 
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//calcul jusqu'à une précision Epsilon fixée 


u< (1+x})2; { réinitialisation } 
Répéter 

v € u; 

u< (u+x/u)2 ; 

jusquà | (u-v)/v | < Eps; 

ecrire(u) 


FinNewton 


suite 


spl 


//calcul jusqu'à une précision Epsilon fixée 


u:=(1+x)/2; 
repeat 
Vi= u; 
u:= (u+x/u)/2 
until abs((u-v}/v ) < eps; 
writeln(u) 


end. 


| Java 


import Readin; 


class Newton 


{ 


final double Eps=1E-4; 

int n=10; 

double u,v,x; 

x = Readin.undouble(); 

// calcul du terme de rang n donné: 
u = (1+x)/2; 
for(int i=1;i<=n;i++) 

u = (u + x/u)/2 ; 


u=(1+x)/2; 
do 
{ 


V=U; 


u = (u+x/u)/2; 


while(Math.abs((u-v)/v ) >= Eps); 
} 


} 


public static void main (String [ ] arg) { 


System.out.printin("1°) après "+n+" termes: "+u); 


//calcul jusqu'à une précision Epsilon fixée: 


System.out.printin("2°) à la précision "+Eps+": " 


: "4u); 
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Inversion d’un tableau 


Enoncé : Autre programme simple d’utilisation des tableaux, écrire un programme LDFA inversant le contenu 
d’un tableau à n éléments entiers déjà rempli, on écrira le contenu du tableau avant inversion, puis son contenu 
après inversion. 


Solution en Ldfa avec les traductions de chaque fonction en Delphi-Pascal et en Java 


Algorithme InverseTable 
Global: Table; vecteur de N° 


Local:temp eN,ieN 
(1E[1,Max] ) 


bulnh: 


début 
{remplissage aléatoire du tableau} 


Pour i € 1 jusquà Max Faire 
ecrire (Table; ) 
Fpour; 
Pour i € 1 jusquà Ent[Max/2] Faire 
Temp € Table; . 
Table; ee Tablewax sde 
Tablewx .i41 < Temp 
Fpour; 
Pour i € 1 jusquà Max Faire 
ecrire (Table; ) 
Fpour; 


FinInverseTable 
Ent{p] représente la partie entière de p 


class nvTab{ 
public static void main (String []arg) { 
final int Max=6; 
long. Jtable= new long[Max+1]; 
[Iremplissage aléatoire du tableau 
for(int i=0;i<=Max;i++) 

table[i] = Math.round(Math.random( )*100); 


//voir le contenu du tableau avant opération 
for(int i=0si<=Max;i++) 
System.out.printin("table["+i+"] = "+ 
tablel[i]); 


for(int i=0;1<=Max/2;i++) { 
long Temp=tableli]; 
table[i]=table[ Max-i]; 
table[Max-i]=Temp; 
} 
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Chapitre 4 : Structures de données 


4.1.Spécification abstraite de données 


Le Type Abstrait Algébrique (TAA) 
Disposition pratique d'un TAA 

Le Type Abstrait de Donnée (TAD) 
Classification hiérarchique 

e le TAD liste linéaire 

e le TAD pile LIFO 

e le TAD file FIFO 

e Exercices d'implantation de TAD 


4.2. Implantation de TAD avec Unit en Delphi 


e Types abstraits de données et Unités en Delphi 


Traduction générale TAD — Unit pascal 
Exemples de Traduction TAD — Unit pascal 
Variations sur les spécifications d’implantation 
Exemples d'implantation de la liste linéaire 
Exemples d'implantation de la pile LIFO 
Exemples d'implantation de la file FIFO 


4.3. Structures d'arbres binaires 


e Vocabulaire employé sur les arbres : 


8 Etiquette Racine, noeud, branche, feuille 
e Hauteur, profondeur ou niveau d'un noeud 
e Chemin d'un noeud , Noeuds frères, parents, enfants, ancêtres 


Degré d'un noeud 

Hauteur ou profondeur d'un arbre 
Degré d'un arbre 

Taille d'un arbre 


e Exemples et implémentation d'arbre 
e Arbre de dérivation 

Arbre abstrait 

Arbre lexicographique 

Arbre d'héritage 

Arbre de recherche 
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e Arbres binaires 
e  TAD d'arbre binaire 
e Exemples et implémentation d'arbre 


e tableau statique 
e variable dynamique 
e classe 


e Arbres binaires de recherche 

e Arbres binaires partiellement ordonnés (fas) 

e Parcours en largeur et profondeur d'un arbre binaire 
Parcours d'un arbre 

Parcours en largeur 

Parcours préfixé 

Parcours postfixé 

Parcours infixé 

Illustration d'un parcours en profondeur complet 


e Exercices deux TAD implantés en Unit et en classes avec Delphi 
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4.1 : Spécification abstraite de 
donnée 


Plan du chapitre: Ë 


Introduction 


Notion d’abstraction 
spécification abstraite 
spécification opérationnelle 


1. La notion de TAD (type abstrait de données) 


Le Type Abstrait Algébrique (TAA) 

Disposition pratique d'un TAA 

Le Type Abstrait de Donnée (TAD) 

Classification hiérarchique 

Le TAD liste linéaire (spécifications abstraite et concrète) 
Le TAD pile LIFO (spécification abstraite et concrète) 
Le TAD file FIFO (spécification abstraite seule) 


BhHÉHRHEÉH EH 
Jo UE & NH 


Exercices d'implantation de TAD 
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Introduction 
Le mécanisme de l'abstraction est l’un des plus important avec celui de la méthode structurée 
fonctionnelle en vue de la réalisation des programmes. 


Notion d’abstraction en informatique 
L’abstraction consiste à penser à un objet en termes d’actions que l’on peut effectuer sur lui, 


et non pas en termes de représentation et d’implantation de cet objet. 


C’est cette attitude qui a conduit notre société aux grandes réalisations modernes. C’est un art 
de l’ingénieur et l’informatique est une science de l’ingénieur. 


Dès le début de la programmation nous avons vu apparaître dans les langages de 
programmation les notions de subroutine puis de procédure et de fonction qui sont une 
abstraction d’encapsulation pour les familles d’instructions structurées: 


e Les paramètres formels sont une abstraction fonctionnelle (comme des variables 
muettes en mathématiques), 

e Les paramètres effectifs au moment de l'appel sont des instanciations de ces 
paramètres formels (une implantation particulière). 


L'idée de considérer les types de données comme une abstraction date des années 80. On s'est 
en effet aperçu qu'il était nécessaire de s'abstraire de la représentation ainsi que pour 
l'abstraction fonctionnelle. On a vu apparaître depuis une vingtaine d’année un domaine de 
recherche : celui des spécifications algébriques. Cette recherche a donné naissance au 
concept de Type Abstrait Algébrique (TAA). 


Selon ce point de vue une structure de donnée devient: 
Une collection d’informations structurées et reliées entre elles selon un graphe relationnel 


établi grâce aux opérations effectuées sur ces données. 


Nous spécifions d’une façon simple ces structures de données selon deux niveaux 
d’abstraction, du plus abstrait au plus concret. 


Une spécification abstraite : 


Description des propriétés générales et des opérations qui décrivent la structure de données. 


Une spécification opérationnelle : 


Description d’une forme d’implantation informatique choisie pour représenter et décrire la 
structure de donnée. Nous la divisons en deux étapes : la spécification opérationnelle 


concrète (choix d’une structure informatique classique) et la spécification opérationnelle 
d’implantation (choix de la description dans le langage de programmation). 
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Remarque : 


Pour une spécification abstraite fixée nous pouvons définir plusieurs spécifications 
opérationnelles différentes. 


1. La notion de TAD (Type Abstrait de Données) 


Bien que nous situant au niveau débutant il nous est possible d’utiliser sans effort théorique et 
mental compliqué, une méthode de spécification semi-formalisée des données. Le " type 
abstrait de donnée " basé sur le type abstrait algébrique est une telle méthode. 

Le lecteur ne souhaitant pas aborder le formalisme mathématique peut sans encombre pour la 
suite, sauter le paragraphe qui suit et ne retenir que le point de vue pratique de la syntaxe d’un 
TAA. 


1.1 Le Type Abstrait Algébrique (TAA) 


Dans ce paragraphe nous donnons quelques indications théoriques sur le support formel 
algébrique de la notion de TAA. (notations de F.H.Raymond cf.Biblio) 


Notion d’algèbre formelle informatique 
Soit (Fn) n e N , une famille d’ensembles tels que : 


(io EN(< 0€ n)/F54D)A(VLVL,Ii4j>ENE-=09) 
posons :I={neN/F,:9)} 


Vocabulaire : 


Les symboles ou éléments de F, sont appelés symboles de constantes ou symboles 
fonctionnels O-aire. 


Les symboles de F, (où n > 1 et n € Ï) sont appelés symboles fonctionnels n-aires. 


Notation : 
F = ©UEn = Un 
neN nel 


soit F* l’ensemble des expressions sur F, le couple (F”,F) est appelé une algèbre abstraite. 
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On définit pour tout symbole fonctionnel n-aire . , une application de F*; dans F* notée LX À 
de la façon suivante : 


Ve (ae,s1) 
et (F: F" —F telle que (a... an) — à (al,.…,an) = F (a1,.…an) } 


On dénote : 


F={ Ÿ/ Fe Fn jet F = UFn 
nel 


n 


le couple (F°,F) est appelé une algèbre formelle informatique (AFT). 


Les expressions de F° construites à partir des fonctions Ÿ sur des symboles fonctionnels n- 
aires s’appellent des schémas fonctionnels. 


Par définition, les schémas fonctionnels de FQ sont appelés les constantes. 


Exemple : 

FO = {a,b,c} // les constantes 

F1 = {h,k} // les symboles unaires 
F2 = {g} // les symboles binaires 

F3 = {f} // les symboles ternaires 


Soit le schéma fonctionnel : fghafakbcchkgab 
(chemin aborescent abstrait non parenthésé) 


Ce schéma peut aussi s’écrire avec un ou encore avec une représentation 
parenthèsage : arborescente: 
f 
"l LU. h 
f [g(h(a),f(a,k(b),c)), c, h(k(g(a,b))) ] 4 \ C Le 
h f 
| 4 . . ù 
\ 
b 


Interprétation d’une algèbre formelle informatique 


Soit une algèbre formelle informatique (AFT) : ( FF) 
H onse donne un ensemble X tel queXZ@, 
H X est muni d’un ensemble d’opérations sur X noté Q, 
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L’on construit une fonction wy telle que : 


n 


w:(F,F)—>X ayant les propriétés d’un homomorphisme 


y est appelée fonction d’interprétation de l’AFI. 
X est appelée l’univers de l’AFI. 


Une AFT est alors un modèle abstrait pour toute une famille d'éléments fonctionnels, il suffit 
de changer le modèle d'interprétation pour implanter une structure de données spécifique. 


Exemple : 


EF = {x, y} une AFI 
PB=f{f8g} 
F=E0E 


l’Univers : X = R {les nombres réels) 


les opérateurs Q = {+,*} (addition et multiplication) 


l'interprétation y : (F,F)— (R,Q) 
définie comme suit : 

vO:R SR 

VW (?) : (a,b) — w (f) [ab] = a+b 


y (g) : R° — R 
y (g) : (ab) — w(g) [ab] = a*b 


VW (x) = & (avec à& € R fixé interprétant la constante x) 
W (y) = a (avec a, € R fixé interprétant la constante y) 


Soit le schéma fonctionnel fxgYX, son interprétation dans ce cas est la suivante : 


VExgyx) = y (x,8(7,x))) = WE (GX), (8) (y), WG) 
= VX) + y(8)[y(), WG] < propriété de \(f) 
= VX) + VY)É VX) & propriété de WY(g) 


Ce qui donne comme résultat : \y (fxgyx ) = ao + a1 * ag 


A partir de la même AF1, il est possible de définir une autre fonction d’interprétation w’et un 
autre Univers X’. 


par exemple : 


l'Univers : X = N (les entiers naturels) 
les opérateurs : Q = { reste , > } (Le reste de la division euclidienne et la relation d'ordre) 
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La fonction wy’est définie comme suit : 


w’(g): N° N 
y’(g) : (ab) — w’(g)[a,b] = reste(a,b) 
w'(H:N° > N 


W’(f) : (a,b) — w’(f[a,b] = a > b w’(x) = no (avec no € N fixé) 
w’(y) = nm (avec ne N fixé ) 


On interprète alors le même schéma fonctionnel dans ce nouveau cas fxgyx : 
wy'(ÉxXgyx ) = no > reste(n1, no) 


Ceci n’est qu’une interprétation. cette interprétation reste encore une abstraction de plus bas 
niveau, le sens (sémantique d’exécution), s’il y en a un, sera donné lors de l’implantation de 
ces éléments. Nous allons définir un outil informatique se servant de ces notions d'AFI et 
d'interprétation, il s'agit du type abstrait algébrique. 


Un TAA (type abstrait algébrique) est alors la donnée du triplet : 
e une AFI 

e un univers X et 

e une fonction d'interprétation y 


la syntaxe du TAA est définie par l’AFT et l’ensemble X 
la sémantique du TAA est définie par w et l’ensemble Q 


Notre objectif étant de rester pratique, nous arrêterons ici la description théorique des 
TAA (compléments cités dans la bibliographie pour le lecteur intéressé). 


1.2 Disposition pratique d'un TAA 
on écrira (exemple fictif): 


Sorte : À, B, C ……. les noms de types définis par le TAA, ce sont les types au sens des 
langages de programmation. 


Opérations : 


f:AxB — B 

g:A = C 

x: — B (notation pour les symboles de constantes de F0) 
y: —B (notation pour les symboles de constantes de F0) 


Cette partie qui décrit la syntaxe du TAA s’appelle aussi la signature du TAA . 
La sémantique est donnée par w , Q sous la forme d’axiomes et de préconditions. 


Le domaine d’une opération définie partiellement est défini par une précondition. 
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Un TAA réutilise des TAA déjà définis, sous forme de hiérarchie. Dans ce cas, la 
signature totale est la réunion des signatures de tous les TAA. 


S1 des opérateurs utilisent le même symbole, le problème de surcharge peut être résolu 
sans difficulté, parce que les opérateurs sont définis par leur ensembles de définitions. 


SYNTAXE DE L’ECRITURE D’UN TYPE ABSTRAIT ALGEBRIQUE : 


opérations : 
préconditions : 
a def ssi 


axiomes : 


FinTAA 


Exemple d'écriture d’un TAA (les booléens) : 


sorte : Booléens 
opérations : 
V : = Booléens 
F:— Booléens 
— : Booléens — Booléens 
A : Booléens x Booléens — Booléens 
V : Booléens x Booléens — Booléens 
axiomes : 


—(V)=F;,-M=V 
aAV=a;a4AF=F 
av V=V;avF=a 


FinBooléens 


1.3 Le Type Abstrait de Donnée (TAD) 


Dans la suite du document les TAA ne seront pas utilisés entièrement, la partie axiomes étant 
occultée. Seules les parties opérations et préconditions sont étudiées en vue de leur 
implantation. 

C’est cette restriction d’un TAA que nous appellerons un type abstrait de données (TAD). 
Nous allons fournir dans les paragraphes suivants quelques Types Abstrait de Données 
différents. 


Nous écrirons ainsi par la suite un TAD selon la syntaxe suivante : 
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TAD Truc 


UtIISe 
Champs : 


opérations : 
préconditions : 
FinTAD Truc 


Le TAD Booléens s’écrit à partir du TAA Booléens : 


TAD Booléens 
opérations : 
V : — Booléens 
F : — Booléens 
— : Booléens —  Booléens 
A : Booléens x Booléens — Booléens 
v : Booléens x Booléens — Booléens 
FinTAD Booléen 


Nous remarquons que cet outil permet de spécifier des structures de données d’une manière 
générale sans avoir la nécessité d’en connaître l’implantation, ce qui est une caractéristique de 
la notion d’abstraction. 


1.4 Classification hiérarchique 


Nous situons, dans notre approche pédagogique de la notion d’abstraction, les TAD au 
sommet de la hiérarchie informationnelle : 


HIERARCHIE INFORMATIONNELLE 


1° TYPES ABSTRAITS (les TAA....) 

2° CLASSES / OBJETS 

3° MODULES 

4° FAMILLES de PROCEDURES et FONCTIONS 

5° ROUTINES (procédures ou fonctions) 

6° INSTRUCTIONS STRUCTUREES ou COMPOSEES 
7° INSTRUCTIONS SIMPLES (langage évolué) 

8° MACRO-ASSEMBLEUR 

9° ASSEMBLEUR (langage symbolique) 

10° INSTRUCTIONS MACHINE (binaire) 


Nous allons étudier dans la suite 3 exemples complets de TAD classiques : la liste linéaire, la 
pile LIFO1, la file FIFO2. Pour chacun de ces exemples, il sera fourni une spécification 
opérationnelle en pascal, puis plus loin en Delphi. 
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Exemples de types abstraits de 
données 


1.5 Le TAD liste linéaire (spécifications abstraite et concrète) 


Spécification abstraite 
Répertorions les fonctionnalités d’une liste en soulignant les verbes d'actions et les noms, à 
partir d’une description semi-formalisée: 


e _Ilest possible dans une telle structure d’ajouter ou de retirer des éléments en 
n’importe quel point de la liste. 

e  L’ordre des éléments est primordial. Cet ordre est construit, non sur la valeur des 
éléments de la liste, mais sur les places (rangs)de ces éléments dans la liste. 

e Le modèle mathématique choisi est la suite finie d’éléments de type To : 
(aiier où I est fini, totalement ordonné, ai € To 

e Chaque place a un contenu de type Ts. 

e Le nombre d’éléments d’une liste À est appelé longueur de la liste. Si la liste est vide 
nous dirons que sa longueur est nulle (longueur = 0 ). 

e On doit pouvoir effectuer au minimum (non exhaustif) les actions suivantes sur les 
éléments d’une liste À : accéder à un élément de place fixée, supprimer un élément 
de place fixée, insérer un nouvel élément à une place fixée, etc ……. 


ajouter N CUSTE ?' retirer 


3 .. P 


Place — 1 2 . . … 0-2 0-1 n 


Si Place = p alors Contenu ( Place )=X fsi 


e C’est une structure de donnée séquentielle dans laquelle les données peuvent être 
traitées les unes à la suite des autres : 


accès et traitement séquentiel 
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De cette description nous extrayons une spécification sous forme de TAD. 


Ecriture syntaxique du TAD liste linéaire 
TAD Liste 
utilise : N, To, Place 
Champs : (a,,.....,a,) suite finie dans To 
opérations : 

liste_vide : — Liste 

acces : Liste x N — Place 

contenu : Place — To 

kème : Liste xN —T, 

long : Liste — N 

supprimer : Liste x N — Liste 

inserer : Liste x N x — Liste 

succ : Place — Place 


préconditions : 
acces(L,k) def_ssi 1 <k <long(L) 
supprimer(L,k) def_ssi 1 <k<long(L) 
inserer(L,k,e) def_ssi 1 <k<long(L) +1 
kème(L,k) def_ssi 1 <k <long(L) 


Fin-Liste 


signification des opérations : (spécification abstraite) 
acces(L,k) : opération générale d’accès à la position d’un élément de rang k de la liste L. 
supprimer(L,k) : suppression de l’élément de rang k de la liste L. 
inserer(L,k.,e) : insérer l’élément e de To , à la place de l’élément de rang k dans la liste L. 
kième(L,k) : fournit l’élément de rang k de la liste. 


spécification opérationnelle concrète 


La liste est représentée en mémoire par un tableau et un attribut de longueur. 

Le kème élément de la liste est le kème élément du tableau. 

Le tableau est plus grand que la liste (il y a donc dans cette interprétation une 
contrainte sur la longueur. Notons Longmax cette valeur maximale de longueur de 
liste). 


Il faut donc, afin de conserver la cohérence, ajouter deux préconditions au TAD Liste : 


long(L) def _ssi long(L) < Longmax 
inserer(L,k,e) def_ssi (1 <k <long(L) +1) À long(L) < Longmax) 
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D'autre part la structure de tableau choisie permet un traitement itératif de l’opération kème ( 
une autre spécification récursive de cet opérateur est possible dans une autre spécification 
opérationnelle de type dynamique). 


kème(L,k) = contenu(acces(L,k) ) 


1.6 Le TAD pile LIFO (spécification abstraite et concrète) 


Spécification abstraite 
Répertorions les fonctionnalités d’une pile LIFO (Last In First Out) en soulignant les verbes 
d'actions et les noms, à partir d’une description semi-formalisée: 


e C’est un modèle pour toute structure de données où l’on accumule des informations 
les unes après les autres, mais où l’on choisit de n’effectuer un traitement que sur le 
dernier élément entré. Exemples : pile de dossiers sur un bureau, pile d’assiettes, etc. 

e _Ilest possible dans une telle structure d’ajouter ou de retirer des éléments 
uniquement au début de la pile. 

e  L’ordre des éléments est imposé par la pile. Cet ordre est construit non sur la valeur 
des éléments de la liste, mais sur les places (rangs)de ces éléments dans la liste. Cet 
ordre n’est pas accessible à l’utilisateur, c’est un élément privé. 

e Le modèle mathématique choisi est la suite finie d’éléments de type To : 

(ai)ier où I est fini, totalement ordonné, ai € To 

e La pile possède une place spéciale dénommée sommet qui identifie son premier 
élément et contient toujours le dernier élément entré. 

e Le nombre d’éléments d’une pile LIFO P est appelé profondeur de la pile. Si la pile 
est vide nous dirons que sa profondeur est nulle (profondeur = 0 ). 

e On doit pouvoir effectuer sur une pile LIFO au minimum (non exhaustif) les actions 
suivantes : voir si la pile est vide, dépiler un élément, empiler un élément, observer le 
premier élément sans le prendre, etc. 


PILE LIFO 


Embiler 


Dépiler \ 4 
—— 


e C’est une structure de données séquentielle dans laquelle les données peuvent être 
traitées les unes à la suite des autres à partir du sommet 
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Ecriture syntaxique du TAD Pile LIFO 


TAD PILIFO 


utilise : To, Booléens 
Champs : (a:,.....,a,) suite finie dans To 
opérations : 
sommet : —> PILIFO 
Est_vide : PILIFO — Booléens 
empiler : PILIFO x To x sommet — PILIFO x sommet 
dépiler : PILIFO x sommet — PILIFO x sommet x To 
premier : PILIFO = To 
préconditions : 
dépiler(P) def_ssi est_vide(P) = Faux 
premier(P) def_ssi est_vide(P) = Faux 


FinTAD-PILIFO 


spécification opérationnelle concrète 


e La Pile est représentée en mémoire dans un fableau. 

e Le sommet (noté top) de la pile est un pointeur sur la case du tableau contenant le 
début de pile. Les variations du contenu Kk de top se font au gré des empilements et 
dépilements. 

e Le tableau est plus grand que la pile (il y a donc dans cette interprétation une 
contrainte sur la longueur, notons Longmax cette valeur maximale de profondeur de la 
pile). 

e  L’opérateur empiler : rajoute dans le tableau dans la case pointée par top un élément et 
top augmente d’une unité. 

e  L’opérateur depiler : renvoie l’élément pointé par top et diminue top d’une unité. 

e _ L’opérateur premier fournit une copie du sommet pointé par top (la pile reste intacte). 

e  L’opérateur Esf_vide teste si la pile est vide (vrai si elle est vide, faux sinon). 


Lis 
top 


CODEN; 


1 3 Le Longmax 


Pile Lifo” S REA - 
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1.7 Le TAD file FIFO (spécification abstraite seule) 


Spécification abstraite 
Répertorions les fonctionnalités d’une file FIFO (First In First Out) en soulignant les verbes 
d'actions et les noms, à partir d’une description semi-formalisée: 


e C’est un modèle pour toute structure de données où l’on accumule des informations 
les unes après les autres, mais où l’on choisit d’effectuer un traitement selon l’ordre 
d’arrivée des éléments, comme dans une file d’attente. 

e Exemples :toutes les files d’attente, supermarchés, cantines , distributeurs de pièces, 
etc. 

e _Ilest possible dans une telle structure d’ajouter des éléments à la fin de la file, ou de 
retirer des éléments uniquement au début de la file. 

e  L’ordre des éléments est imposé par la file. Cet ordre est construit non sur la valeur 
des éléments de la liste, mais sur les places (rangs)de ces éléments dans la liste. Cet 
ordre n’est pas accessible à l’utilisateur, c’est un élément privé. 

e Le modèle mathématique choisi est la suite finie d’éléments de type To : 

(ai)ier où I est fini, totalement ordonné, ai e To 

e La file possède deux places spéciales dénommées tête et fin qui identifient l’une son 
premier élément, l’autre le dernier élément entré. 

e Le nombre d’éléments d’une file FIFO " F "est appelé longueur de la file ; si la file 
est vide nous dirons que sa longueur est nulle (longueur = 0 ). 

e On doit pouvoir effectuer sur une file FIFO au minimum (non exhaustif) les actions 
suivantes : voir si la file est vide, ajouter un élément, retirer un élément, observer le 
premier élément sans le prendre, etc. 


ajouter 


retirer 


(a1) — 


A  — te 
—— ( File FIFO }) —— 


Ecriture syntaxique du TAD file FIFO 


TAD FIFO 
utilise : To, Booléens 
Champs : (a,,.....,a,) suite finie dans To 
opérations : 
tête : > FIFO 
fin: — FIFO 
Est_vide : FIFO — Booléens 
ajouter : FIFO x To x fin — PILIFO x fin 
retirer : FIFO x tête — FIFO x tête x To 
premier : FIFO = To 
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préconditions : 
retirer(F) def_ssi est_vide(F) = Faux 


premier(F) def_ssi est_vide(F) = Faux 


FinTAD-FIFO 


Spécification opérationnelle concrète 


e La file est représentée en mémoire dans un fableau. 

e La tête de la file est un pointeur sur la case du tableau contenant le début de la file. 
Les variations de la valeur de la tête se font au gré des ajouts et des retraits. 

e La fin ne bouge pas, c’est le point d’entrée de la file. 

e Le tableau est plus grand que la file (il y a donc dans cette interprétation une 
contrainte sur la longueur ; notons max cette valeur maximale de longueur de la 
file). 

e  L’opérateur ajouter : ajoute dans le tableau dans la case pointée par fin un élément 
et tête augmente d’une unité. 

e _L’opérateur retirer : renvoie l’élément pointé par tête et diminue tête d’une unité. 

e _L’opérateur premier fournit une copie de l’élément pointé par tête (la file reste 
intacte). 

e  L’opérateur Est_vide teste si la file est vide (vrai si elle est vide, faux sinon). 


On peut ajouter après la dernière cellule pointée par l'élément fin comme le montre la > ci-dessous : 


N 
version 1 


retirer 


| tête | Ttabieau implantant la file | fin | 


dans ce cas retirer un élément en tête impliquera un décalage des données vers la gauche. 


On peut aussi choisir d'ajouter à partir de la première cellule comme le montre la figure ci-dessous : 


rs retirer 


ajouter , 
version 2 


| fn ] Ttabieau implantant la file | tête ] 


dans ce cas ajouter un élément en fin impliquera un décalage des données vers la droite. 
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4,2 : Types abstraïits de données 


Implantation avec Unit en Delphi 


Plan du chapitre: É 


1. Types abstraits de données et Unités en Delphi 


Traduction générale TAD — Unit pascal 
Exemples de Traduction TAD — Unit pascal 
Variations sur les spécifications d’ implantation 
Exemples d'implantation de la liste linéaire 
Exemples d'implantation de la pile LIFO 
Exemples d'implantation de la file FIFO 


BR RhR RE h 
oO U1 æ & NH 
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1. Types abstraits de données et Unités en Delphi 


Dans cette partie nous adoptons un point de vue pratique dirigé par l'implémentation dans un 
langage accessible à un débutant des notions de type abstrait de donnée. 


Nous allons proposer une écriture des TAD avec des unités Delphi (pascal version avec Unit) 


puis après avec des classes Delphi. Le langage Delphi en effet pour implanter des TAD, 


possède deux notions situées à deux niveaux d'abstraction différents : 


e La notion d’unité (Unit) se situe au niveau 4 de la hiérarchie informationnelle citée 


auparavant : elle nous a déjà servi à implanter la notion de module. Une unité est donc une 
approximation relativement bonne pour le débutant de la notion de TAD. 


e La notion classique de classe, contenue dans tout langage orienté objet, se situe au niveau 
2 de cette hiérarchie constitue une meilleure approche de la notion de TAD. 


En fait un TAD sera bien décrit par la partie interface d’une unit et se traduit presque 


immédiatement ; le travail de traduction des préconditions est à la charge du programmeur et 
se trouvera dans la partie privée de la unit (implementation) 


1.1 Traduction générale TAD — Unit pascal 


Nous proposons un tableau de correspondance pratique entre la signature d'un TAD et la 


partie interface d'une Unit : 


syntaxe du TAD 


squelette de la unit associée 


TAD Truc Unit Truc ; 
utilise 
TAD, , TAD,...TAD, interface 


uses TAD,,..,TAD), ; 


const ….. 


type …. 
Var .…. 


opérations 
Opl:ExF = G 


Op2:ExFxG — HxS 


procedure Opl(x :E :y :F ;var z :G) ; 


procedure Op2& :E :y :F ; z:G ; var t :H ; var u:S) ; 


CCLELELELEO 


FinTAD-Truc 


end. 


Reste à la charge du programmeur l'écriture, dans la partie implementation de la unit, des 
blocs de code associés à chacune des procédures décrites dans la partie interface : 
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Unit Truc ; 


interface 
uses TAD,....,TAD), ; 
const … 
type … 
var …. 
procedure Opl(x:E :y :F ;var z :G) ; 


procedure Op2(x :E :y :F ; z:G ; var t:H ; var u:S); 


implementation 


procedure Opl(x :E ;y :F ;var z :G) ; 


begin 


begin 


1.2 Exemples de Traduction TAD — Unit pascal 


Le TAD Booléens implanté sous deux spécifications concrètes en pascal avec deux types 


scalaires différents. 


Spécification opérationnelle concrète n°1 


Les constantes du type Vrai, Faux sont représentées par deux constantes pascal dans un type 


intervalle sur les entiers. 


Const vrai=1 ; faux=0 
type Booleens=faux..vrai ; 


Voici l’interface de la unit traduite et le TAD : 


TAD : Booléens 


Champs : 
Opérations : 
Vrai : — Booléens 


Faux : — Booléens 

Et : Booléens x Booléens — Booléens 
Ou : Booléens x Booléens — Booléens 
Non : Booléens — Booléens 


FINTAD-Booléens 


Unit Bool ; 
interface 
Const 
vrai=1 ; faux=0 
type 
Booleens = faux..vrai ; 
function Et (x.y :Booleens) :Booleens ; 
function Ou (x,y :Booleens) :Booleens ; 
function Non(x :Booleens) :Booleens ; 
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Spécification opérationnelle concrète n°2 


Les constantes du type Vrai, Faux sont représentées par deux identificateurs pascal dans un 


type énumété. 
type Booleens=(faux, vrai) ; 


Voici l’interface de la unit traduite et le TAD : 


TAD : Booléens 


Champs : 
Opérations : 
Vrai : — Booléens 


Faux : — Booléens 

Et : Booléens x Booléens — Booléens 
Ou : Booléens x Booléens — Booléens 
Non : Booléens — Booléens 


FINTAD-Booléens 


Unit Bool ; 
interface 
type 

Booleens=(faux, vrai) ; 

function Et (x.y :Booleens) :Booleens ; 
function Ou (x,y :Booleens) :Booleens ; 
function Non(x :Booleens) :Booleens ; 


Nous remarquons la similarité des deux spécifications concrètes : 


Implantation avec des entiers 


Implantation avec des énumérés 


Unit Bool ; 

interface 

Const vrai=1 ; faux=0 

type 

Booleens = faux..vrai ; 

function Et (x,y :Booleens) :Booleens ; 
function Ou (x,y :Booleens) :Booleens ; 
function Non(x :Booleens) :Booleens ; 


Unit Bool ; 
interface 
type 

Booleens = (faux, vrai) ; 

function Et (x,y :Booleens) :Booleens ; 
function Ou (x,y :Booleens) :Booleens ; 
function Non(x :Booleens) :Booleens ; 


1.3 Variations sur les spécifications d’implantation 


Cet exercice ayant été proposé à un groupe d’étudiants, nous avons eu plusieurs genres 
d'implantation des opérations : et, ou, non. Nous exposons au lecteur ceux qui nous ont parus 


être les plus significatifs : 


Implantation d’après spécification concrète n°1 


Fonction Et 


Fonction Et 


function Et (x,y :Booleens) :Booleens ; 
begin 

Et:=x*y 
end ; 


function Et (x,y :Booleens) :Booleens ; 
begin 

if x=Faux then Et :=Faux 

else Et := Vrai 
end ; 
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Fonction Ou 


Fonction Ou 


function Ou (x,y :Booleens) :Booleens ; 
begin 

Ou :=x+y - x*y 
end ; 


function Ou (x,y :Booleens) :Booleens ; 
begin 

if x=Vrai then Ou := Vrai 

else Ou := Faux 
end ; 


Fonction Non 


Fonction Non 


function Non(x :Booleens) :Booleens ; 
begin 

Non:=1-x 
end ; 


function Ou (x,y :Booleens) :Booleens ; 
begin 

if x=Vrai then Ou := Vrai 

else Ou := Faux 


end ; 


Dans la colonne de gauche de chaque tableau, l’analyse des étudiants a été dirigée par le choix de la spécification 
concrète sur les entiers et sur un modèle semblable aux fonctions indicatrices des ensembles. Ils ont alors 
cherché des combinaisons simples d’opérateurs sur les entiers fournissant les valeurs adéquates. 


Dans la colonne de droite de chaque tableau, l’analyse des étudiants a été dirigée dans ce cas par des 
considérations axiomatiques sur une algèbre de Boole. Ils se sont servis des propriétés d’absorbtion des éléments 
neutres de la loi " ou "et de la loi "et ". Il s’agit là d’une structure algébrique abstraite. 


Influence de l’abstraction sur la réutilisation 


A cette étape du travail nous avons demandé aux étudiants quel était, s’il y en avait un, le 
meilleur choix d’implantation quant à sa réutilisation pour l’implantation d’après la 
spécification concrète n°2. 


Les étudiants ont compris que la version dirigée par les axiomes l’emportait sur la précédente, 
car sa qualité d’abstraction due à l’utilisation de l’axiomatique a permis de la réutiliser sans 
aucun changement dans la partie implementation de la unit associée à spécification concrète 
n°2 (en fait toute utilisation des axiomes d’algèbre de Boole produit la même efficacité). 


Conclusion : 
l’abstraction a permis ici une réutilisation totale et donc un gain de temps de 


programmation dans le cas où l’on souhaite changer quelle qu'en soit la raison, 
la spécification concrète. 


Dans les exemples qui suivent, la notation = indique la traduction en un squelette en langage 
pascal. 
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1.4 Exemples d’implantation de la liste linéaire 


spécification proposée en pseudo-Pascal : 


type Liste=record 
t : array{1.. Longmax] of Ti; 
long : 0.. Longmax 

end; 


Liste = 


liste vide = Liste (avec L.long :=0) 


| integer; 
Die : liste (adresse(L.t{k])) 
a integer; 
eue : liste (val(adresse(L.t[k]))) 


integer; 
: liste (kème(L,k) = L.t[k] ) 


var L : liste ( long = L.long ) 
adresse(L.t[k])+1 c-à-dire ( L.t1[k+1] ) 


procedure supprimer(var L : Liste ; k : 1.. Longmax); 


supprimer = 


end; {supprimer} 


procedure inserer(var L : Liste ; k : 1. Longmax; x : To); 
inserer = 


end; /inserer} 


La précondition de l’opérateur supprimer peut être ici implantée par le test : 
if k<=long(L) then ….. 

La précondition de l’opérateur insérer peut être ici implantée par le test : 
if (long(L) < Longmax) and (k<=Long(L)+1) then …. 


Les deux objets acces et contenu ne seront pas utilisés en pratique, car le tableau les implante 
automatiquement d’une manière transparente pour le programmeur. 
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Le reste du programme est laissé au soin du lecteur qui pourra ainsi se construire sur sa 
machine , une base de types en Pascal-Delphi de base. 


Nous pouvons "enrichir " le TAD Liste en lui adjoignant deux opérateurs test et rechercher 
(rechercher un élément dans une liste). Ces adjonctions ne posent aucun problème. Il suffit 
pour cela de rajouter au TAD les lignes correspondantes : 


opérations 
Test : Liste x To — Booléen 


rechercher : Liste x T, — Place 


précondition 
rechercher(L.e) def_ssi Test(L,e) = V 


Le lecteur construira à titre d’exercice l’implantation Pascal-Delphi de ces deux nouveaux 
opérateurs en étendant le programme déjà construit. Il pourra par exemple se baser sur le 
schéma de représentation Pascal suivant : 


function Test(L : liste; e : To): Boolean; 

begin 

{il s'agit de tester la présence ou non de e dans la liste L} 
end; 


procedure rechercher(L : liste ; x : To; Var rang : integer); 
begin 
if Test(L,x) then 
{il s'agit de fournir le rang de x dans la liste L} 
else 
rang:=0 
end; 


1.5 Exemples d’implantation de la pile LIFO 


Nous allons utiliser un tableau avec une case supplémentaire permettant d’indiquer que le 
fond de pile est atteint (la case O0 par exemple, qui ne contiendra jamais d’élément). 


spécification proposée en pseudo-Pascal : 


type Pilifo=record 
t : array{ 0.. Longmax ] of Ti; 
sommet: 0.. Longmax 

end; 


depiler = procedure depiler (var Elt : T, ;var P : Pilifo) ; 


procedure empiler( Elt : T, ;var P : Pilifo) ; 
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procedure premier(var Elt : To ; P : Pilifo) ; 
(on pourra utiliser une function renvoyant un T,, si le type Ty s y prête !) 


premier = 


Est_vide = function Est_vide(P : Pilifo) : boolean ; 


Le contenu des procédures et des fonctions est laissé au lecteur à titre d’exercice. 


Remarque : 
Il est aussi possible de construire une spécification opérationnelle à l’aide du 
TAD Liste en remplaçant dans l’étude précédente le mot " tableau " par le mot " 
liste ". Il est vivement conseillé au lecteur d’écrire cet exercice en Delphi pour 
bien se convaincre de la différence entre les niveaux d’abstractions. 


1.6 Exemples d’implantation de la file FIFO 


Nous allons utiliser ici aussi un tableau avec une case supplémentaire permettant d’indiquer 
que la file est vide (la case 0 par exemple, qui ne contiendra jamais d’élément). 


spécification proposée en pseudo-Pascal : 


type Fifo=record 
t : array[ 0.. Longmax ] of Ti; 
sommet: 0.. Longmax 

end; 


retirer = procedure retirer(var Elt : T, ;var F : Fifo) ; 


ajouter = procedure ajouter( Elt : T, ;var F : Fifo) ; 


procedure premier(var Elt : T, ; P : Fifo) ; 


remier = Fe : ; Din 
P (on pourra utiliser une function renvoyant un T,, si le type Tys y prête !) 


Est_ vide = function Est_vide(P : Fifo) : boolean ; 


Le contenu des procédures et des fonctions est laissé au lecteur à titre d’exercice. 


Remarque : 
Comme pour le TAD Pilifo, il est aussi possible de construire une spécification 


opérationnelle du TAD FIFO à l’aide du TAD Liste en remplaçant dans l’étude 
précédente le mot " tableau " par le mot " liste ". 
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Une solution d'implantation de 
la liste linéaire en Unit Delphi 


Unit UListchn; 


interface 
const 
max_elt = 100; 
type 
TO = integer; 
liste = 
record 
suite: array[1..max_elt] of TO; 
long: 0..max_elt; 
init_ok:char; 
end; 


function longueur (L: liste): integer; 

procedure supprimer (var L: liste; k: integer); 
procedure inserer (var L: liste; k: integer; x: TO); 
function kieme (L: liste; n: integer): TO; 

function Test (L: listes x: TO): boolean:; 


procedure Rechercher (L: liste; x: TO; var place: integer); 


implementation 


procedure init_liste(var L:liste); 
{initialisation obligatoire} 
begin 
with L do 
begin 
long:=0; 
init_ok:="# 
end 
end; 


function Est_vide(L:liste):boolean; 
begin 
if Linit ok<>'#' then 
begin 
writeln(>>> Gestionnaire de Liste: Liste non 
initialisée !! (erreur fatale)'); 
halt 
end 
else 
if L.1ong=0 then 
begin 
Est_vide:=true; 
writeln( >>> Gestionnaire de Liste: Liste vide') 
end 
else 
est_vide:=false 
end; 
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function longueur (L: liste): integer; 
begin 
longueur := L.long 
end; 


procedure supprimer (var L: liste; k: integer); 
var 
n: 0..max_elt; 
1: 1..max _elt; 
begin 
if not Est_vide(L) then 
if k>1 then 
begin 
n := longueur(L); 
if (1<=k)and(k <= n) then 
begin 
for i := K to n - 1 do 
L.suite[i] := L.suite[i + 1]; 
L.long :=n-1 
end 
end 
else 
Long :=0; 
end; {supprimer} 
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procedure inserer (var L: liste; k: integer; x: TO); 
var 
n: 0..max_elt; 
1: 1..max _elt; 
begin 
if not Est_vide(L) then 
begin 
n := longueur(L); 
if (n < max_elt) and (k <= n + 1) then 
begin 
for i := n downto k do 
L.suite[i + 1] := L.suiteli]; 
L.suite[k] := x 
end; 
L.long := L.long + 1 
end 
else 
begin 
L.suite[1]:=x; 
L.long :=1 
end 
end; 


function kieme (L: listes n: integer): TO; 
begin 
if not Est_vide(L) then 
begin 
kieme := L.suite[n] 
end 
end; 


function Test (L: liste; x: TO): boolean; 
{teste la presence ou non de x dans la liste L} 
var 
present:boolean; 
rang:integer; 
begin 
if not Est_vide(L) then 
begin 
Test_Recherche(L,x,present,rang); 
Test:=present 
end 
end; 
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procedure Test_Recherche(L:liste;x:TO;var 
trouve:boolean;var rang:integer); 
var 
fini,present:boolean; 
i,n:integer; 
begin 
if not Est_vide(L) then 
begin 
fini := false; 
1e il2 
n:=L.long; 
present := false; 
while not fini and not present do 
begin 
ifi<=nthen 
if L.suite[i] <> x then 
i:=i+l 
else 
present := true 
else 
fini := true 
end; 
if present then 
begin 
{valeur x trouvée a l'indice:i} 
trouve:=true; 
rang :=i 
end 
else 
begin 
{cette valeur x n'est pas dans le tableau} 
trouve:=false; 
{on n'affecte aucune valeur a rang !! } 
end 
end 
end; 


procedure Rechercher (L: liste; x: TO; var place: 
integer); 
var 
present:boolean; 
begin 
if not Est_vide(L) then 
begin 
Test_Recherche(L,x,present,place); 
if not present then 
place:=0 
end 
end; 
end. { fin de la Unit UListchn } 
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Une solution d'implantation de 


la pile Lifo en Unit Delphi 


Unit Upilifo; 
interface 


const 
max_elt = 100; 
fond = 0; 
type 
TO = integer; 
pile = 
record 
suite: array[0..max_elt] of TO; 
sommet: 0..max_elt; 
end; 


function Est_Vide(P:pile):boolean; 
procedure Empiler(elt: TO;var P:pile); 
procedure Depiler(var elt:TO;var P:pile); 
function premier (P: pile): TO; 


implementation 


function Est_Vide(P:pile):boolean; 
begin 
if P.sommet = fond then 
Est_Vide := true 
else 
Est_Vide := false 
end; 


procedure Empiler(elt:TO;var P:pile); 
begin 
P.sommet := P.sommet + 1; 
P.suite[P.sommet] := elt 
end; 


procedure Depiler(var elt:TO;var P:pile); 


begin 
if not Est_Vide(P) then 
begin 
elt := P.suite[P.sommet]; 
P.sommet := P.sommet - 1 
end 
{la precondition est implantee ici par 
le test if not est_vide(p)then… } 
end; 


function premier (P: pile): TO; 
begin 
if not Est_Vide(P) then 
premier := P.suite[P.sommet] 
{ la precondition est implantee ici par 
le test ifnotest_vide(p)then… } 
end; 


end. / fin de la Unit Upilifo } 
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4.3 : Structures d'arbres binaires 


Plan du chapitre: Ë 


1. Notions générales sur les arbres 
1.1 Vocabulaire employé sur les arbres : 


Etiquette Racine, noeud, branche, feuille 
Hauteur, profondeur ou niveau d'un noeud 


Degré d'un noeud 

Hauteur ou profondeur d'un arbre 
Degré d'un arbre 

Taille d'un arbre 


1.2 Exemples et implémentation d'arbre 
Arbre de dérivation 
Arbre abstrait 
Arbre lexicographique 
Arbre d'héritage 
Arbre de recherche 


2. Arbres binaires 


2.1 TAD d'arbre binaire 
2.2 Exemples et implémentation d'arbre 


. tableau statique 
e variable dynamique 
e classe 


2.3 Arbres binaires de recherche 
2.4 Arbres binaires partiellement ordonnés (tas) 
2.5 Parcours en largeur et profondeur d'un arbre binaire 
e Parcours d'un arbre 
Parcours en largeur 
Parcours préfixé 
Parcours postfixé 
Parcours infixé 
Illustration d'un parcours en profondeur complet 
Exercice 


Les bases de l'informatique - programmation - (:6:. 05.09.2004 ) 


Chemin d'un noeud , Noeuds frères, parents, enfants, ancêtres 


page 


315 


1. Notions générales sur les structures d'arbres 


La structure d'arbre est très utilisée en informatique. Sur le fond on peut considérer un arbre 
comme une généralisation d'une liste car les listes peuvent être représentées par des arbres. La 
complexité des algorithmes d'insertion de suppression ou de recherche est généralement plus 
faible que dans le cas des listes ( cas particulier des arbres équilibrés). Les mathématiciens 
voient les arbres eux-même comme des cas particuliers de graphes non orientés connexes et 
acycliques, donc contenant des sommets et des arcs : 


Pi ° . HS ° “ \ | 
é En ° \, / * 


Ci dessus 3 représentations graphiques de la même structure d'arbre : dans la figure fig-1 tous 
les sommets ont une disposition équivalente, dans la figure fig-2 et dans la figure fig-3 le 
sommet "cerclé" se distingue des autres. 


Lorsqu'un sommet est distingué par rapport aux autres, on le dénomme racine et la même 
structure d'arbre s'appelle une arborescence, par abus de langage dans tout le reste du 
document nous utliserons le vocable arbre pour une arborescence. 


Enfin certains arbres particuliers nommés arbres binaires sont les plus utilisés en informatique 


et les plus simples à étudier. En outre il est toujours possible de "binariser" un arbre non 
binaire, ce qui nous permettra dans ce chapitre de n'étudier que les structures d'arbres binaires. 


1.1 Vocabulaire employé sur les arbres 


Un arbre dont tous les noeuds sont nommés est dit étiqueté. L'étiquette 


Il (ou nom du sommet) représente la "valeur" du noeud ou bien 
l'information associée au noeud. 


Ci-dessous un arbre étiqueté dans les entiers entre 1 et 10 : 


Ci-dessous un arbre étiqueté dans les entiers entre 1 et 10 : 


Î 
AN 
4 d, le) 
NN 
9 10 


Î 
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Nous rappellons la terminologie de base sur les arbres: 


Pi racine 
. branche 


noeud 
X 


feuille FA A à 


Racine , noeud, 
branche , feuille 


Nous conviendrons de définir la hauteur (ou profondeur 
ou niveau d'un noeud ) d'un noeud X comme égale au 
nombre de noeuds à partir de la racine pour aller 
jusqu'au noeud X. 


Hauteur d'un 
noeud 


En reprenant l'arbre précédant et en notant h la fonction hauteur d'un noeud : 


1 


4 Des niveau À 


2 3 4 5 niveau 1 


7 niveau 2 
10 


9 : 
niveau $ 


Pour atteindre le noeud étiqueté 9 , il faut parcourir le lien 1--5, puis 5S--8, puis enfin 8--9 soient 4 noeuds donc 9 
est de profondeur ou de hauteur égale à 4, soit h(9) = 4. 

Pour atteindre le noeud étiqueté 7 , il faut parcourir le lien 1--4, et enfin 4--7, donc 7 est de profondeur ou de 
hauteur égale à 3, soit h(7) =3. 


Par définition la hauteur de la racine est égal à 1. 


h(racine) =1 (pour tout arbre non vide) 


(Certains auteurs adoptent une autre convention pour calculer la hauteur d'un noeud: la racine a pour hauteur 
0 et donc n'est pa comptée dans le nombre de noeuds, ce qui donne une hauteur inférieure d'une unité à notre 


définition). 


On appelle chemin du noeud X la suite des noeuds par 
lesquels il faut passer pour aller de la racine vers le 
noeud X. 


| | Chemin d'un noeud 
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1 


d “e niveau 0 


2 3 À 5 niveau 1 
6 7 


7 niveau 2 
9 10 niveau 3 
Chemin du noeud 10 = (1,5,8,10) 
Chemin du noeud 9 = (1,5,8,9) 


Chemin du noeud 7 = (1,4,7) 
Chemin du noeud 5 = (1,5) 
Chemin du noeud 1 = (1) 


Remarquons que la hauteur h d'un noeud X est égale au nombre de noeuds dans le chemin : 


h( X ) = NbrNoeud( Chemin( X }) }. 


Le vocabulaire de lien entre noeuds de niveau différents et reliés entres eux est emprunté à la 
généalogie : 


ji 


Parents, enfants 


5 5 
# Ne 


9 est l'enfant de 8 10 est l'enfant de 8 
8 est le parent de9 10 est le parent de 8 


So - 


noeuds frères 


Noeuds frères, 
ancêtres 


a 9et 10 sont des frères 
a Sest le parent de 8 et l'ancêtre de 9 et 10. 


On parle aussi d'ascendant, de descendant ou de fils pour évoquer des relations entres les 
noeuds d'un même arbre reliés entre eux. 
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Nous pouvons définir récursivement la hauteur h d'un noeud X à partir de celle de son parent : 


Il 


Reprenons l'arbre précédent en exemple : 


h (racine) = 1; 
h(X)=1+h(parent(X)) 


Hauteur d'un 
noeud (récursif) 


1 


L Ne niveau À 


2 3 4 5 niveau ! 
ô 7 A niveau 2 
9 10 niveau 3 


Calculons récursivement la hauteur du noeud 9, notée h(9) : 
h(9) = 1+h(8) 

h(8) = 1+h(5) 

h(5) = 1+h(1) 

h(1) = 1 =h(5)=2 = h(8)=3 = h(9)-4 


Par définition le degré d'un noeud est égal au nombre de 
ses descendants (enfants). 


J [| Degré d'un noeud 


Soient les deux exemples ci-dessous extraits de l'arbre précédent : 


Î F) 
1 
VADSEC ] 
@)) ( NS , le, : 

Ÿ 5 à 5 POS 

9 10 

Le noeud I est de degré 4, car il a 4 enfants Le noeud 5 n'ayant qu'un enfant son degré est 1. 
Le noeud 8 est de degré 2 car il a 2 enfants. 


Remarquons 
que lorsqu'un arbre a tous ses noeuds de degré 1, on le nomme arbre dégénéré et que c'est 
en fait une liste. 


Par définition c'est le nombre de noeuds du chemin 
le plus long dans l'arbre.; on dit aussi profondeur de 
l'arbre. 


Hauteur d'un arbre 


Il 
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La hauteur h d'un arbre correspond donc au nombre maximum de niveaux : 


h (Arbre) =max{h(X)/ VX, X noeud de Arbre } 
si Arbre = © alors h( Arbre ) = 0 


| | Hauteur d'un arbre 


La hauteur de l'arbre ci-dessous : 


niveau 0 
niveau 1 
niveau 2 


niveau 5 
hauteur (arbre } = 4 


Il 


Soit à répertorier dans l'arbre ci-dessous le degré de chacun des noeuds : 


Î 
PAS d°(1)=4 d°(2) = 
d°(3) = 0 d°(4) = 
2 5 \, Ÿ d°(5) = 1 d°(6) = 
é d°(7) = 0 d°(8) = 


A d°(9) = 0 re 


La valeur maximale est . : . cet arbre est de degré 4. 


j 


Le degré d'un arbre est égal au plus grand des degrés 


de ses nœuds : 


Degré d'un arbre 
d°(Arbre) = max { d’'(X)/ V X, X noeud de Arbre } 


On appelle taille d'un arbre le nombre total de noeuds 
de cet arbre : 


Taille d'un arbre 


taille( < r , fg , fd > ) = 1 + taille( fg ) + taille( fd ) 


1 
L'arbre ci-contre a pour taille 10 
(car il a 10 noeuds) 
ne: SN: 
6 ri 
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1.2 Exemples et implémentation d'arbre 


Les structures de données arborescentes permettent de représenter de nombreux problèmes, 
nous proposons ci-après quelques exemples d'utilisations d'arbres dans des contextes 
différents. 


Exemple - 1 
arbre d'analyse 


Soit la grammaire G, : VN = {S} 
Vr = {( , )} 
Axiome : S 


Règles 
1:S — (SS)s 
2 : SE 


Le langage L(G2) se dénomme langage des parenthèses bien formées. 


Soit le mot (( )) de G, voici un arbre de dérivation de (( )) dans G: 


Exemple - 2 
arbre abstrait 


Soit la grammaire Gexp : 
Gexp — (Vr, VrhAxiome,Règles) 
Ve = À D voos Cf er ÎG Sg de ( 
Vn = { { Expr Dr { Nbr Dr { Cte De { Oper )} 
Axiome : { Expr }) 
Règles : 
1 Bt Ho ) = Nor ) | ({Expr sy { Expr ){ Oper )({ Expr ) 


2 :{ Nbr }( Cte } | { Cte }{ Nbr ) 
3 :Cre) 0 | 1 |-:.119 
4 :{ Oper }—+ | — | * | / 


soit : 327 - 8 un mot de L(Gexp) 


Soit son arbre de dérivation dans Gp : 
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< Expr > 


< Expr > < oper > < Expr > 
N 
< Nbr > < Nbr > 
N 


< Cte > < Nbr > ces 


NX 
< Cte > < Nbr > 
| 


< Cte > 


3 2 7 : 


L’arbre obtenu ci-dessous en grisé à partir de l’arbre de dérivation s’appelle l’arbre abstrait du 
mot " 327-8 ": 


< Expr > 
< Expr > < oper > < Expr > 
Ï [] Arbre abstrait Nbr > | < Nbr > 
< Cte > < Ne > LS 
<Cte>  <Nbr> 


On note ainsi cet arbre abstrait : 


> 


Voici d'autres abres abstraits d'expressions arithmétiques : 


sons d N < x 


4 a De | 
d 


expr = 2 + 5*4 


Rangement de mots par ordre lexical (alphabétique) 
Soient les mots BON, BONJOUR, BORD, BOND, BOREALE, BIEN, il est possible de les 
ranger ainsi dans une structure d'arbre : 
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0” se 
\ 
W R E 
#1 EX [ 
vire EE 
lexicographique ° CE : = 
U  L 
| | 
à T 
= = 


ClasseMere 


Exception TPersistent 


ClasseFille 


Voici à titre d'exemple que nous étudierons plus loin en détail, un arbre dont les noeuds sont 
de degré 2 au plus et qui est tel que pour chaque noeud la valeur de son enfant de gauche lui 
est inférieure ou égale, la valeur de son enfant de droite lui est strictement supérieure. 


Ci-après un tel arbre ayant comme racine 30 et stockant des entiers selon cette répartition : 
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2 Les arbres binaires 


Un arbre binaire est un arbre de degré 2 (dont les noeuds sont de degré 2 au plus). 
L'arbre abstrait de l'expression a*b + c-(d+e) est un arbre binaire : 


Vocabulaire : 
Les descendants (enfants) d'un noeud sont lus de gauche à droite et sont appelés 
respectivement fils gauche (descendant gauche) et fils droit (descendant droit) de ce noeud. 


a 
b (e 
fils gauche fils droit 
Les arbres binaires sont utilisés dans de très nombreuses activités informatiques et comme 
nous l'avons déjà signalé il est toujours possible de reprrésenter un arbre général (de degré 2 ) 
par un arbre binaire en opérant une "binarisation". 


Nous allons donc étudier dans la suite, le comportement de cette structure de donnée 
récursive. 


2.1 TAD d'arbre binaire 


Afin d'assurer une cohérence avec les autres structures de données déjà vues (liste, pile, file) 
nous proposons de décrire une abstraction d'un arbre binaire avec un TAD. Soit la signature 
du TAD d'arbre binaire : 
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TAD ArbreBin 
utilise : Ts, Noeud, Booleens 
opérations 
 : — ArbreBin 
Racine : ArbreBin — Noeud 
filsG : ArbreBin — ArbreBin 
filsD : ArbreBin — ArbreBin 
Constr : Noeud x ArbreBin x ArbreBin — ArbreBin 
Est_Vide : ArbreBin — Booleens 
Info : Noeud —T, 


préconditions 


Racine (Arb) def_ssi Arb + © 
filsG(Arb) def_ssi Arb 7: © 


filsD(Arb) def_ssi Arb + © 
axiomes 


Vrac eNoeud , Vfg eArbreBin , Vfd e ArbreBin 
Racine (Constr(rac,fg,fd)) = rac 
filsG(Constr(rac,fg,fd)) = fg 
filsD(Constr(rac,fg,fd)) 
Info(rac) ET, 


| 
Hh 
[en 


FinTAD-PILIFO 


a Toest le type des données rangées dans l'arbre. 


informations de type To dans chaque noeud de l'arbre binaire. 


Nous noterons < rac, fg , fd > avec conventions implicites un arbre binaire dessiné ci- 


dessous : 


rac 
Ji < rac, fs , fd > PA L” 
fa fd 


Exemple, soit l'arbre binaire A : 


Les sous-arbres gauche et droit de l'arbre A : 


a L'opérateur filsG( ) renvoie le sous-arbre gauche de l'arbre binaire, l'opérateur filsD( ) 
renvoie le sous-arbre droit de l'arbre binaire, l'opérateur Info( ) permet de stocker des 


PN 
PAT A 


CG 
Pi be sous-arbre gauche 
d e 


filsG( A)=<*,a,b> 
filsD(A)=<-,c,<+,d,e >> 
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sous-arbre droit 


page 


3 
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2.2 Exemples et implémentation d'arbre binaire étiqueté 


Nous proposons de représenter un arbre binaire étiqueté selon deux spécifications 
différentes classiques : 


1°) Une implantation fondée sur une structure de tableau en allocation de mémoire statique, 
nécessitant de connaître au préalable le nombre maximal de noeuds de l'arbre (ou encore sa 
taille). 


2°) Une implantation fondée sur une structure d'allocation de mémoire dynamique 
implémentée soit par des pointeurs (variables dynamiques) soit par des références (objets) . 


Spécification concrète 

Un noeud est une structure statique contenant 3 éléments : 
e l'information du noeud 
e le fils gauche 
e le fils droit 


Pour un arbre binaire de taille = n, chaque noeud de l'arbre binaire est stocké dans une 
cellule d'un tableau de dimension 1 à n cellules. Donc chaque noeud est repéré dans le 
tableau par un indice (celui de la cellule le contenant). 

Le champ fils gauche du noeud sera l'indice de la cellule contenant le descendant gauche, et le 
champ fils droit vaudra l'indice de la cellule contenant le descendant droit. 


Exemple a 
F » 
Soit l'arbre binaire ci-contre : PAS 

da e 
Selon l'implantation choisie, par hypothèse de départ, la racine <a, vers b, vers c >est 
contenue dans la cellule d'indice 2 du tableau, les autres noeuds sont supposés être rangés 
dans les cellules 1, 3,4,5 : 


Nous avons : 


racine = table[2] 
table[1]=<d,0,0> 


table[2] =<a,4,5> 
table[3]=<e,0,0> 
table[4] = <b,0,0 > 
table[5]=<c,1,3> 
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Explications : 


table[2] = < a , 4,5 >signifie que le fils gauche de ce noeud est dans table[4] et son fils droit dans table[5] 
table[5] = < c, 1,3 >signifie que le fils gauche de ce noeud est dans table[1] et son fils droit dans table[3] 
table[1] = < d,0,0 > signifie que ce noeud est une feuille 

.…€tC 


Cr 
Spécification d'implantation en bolpui 


Nous proposons d'utiliser les déclarations suivantes : 


const Explications : 
taille = n; 
type Lorsque Tree.ptrRac = 0 on dit que l'arbre est vide. 


Noeud = record 
info : TO; 
filsG , filsD : O..taille ; 
end; 
Tableau = Array[1..taille] of Noeud ; 
ArbrBin = record 
ptrRac : O..taille; 
table : Tableau ; 
end; 


L'accès à la racine de l'arbre s'effectue ainsi : Tree.table[ptrRac] 

L'accès à l'info de la racine de l'arbre s'effectue ainsi : 
Tree.table[ptrRac].info 

L'accès au fils gauche de la racine de l'arbre s'effectue ainsi : 


var ptr:0..taille ; 


ptr := Tree.table[ptrRac].filsG; 


Var Tree.table[ptr] … 


Tree : ArbrBin ; 


L'insertion ou la suppression d'un noeud dans l'arbre ainsi représenté s'effectue directement 
dans une cellule du tableau. Il faudra donc posséder une structure (de liste, de pile ou de file 
par exemple) permettant de connaître les cellules libres ou de ranger une cellule nouvellement 
libérée. Une telle structure se dénomme "espace libre". 


L'insertion se fera dans la première cellule libre, l'espace libre diminuant d'une unité. 
La suppression rajoutera une nouvelle cellule dans l'espace libre qui augmentera d'une unité. 


Spécification concrète 

Le noeud reste une structure statique contenant 3 éléments dont 2 sont dynamiques : 
e l'information du noeud 
e une référence vers le fils gauche 
e une référence vers le fils droit 


Exemple 
a 
FN 
b C 
d NS 


Soit l'arbre binaire ci-contre : 


Selon l'implantation choisie, par hypothèse de départ, la référence vers la racine pointe vers 
la structure statique (le noeud) < a, ref vers b, ref vers c > 
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Nous avons : 


ref racine — < a, ref vers b, ref vers c > f b } 
ref vers b — < b, null, null > 
ref vers c — < a, ref vers d, ref vers e > SE 7, 


ref vers d — < d, null, null > 


ref vers e — < e, null, null > f e 
__ mn u 
A de | à De se | ! 
Spécification d'implantation en |. \ fl 
\ 


Nous proposons d'utiliser les déclarations de variables dynamiques suivantes : 


type Explications : 
ArbrBin = ‘Noeud ; 
Noeud = record Lorsque Tree = nil on dit que l'arbre est vide. 
info : TO; L'accès à la racine de l'arbre s'effectue ainsi : Tree 
filsG , filsD : ArbrBin ; | L'accès à l'info de la racine de l'arbre s'effectue ainsi : 
end; Tree’ .info 
Var L'accès au fils gauche de la racine de l'arbre s'effectue ainsi : 
Tree : ArbrBin ; Tree’ .filsG 
L'accès au fils gauche de la racine de l'arbre s'effectue ainsi : 
Tree” .filsD 


Nous noterons une simplification notable des écritures dans cette implantation par rapport à 
l'implantation dans un tableau statique. Ceci provient du fait que la structure d'arbre est 
définie récursivement et que la notion de variable dynamique permet une définition 
récursive donc plus proche de la structure. 


Implantation avec une classe \ x \ l 


Nous livrons ci-dessous une écriture de la signature et l'implémentation minimale d'une classe 
d'arbre binaire nommée TreeBin en Delphi (l'implémentation complète est à construire lors des 
exercices sur les classes) : 


TreeBin = class 
public 
Info : string; 
filsG , filsD : TreeBin; 
constructor CreerTreeBin(s:string);overload; 
constructor CreerTreeBin(s:string; fe , fd : TreeBin);overload; 
destructor Liberer; 
end; 
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2.3 Arbres binaires de recherche 


e Nous avons étudié prédédement des algorithmes de recherche en table, en particulier 
la recherche dichotomique dans une table triée dont la recherche s'effectue en 
O(log(n)) comparaisons. 

e Toutefois lorsque le nombre des éléments varie (ajout ou suppression) ces ajouts ou 
suppressions peuvent nécessiter des temps en O(n). 

e En utilisant une liste chaînée qui approche bien la structure dynamique (plus 
gourmande en mémoire qu'un tableau) on aura en moyenne des temps de suppression 
ou de recherche au pire de l'ordre de O(n). L'ajout en fin de liste ou en début de liste 
demandant un temps constant noté O(1). 


Les arbres binaires de recherche sont un bon compromis pour un temps équilibré entre ajout, 
suppression et recherche. 
Un arbre binaire de recherche satisfait aux critères suivants : 


L'ensemble des étiquettes est totalement ordonné. 
Une étiquette est dénommée clef. 


Les clefs de tous les noeuds du sous-arbre gauche d'un noeud X, 
sont inférieures ou égales à la clef de X. 

Les clefs de tous les noeuds du sous-arbre droit d'un noeud X, sont 
supérieures à la clef de X. 


Nous avons déjà vu plus haut un arbre binaire de recherche : 


Prenons par exemple le noeud (25) son sous-arbre droit est bien composé de noeuds dont les 
clefs sont supérieures à 25 : (29,26,28). Le sous-arbre gauche du noeud (25) est bien composé 
de noeuds dont les clefs sont inférieures à 25 : (18,9). 

On appelle arbre binaire dégénéré un arbre binaire dont le degré = 1, ci-dessous 2 arbres 
binaires de recherche dégénérés : 
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Arbres binaires 
dégénérés 


4 N 
1e 60 
28 
Nous remarquons dans les deux cas que nous avons affaire à une liste chaînée donc le nombre 
d'opération pour la suppression ou la recherche est au pire de l'ordre de O(n). 


Il faudra donc utiliser une catégorie spéciale d'arbres binaires qui restent équilibrés (leurs 
feuilles sont sur 2 niveaux au plus) pour assurer une recherche au pire en O(log(n)). 


2.4 Arbres binaires partiellement ordonnés (tas) 


Nous avons déjà évoqué la notion d'arbre parfait lors de l'étude du tri par tas, nous 
récapitulons ic1 les éléments essentiels le lecteur 


c'est un arbre binaire dont tous les noeuds de chaque 
niveau sont présents sauf éventuellement au dernier 
niveau où il peut manquer des noeuds (noeuds terminaux 
= feuilles), dans ce cas l'arbre parfait est un arbre binaire 
incomplet et les feuilles du dernier niveau doivent être 
regroupées à partir de la gauche de l'arbre. 


| || Arbre parfait 


Arbre parfait 
complet 


parfait complet : le dernier niveau est complet car il contient tous les enfants 
un abre parfait peut être incomplet lorsque le dernier niveau de l'arbre est incomplet (dans 


le cas où manquent des feuilles à la droite du dernier niveau, les feuilles sont regroupées à 
gauche) 


Les bases de l'informatique - programmation - | 6. 05.09.2004 ) age 330 
pd: 


Arbre parfait 
incomplet 


parfait icomplet: le dernier niveau est incomplet car il mangue 3 enfants à la droite 


Exemple d'arbre non parfait : 


(non parfait : les feuilles ne sont pas regroupées à gauche) 


Autre exemple d'arbre non parfait : 


(non parfait : les feuilles sont bien regroupées à gauche, mais il manque 1 enfant à l'avant dernier niveau ) 
Un arbre binaire parfait se représente classiquement dans un tableau : 


Les noeuds de l'arbre sont dans les cellules du tableau, 1l n'y a pas d'autre information dans 
une cellule du tableau, l'accès à la topologie arborescente est simulée à travers un calcul 
d'indice permettant de parcourir les cellules du tableau selon un certain ‘ordre’ de 
numérotation correspondant en fait à un parcours hiérarchique de l'arbre. En effet ce sont 
les numéros de ce parcours qui servent d'indice aux cellules du tableau nommé t ci-dessous : 


Arbre binaire parfait 
complet dans un 
tableau 
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S1 t est ce tableau, nous avons les règles suivantes : 


| [] t[1] est la racine 


à. 


tli div 2] est le père de t[i] pour i > 1 t[2 * i] et t[2 * i + 1] sont les deux fils, s'ils existent, de t[i] 


si p est le nombre de noeuds de l'arbre et si 2 * 1 = p, t{[i] n'a qu'un fils, t{p]. 
si i est supérieur à p div 2, t[i] est une feuille. 


Exemple de rangement d'un tel arbre dans un tableau 
(on a figuré l'indice de numérotation hiérarchique de chaque noeud dans le rectangle associé au noeud) 


A  h, 
= EN (°1 a 


Cet arbre sera stocké dans un tableau en disposant séquentiellement et de façon contigüe les 
noeuds selon la numérotation hiérarchique (l'index de la cellule = le numéro hiérarchique du 
noeud). 


Dans cette disposition le passage d'un noeud de numéro K (indice dans le tableau) vers son 
fils gauche s'effectue par calcul d'indice, le fils gauche se trouvera dans la cellule d'index 2*k 
du tableau, son fils droit se trouvant dans la cellule d'index 2*K + 1 du tableau. Ci-dessous 
l'arbre précédent est stocké dans un tableau : le noeud d'indice hiérarchique 1 (la racine) dans 
la cellule d'index 1, le noeud d'indice hiérarchique 2 dans la cellule d'index 2, etc. 
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Le nombre qui figure dans la cellule (nombre qui vaut l'index de la cellule = le numéro 
hiérarchique du noeud) n'est mis là qu'à titre pédagogique afin de bien comprendre le 
mécanisme. 


On voit par exemple, que par calcul on a bien le fils gauche du noeud d'indice 2 est dans la 
cellule d'ndex 2*2 = 4 et son fils droit se trouve dans la cellule d'index 2*2+1 = 5 … 


Exemple d'un arbre parfait étiqueté avec des caractères : 


LN\ 
RPAN . 


arbre pit parcours hiérarchique 
ré NS. EEE 
2 AN À jé . : ee 


dans un tableau 
: “ : 


numérotation hiérarchique 


Soit le noeud 'b' de numéro hiérarchique 2 
(donc rangé dans la cellule de rang 2 du 
tableau), son fils gauche est ‘d', son fils droit 
est 'e'. 


C'est un arbre étiqueté dont les valeurs des noeuds 
appartiennent à un ensemble muni d'une relation 
d'ordre total (les nombres entiers, réels etc. en sont des 
exemples) tel que pour un noeud donné tous ses fils ont 
une valeur supérieure ou égale à celle de leur père. 


Arbre partiellement 
ordonné 


Il 
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Exemple de deux arbres partiellement ordonnés 


sur l'ensemble {20,27,29,30,32,38,45,45,50,51,67,85 } d'entiers naturels : 


Arbre partiellement 
ordonné n°1 


Arbre partiellement 
ordonné n°2 


Nous remarquons que la racine d'un tel arbre est toujours l'élément de l'ensemble 
possédant la valeur minimum (le plus petit élément de l'ensemble), car la valeur de ce noeud 
par construction est inférieure à celle de ses fils et par transitivité de la relation d'ordre à celles 
de ses descendants c'est le minimum. Si donc nous arrivons à ranger une liste d'éléments dans 
un tel arbre le minimum de cette liste est atteignable immédiatement comme racine de l'arbre. 
En reprenant l'exemple précédent sur 3 niveaux : (entre parenthèses le numéro hiérarchique du noeud) 


ef 


Voici réellement ce qui est stocké dans le tableau : (entre parenthèses l'index de la cellule contenant le 
noeud) 


(1) 


L" (3) 
Le 


ST 
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On appelle tas un tableau représentant un arbre parfait partiellement ordonné. 


L'intérêt d'utiliser un arbre parfait complet ou incomplet réside dans le fait que le tableau 
est toujours compacté, les cellules vides s'il y en a se situent à la fin du tableau. 

Le fait d'être partiellement ordonné sur les valeurs permet d'avoir immédiatement un 
extremum à la racine. 


2.5 Parcours d'un arbre binaire 


Objectif : les arbres sont des structures de données. Les informations sont contenues dans les 
noeuds de l'arbre, afin de construire des algorithmes effectuant des opérations sur ces 
informations (ajout, suppression, modification...) il nous faut pouvoir examiner tous les 
noeuds d'un arbre. Examinons les différents moyens de parcourir ou de traverser chaque 
noeud de l'arbre et d'appliquer un traitement à la donnée rattachée à chaque noeud. 


L'opération qui consiste à retrouver systématiquement tous les noeuds d'un 
arbre et d'y appliquer un même traitement se dénomme parcours de l'arbre. 


Un algorithme classique consiste à explorer chaque noeud d'un niveau donné de 
gauche à droite, puis de passer au niveau suivant. On dénomme cette stratégie 
le parcours en largeur de l'arbre. 


La stratégie consiste à descendre le plus profondément soit jusqu'aux feuilles 
d'un noeud de l'arbre, puis lorsque toutes les feuilles du noeud ont été visitées, 
l'algorithme "remonte" au noeud plus haut dont les feuilles n'ont pas encore été 
visitées. 


Notons que ce parcours peut s'effectuer systématiquement en commençant par le 
fils gauche, puis en examinant le fils droit ou bien l'inverse. 
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Parcou profondeur par la gauche 


Traditionnellement c'est l'exploration fils gauche, puis ensuite fils droit qui est 
retenue on dit alors que l'on traverse l'arbre en "profondeur par la gauche”. 


Schémas montrant le principe du parcours exhaustif en "profondeur par la gauche" : 


Soit l'arbre binaire suivant: Appliquons la méthode de parcours proposée : 


Chaque noeud a bien été examiné selon les principes du parcours en profondeur : 
Li] L L 


| 
à. À. / En 


+ 
. 
descendre vers examiner le remonter après 
le fils gauche fils droit examen des 2 fils 


En fait pour ne pas surcharger les schémas arborescents, nous omettons de dessiner à la fin de 
chaque noeud de type feuille les deux noeuds enfants vides qui permettent de reconnaître que 


le parent est une feuille : 
| + 


NS OR 


&= arbre vide 


Lorsque la compréhension nécessitera leur dessin nous conseillons au lecteur de faire figurer 
explicitement dans son schéma arborescent les noeuds vides au bout de chaque feuille. 


Nous proposons maintenant, de donner une description en langage algorithmique LDFA 
du parcours en profondeur d'un arbre binaire sous forme récursive. 
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parcourir ( Arbre) 
si Arbre z © alors 
Traiter-1 (info(Arbre.Racine)) ; 
parcourir ( Arbre.filsG ) ; 
Traiter-2 (info(Arbre.Racine)) ; 
parcourir ( Arbre.filsD ) ; 
Traiter-3 (info(Arbre.Racine)) ; 
Fsi 


Les différents traitements Traiter-1 ,Traiter-2 et Traiter-3 consistent à traiter l'information 
située dans le noeud actuellement traversé soit lorsque l'on descend vers le fils gauche ( 
Traiter-1 ), soit en allant examiner le fils droit ( Traiter-2 ), soit lors de la remonté après 
examen des 2 fils ( Traiter-3 }). 


En fait on n'utilise en pratique que trois variantes de cet algorithme, celles qui constituent des 
parcours ordonnés de l'arbre en fonction de l'application du traitement de l'information située 
aux noeuds. Chacun de ces 3 parcours définissent un ordre implicite (préfixé, infixé, postfixé) 
sur l'affichage et le traitement des données contenues dans l'arbre. 


Algorithme de parcours en pré-ordre : 


parcourir ( Arbre ) 
si Arbre 4 © alors , à 4 
Traiter-1 (info(Arbre.Racine)) ; AT PONT Î t n 
parcourir ( Arbre.filsG ) ; pt |” 
parcourir ( Arbre.filsD ) ; 
Fsi 


Algorithme de parcours en post-ordre : 


parcourir ( Arbre ) 
si Arbre z @ alors , ne ati 4 
parcourir ( Arbre.filsG ) ; puyiilré 
parcourir ( Arbre.filsD ) ; 
Traiter-3 (info(Arbre.Racine)) ; 
Fsi 


Algorithme de parcours en ordre symétrique : 


parcourir ( Arbre ) 


si Arbre # @ alors ‘ de de + 
parcourir ( Arbre.filsG) ; Ü 
Traiter-2 (info(Arbre.Racine)) ; 


parcourir ( Arbre.filsD ) ; 
Fsi 
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Illustration prtaique d'un parcours général en profondeur 


Le lecteur trouvera plus loin des exemples de parcours selon l'un des 3 ordres infixé, préfixé, 
postfixé, nous proposons ici un exemple didactique de parcours général avec les 3 traitements. 


Nous allons voir comment utiliser une telle structure arborescente afin de restituer du texte 
algorithmique linéaire en effectuant un parcours en profondeur. 


Voici ce que nous donne une analyse descendante du problème de résolution de l'équation du 
second degré (nous avons fait figurer uniquement la branche gauche de l'arbre de 
programmation) : 


: : Arbre de programmation structuré descendant : Equation dusecond degré 


$1 C=0 alors [ ecrire (R est sol) | Sinon [ ecrire (pas de sol) | Fsi 


Niveau 3 


Ci-dessous une représentation schématique de la branche gauche de l'arbre de programmation précédent : 


attribut n°1 ns n°3 a 
= | Eensonr 


Le] 


attribut n°2 NC 
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Nous avons établi un modèle d'arbre (binaire ici) où les informations au noeud sont au 
nombre de 3 (nous les nommerons attribut n°1, attribut n°2 et attribut n°3). Chaque attribut est 
une chaîne de caractères, vide s'il y a lieu. 


Nous noterons ainsi un attribut contenant une chaîne vide : © 


Traitement des attributs pour produire le texte 


traitement-1 : . : 
attribut n°1 Traiter-1 (Arbre.Racine.Attribut n°1) consiste à écrire le 
contenu de l'Attribut n°1 : 


e 
| si Attribut n°1 non vide alors 
ecrire( Attribut n°1 ) 
SA Ne Fsi 
+ Là 


traitement-2 | : : . 
attribut n°2 Traiter-2 (Arbre.Racine.Attribut n°2) consiste à écrire le 
contenu de l'Attribut n°2 : 


si Attribut n°2 non vide alors 
ecrire( Attribut n°2 ) 


A Fsi 


traitetm 


Traiter-3 (Arbre.Racine.Attribut n°3) consiste à écrire le 
contenu de l'Attribut n°3 : 


Lu 
| si Attribut n°3 non vide alors 
/ NQ ecrire( Attribut n°3 ) 
. e i 


attribut n°3 


Fsi 


Parcours en profondeur de l'arbre de programmation de l'équation du second degré : 


parcourir ( Arbre ) 


si Arbre z © alors 
Traiter-1 (Attribut n°1) ; 
parcourir ( Arbre.filsG ) ; 
Traiter-2 (Attribut n°2) ; 
parcourir ( Arbre.filsD ) ; 
Traiter-3 (Attribut n°3) ; 


Fsi 
Pal 
ur JE 


A A Fsi 
L { ectire(pas de sol] 
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(Po) 
) si A=0 alors 
FOR A si B=0 alors 
Arbre PA Y, si C=0 alors 
te Fa ecrire(R est sol) 
es sinon 
G 
(Po) 
&Fe{Fsi) Fsi] ecrire(pas de sol) 
AN HS CE: Fsi 
[si C=0 alors Ù alors|-@“sinon| Fsil en, Lu { nb N 
() | é Ÿ $ \ TN 
X1=-C/B; 
1. ») la ecrire(X 1); 
si Arbre z © alors Raneu ÿ Fsi 
Traiter-1 (Attribut n°1) ; Tn 
parcourir ( Arbre.filsG ) ; © 
Traiter-2 (Attribut n°2) ; 12) 
parcourir ( Arbre.filsD ) ; Equation2 
Traiter-3 (Attribut n°3) ; Fsi 
Fsi © 


Rappelons que le symbole © représente la chaîne vide il est uniquement mis dans le texe dans 
le but de permettre le suivi du parcours de l'arbre. 


Pour bien comprendre le parcours aux feuilles de l'arbre précédent, nous avons fait figurer ci- 
dessous sur un exemple, les noeuds vides de chaque feuille et le parcours complet associé : 


Arbre 


so 


[#FeFsi 


«= arbre vide 


Le parcours partiel ci-haut produit le texte algorithmique suivant (le symbole © est encore 
écrit pour la compréhension de la traversée) : 
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2. RMCOUTS ‘erte 


si B=0 alors ï sinon si B=0 alors 
DA F1 si C=0 alors 
ecrire(R est sol) 
sinon 
| (9) 


(9) 
ecrire(pas de sol) 
Fsi 
sinon 
«= arbre vide 
Exercice 
A-e-| 
Soit l'arbre ci-contre possédant 2 attributs par PA N 
noeuds (un symbole de type caractère) b-e<e Sep 
ce‘ Da de. AN 
Seh j SK Fes U-*-v 
On propose le traitement en profondeur de l'arbre comme suit : Réponse : 


L'attribut de gauche est écrit en descendant, l'attribut de droite est 
écrit en remontant, il n'y a pas d'attribut ni de traitement lors de 
l'examen du fils droit en venant du fils gauche. 

écrire la chaîne de caractère obtenue par le parcours ainsi défini. 


abcdfghjkiemnogrsuvtpl 


Terminons cette revue des descriptions algorithmiques des différents parcours 
classiques d'arbre binaire avec le parcours en largeur (Cet algorithme nécessite l'utilisation d'une 
file du type Fifo dans laquelle l'on stocke les nœuds). 


Largeur ( Arbre ) 


si Arbre z © alors 
ajouter racine de l'Arbre dans Fifo; 
tantque Fifo z © faire 
prendre premier de Fifo; 
traiter premier de Fifo; 
ajouter filsG de premier de Fifo dans Fifo; 
ajouter filsD de premier de Fifo dans Fifo; 
ftant 
Fsi 
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2.6 Insertion, suppression, recherche dans un arbre binaire de recherche 


” placer l'élément Elt dans l'arbre Arbre par adjonctions successives aux feuilles 


placer ( Arbre Elt ) 


si Arbre = © alors 
creer un nouveau noeud contenant Elt ; 
Arbre.Racine = ce nouveau noeud 
sinon 
{ - tous les éléments "info" de tous les noeuds du sous-arbre de gauche 
sont inférieurs ou égaux à l'élément "info" du noeud en cours (arbre) 


- tous les éléments "info" de tous les noeuds du sous-arbre de droite 
sont supérieurs à l'élément "info" du noeud en cours (arbre) 


} 
si clef (Elt) < clef ( Arbre.Racine ) alors 
placer ( Arbre.filsG Elt ) 
sinon 
placer ( Arbre.filsD Elt ) 
Fsi 


Soit par exemple la liste de caractères alphabétiques : edfacbuw, que nous rangeons 
dans cet ordre d'entrée dans un arbre binaire de recherche. Ci-dessous le suivi de 
l'algorithme de placements successifs de chaque caractère de cette liste dans un arbre de 
recherche: 


placer (racine ,'e') 
e est la racine de l'arbre. € 


placer (racine , 'd') 
d < e donc fils gauche de e. 

e 
placer (racine ,'f ) 
f > e donc fils droit de e. 

e 

4 | 

placer (racine ,'a') NX | 


a < e donc à gauche, a < d donc fils gauche de d. d Ï 
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TN, 


placer (racine , 'c') d 
c < e donc à gauche, c < d donc à gauche, c > a donc fils droit s 
de a. A 
a N 
C 
e 
V4 NX 
d 
placer (racine , 'b') . 
b < e donc à gauche, b < d donc à gauche, b > a donc à droite a 
de a, b < c donc fils gauche de c. 
C 
b 
e 


d 
placer (racine , 'u') F “ 
u > e donc à droite de e, u > f donc fils droit de f. a Ne u 
C 
b 
/ N 
d f 
placer ( racine , 'w') NX 
w > e donc à droite de e, w > f donc à droite de f, w > u donc fils a 
droit de u. u 
C N, 
wW 
b 


chercher l'élément Elt dans l'arbre Arbre : 


Chercher ( Arbre Elt ) : Arbre 


si Arbre = © alors 

Afficher Elt non trouvé dans l'arbre; 
sinon 

si clef (Elt) < clef ( Arbre.Racine ) alors 
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Chercher ( Arbre.filsG Elt ) /on cherche à gauche 

sinon 
si clef (Elt) > clef ( Arbre.Racine ) alors 

Chercher ( Arbre.filsD Elt ) /on cherche à droite 

sinon retourner Arbre.Racine l'élément est dans ce noeud 
Fsi 

Fsi 

Fsi 


Ci-dessous le suivi de l'algorithme de recherche du caractère b dans l'arbre précédent : 


LUN, LIN 


Chercher ( Arbre , b) Chercher ( ArbrefilsG , b) 


= AN PAT 


d 
{7 \ he ù\ 
è ne 


C 
/ w 2 w 
b b 
Chercher ( ArbrefilsG , b) Chercher ( ArbrefilsD ,b) 
PA D 4 N 
d f d 


Chercher ( Arbre.filsG , b ) retourner Arbre 
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Afin de pouvoir supprimer un élément dans un arbre binaire de recherche, il est nécessaire de 
pouvoir d'abord le localiser, ensuite supprimer le noeud ainsi trouvé et éventuellement 
procéder à la réorganisation de l'arbre de recherche. 


Nous supposons que notre arbre binaire de recherche ne possède que des éléments tous 
distincts (pas de redondance). 


supprimer l'élément Elt dans l'arbre Arbre : 


Supprimer ( Arbre Elt ) : Arbre 
local Node : Noeud 


si Arbre = © alors 
Afficher Elt non trouvé dans l'arbre; 
sinon 
si clef (Elt) < clef ( Arbre.Racine) alors 
Supprimer ( Arbre.filsG Elt ) Yon cherche à gauche 
sinon 
si clef (Elt) > clef ( Arbre.Racine ) alors 
Supprimer ( Arbre.filsD Elt ) Jon cherche à droite 
sinon //l'élément est dans ce noeud 
si Arbre.filsG = © alors //sous-arbre gauche vide 
Arbre <—Arbre.filsD /remplacer arbre par son sous-arbre droit 
sinon 
si Arbre.filsD = © alors //sous-arbre droit vide 
Arbre <—Arbre.filsG //remplacer arbre par son sous-arbre gauche 
sinon //le noeud a deux descendants 
Node <PlusGrand( Arbre.filsG ); /Node = le max du fils gauche 
clef ( Arbre.Racine ) <— clef ( Node ); /remplacer etiquette 
détruire ( Node ) on élimine ce noeud 
Fsi 
Fsi 
Fsi 
Fsi 
Fsi 


Cet algorithme utilise l'algorithme récursif PlusGrand de recherche du plus grand élément dans l'arbre 
Arbre : 


/Ipar construction il suffit de descendre systématiquement toujours le plus à droite 


PlusGrand ( Arbre ) : Arbre 
si Arbre.filsD = © alors 
retourner Arbre.Racine //c'est le plus grand élément 


sinon 
PlusGrand ( Arbre.filsD ) 
Fsi 
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Exercices chapitre 4 


Ex-1 : On défini un nombre rationnel (fraction) comme un couple de deux entiers : le numérateur et le 
dénominateur. On donne ci-dessous un TAD minimal de rationnel et l'on demande de l'implanter en Unit Delphi. 


TAD : rationnel 
Utilise : Z /ensemble des entiers relatifs. 
Champs : (Num , Denom) e ZxZ 
Opérations : 
Num : > rationnel 
Denom : > rationnel 
Reduire : rationnel > rationnel 
Addratio : rationnel x rationnel > rationnel 
Divratio : rationnel x rationnel > rationnel 
Muiratio : rationnel x rationnel > rationnel 
AffectQ : rationnel > rationnel 
OpposeQ : rationnel > rationnel 
Préconditions : 
Divratio (x,y)  defssi y.Num Z0 
Finrationnel 


Ex-2 : On défini un nombre complexe à coefficient entiers relatifs comme un couple de deux entiers relatifs : la 
partie réelle et la partie imaginaire. On donne ci-dessous un TAD minimal de nombre et l'on demande de 
l'implanter en Unit Delphi. 


TAD complexe 
Utilise : Z 
Champs : (part_reel , part_imag)e ZxZ 
Opérations : 
part_reel : > Z 
part_imag : > Z 
Charger : ZxZ > complexe 
AffectC : complexe > complexe 
plus : complexe x complexe > complexe 
moins: complexe x complexe > complexe 
mult : complexe x complexe > complexe 
OpposeC : complexe > complexe 
Préconditions : 
aucune 
Fincomplexe 


Ex-3 : On défini un nombre complexe à coefficient rationnel comme un couple de deux rationnels : la partie 
réelle et la partie imaginaire. On demande de construire un TAD minimal de nombre complexe utilisant le TAD 
rationnel et de l'implanter en Unit Delphi. 


Ex-4 : En reprenant l'énoncé de l'exercice Ex-1 TAD rationnel, on implante sous forme de classe Delphi ce TAD 
et on compare son implantation en Unit. 


Ex-5 : En reprenant l'énoncé de l'exercice Ex-3 TAD de nombre complexe à coefficients rationnels, on implante 
sous forme de classe Delphi ce TAD et on compare son implantation en Unit. 
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Ex-6 : Implantations des 4 algorithmes de parcours d’un arbre binaire étudiés dans le cours : 


Il est demandé d’implanter en Delphi chacun des trois parcours en profondeur par la gauche définissant un ordre 
implicite (préfixé, infixé, postfixé) sur l'affichage et le traitement des données de type string contenues dans un 
arbre binaire, et le parcours en largeur avec une file Fifo. 


Il est demandé d’écrire en Delphi console, l’implantation de la structure d’arbre binaire et des algorithmes de 
parcours avec des variables dynamiques de type parbre = ‘arbre où arbre est un type record à définir selon le 
schéma fournit par l’exemple ci-dessous : 


L’arbre : Est implanté par les pointeurs parbre suivants : 


Le traitement au nœud consistera à afficher la donnée de type string. 


Puis uniquement lorsque vous aurez lu les chapitre sur les classes et la programmation objet, vous 
reprendrez l’implantation de la structure d’arbre binaire et des algorithmes de parcours avec une classe 
TreeBin selon le modèle ci-après : 


TreeBin = class 

private 
Flnfo : string ; 
procedure FreeRecur( x :TreeBin ) ; 
procedure PreOrdre ( x : TreeBin ; var res : string); 
procedure PostOrdre ( x : TreeBin ; var res : string); 

public 
fiisG , filsD : TreeBin ; 
constructor Create(s:string; fe , fd : TreeBin); 
destructor Liberer; 
function Prefixe : string ; 
function Postfixe : string ; 
property Info:string read Finfo write Finfo; 

end; 


Ex-7 : Il est demandé d’implanter en Delphi les 3 algorithmes d’insertion, de suppression et de recherche dans 
un arbre binaire de recherche ; comme dans l’exercice précédent vous proposerez une version avec variables 
dynamiques et une version avec une classe TreeBinRech héritant de la classe TreeBin définie à l’exercice 
précédent. 
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Ex-1 TAD rationnel - solution en Unit Delphi 


TAD : rationnel 
Utilise : Z //ensemble des entiers relatifs. 


Champs : (Num , Denom) e Z x YA 


Opérations : 

Num : > rationnel 

Denom : > rationnel 

Reduire : rationnel > rationnel 

Addratio : rationnel x rationnel > rationnel 

Divratio : rationnel x rationnel > rationnel 

Mulratio : rationnel x rationnel > rationnel 

AffectQ : rationnel > rationnel 

OpposeQ : rationnel > rationnel 
Préconditions : 

Divratio (x,y)  defssi y.Num 0 

Finrationnel 


Reduire : rendre le rationnel irréductible en calculant le pgcd du numérateur et du dénominateur, puis diviser les 
deux termes par ce pgcd. 

Addratio : addition de deux nombres rationnels par la recherche du plus petit commun multiple des deux 
dénominateurs et mise de chacun des deux rationnels au même dénominateur. 

Mulratio : multiplication de deux nombres rationnels, par le produit des deux dénominateurs et le produit des 
deux numérateurs. 

Divrafio : division de deux nombres rationnels, par le produit du premier par l’inverse du second. 

AffectQ : affectation classique d’un rationnel dans un autre rationnel. 

OpposeQ : renvoie l’opposé d’un rationnel dans un autre rationnel 


La structure de données choisie est le type record permettant de stocker les champs numérateur et dénominateur 
d'un nombre rationnel : 


unit Uratio; {unité de rationnels spécification classique ZxZ/R } 
interface 
type rationnel = record 
num: integer; 
denom: integer 
end; 

procedure reduire (var r: rationnel); 
procedure addratio (a, b: rationnel; var s: rationnel); 
procedure divratio (a, b: rationnel; var s: rationnel); 
procedure mulratio (a, b: rationnel; var s: rationnel); 
procedure affectQ(var s: rationnel; b: rationnel); 
procedure opposeQ(x:rationnel;var s:rationnel); 
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unit Uratio; {unité de rationnels spécification classique ZxZ/R} 


interface 


type 

rationnel = 
record 

num: integer; 

denom: integer 
end; 
procedure reduire (var r: rationnel); 
procedure addratio (a, b: rationnel; var s: rationnel); 
procedure divratio (a, b: rationnel; var s: rationnel); 
procedure mulratio (a, b: rationnel; var s: rationnel); 
procedure affectQ(var s: rationnel; b: rationnel); 
procedure opposeQ(x:rationnel;var s:rationnel); 


implementation 


procedure maxswap (var a: integer; var b: integer); 
var 
t: integer; 
begin 
if a <bthen 


function pgcd (a, b: integer): integer; 
var 
r: integer; 
begin 
maxsWap(a, b); 
if a*b=0 then 
pgcd:=1 
else 
begin 
repeat 
r := à mod b; 
a :=b; 
Dr 
until 
r=0; 
pgcd := a 
end 
end; 
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function ppem (a, b: integer): integer; 
var 
k, p: integer; 
begin 
maxswap(a, b); 
if a*b=0 then 
ppem:=0 
else 
begin 
k:= 1; 
P:= b; 
while (k <= a) and (p mod a <> 0) do 
begin 
p:=b*k; 
k:=k+1 
end; 
ppem := p 
end 
end; 


procedure reduire (var r: rationnel); 
var  pg:integer; 
begin 
if r.denom=0 then 


begin 

pg := pgcd(r.num, r.denom); 

if pg <> 1 then 

begin 
r.num := r.num div pg; 
r.denom := r.denom div pg 

end; 

if (r.num>0) and (r.denom>0) 
or (r.num<O0) and (r.denom<O) then 

begin /positif} 
r.num:=abs(r.num); 
r.denom:=abs(r.denom); 

end 

else 

begin/négatif} 
r.num:=-abs(r.num); 
r.denom:=abs(r.denom); 

end 

end 
end; 


procedure affectQ( var s: rationnel; b: rationnel); 


begin 
s.num:=b.num; 
s.denom:=b.denom 
end; 
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procedure opposeQ(x:rationnel;var s:rationnel); 
begin 
s.num:=-x.num; 
s.denom:=x.denom 
end; 


procedure addratio (a, b: rationnel; var s: rationnel); 
var 

divcom, coeff_a, coeff_b: integer; 

begin 
reduire(a); 
reduire(b); 
divcom := ppcm(a.denom, b.denom); 
coeff_a := divcom div a.denom; 
coeff_b := divcom div b.denom; 
s.num := a.num * coeff a + b.num * coeff b; 
s.denom := divcom; 
reduire(s); 

end; 


procedure divratio (a, b: rationnel; var s: rationnel); 
begin r 
reduire(a); 
reduire(b); 
if b.num=0 then 
halt 
else 
begin 
s.num := a.num * b.denom; 
s.denom := a.denom * b.num; 
reduire(s) 
end 
end; 


procedure mulratio (a, b: rationnel; var s: rationnel); 
begin 
reduire(a); 
reduire(b); 
s.num := a.num * b.num; 
s.denom := a.denom * b.denom; 
reduire(s) 
end; 


end. 


Utilisation de la unit 


program essaiRatio; {début programme de test de la unit Uratio de nombres rationnels } 
uses Uratio; 


var  rl,12, 13,14, 15 : rationnel; 
begin  / exemple de calcul sur les rationnels non nuls à continuer} 
ri. num :=18; rl.denom := 15; r2num:=7;  r2.denom := 12; 


addratio(r1, r2, r3); 

writeln('18/15 + 7/12 =", r3.num, /', r3.denom); 
mulratio(r1, r2, r4); 

writeln('18/15 * 7/12 =", r4.num, /', r4.denom); ...… 
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Ex-2 TAD nombre complexe à coeff entiers - solution en Unit Delphi 


Charger : remplit les deux champs part_reel et part_imag d’un nombre complexe. 


AffectC : affectation classique d’un complexe dans un autre. 


plus : addition de 2 nombres complexes spécif. mathématique classique : 


, 


Zi=X-Hy et Z2=X HV" => Z1+22= (xx) (VV). 


moins : soustraction de 2 nombres complexes spécif. mathématique classique : 


, 


Z=xHy et Z2=X HV =>Z1-22= (xx) (9-1. 


mult : multiplication de 2 nombres complexes spécif mathématique classique : 
Zi=XHy et Z2=X HV" =>Z1429 (XX - VV ) (XV XVI. 
OpposeC : pour un nombre complexe x+iy cet opérateur renvoie —x —iy 


TAD complexe 
Utilise : Z 
Champs : (part_reel , part_imag) e ZxZ 
Opérations : 
part_reel : > Z 
part_imag : > Z 
Charger : ZxZ > complexe 
AffectC : complexe > complexe 
plus : complexe x complexe 
moins: complexe x complexe 
mul : complexe x complexe 
OpposeC : complexe 
Préconditions : 
aucune 
Fincomplexe 


> complexe 


La structure de données choisie est aussi ici le type record permettant de stocker les champs partie réelle et 


partie imaginaire d'un nombre complexe : 


unit UComplxl; {unit de calcul sur les nombres complexes à coefficients entiers} 


interface 
type complex = record 
part_reel: integer; 
part_imag: integer 
end; 


procedure Charger (x, y: integer; var z: complex); 
procedure affectC (var z: complex;y: complex ); 
procedure plus (x, y: complex; var z: complex); 
procedure moins (x, y: complex; var z: complex); 
procedure mult (x, y: complex; var z: complex); 
procedure OpposeC (x:complex; var z:complex); 
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unit UComplx1;{unit de calcul sur les nombres complexes à coefficients entiers } 


interface 


type 
complex = record 
part _ reel: integer; 
part_imag: integer 
end; 


procedure Charger (x, y: integer; var z: complex); 
procedure affectC (var z: complex;y: complex ); 
procedure plus (x, y: complex; var z: complex); 
procedure moins (x, y: complex; var z: complex); 
procedure mult (x, y: complex; var z: complex); 
procedure OpposeC(x:complex;var z:complex); 


implementation 


procedure Charger (x, y: integer; var z: complex); 
begin 
z.part_reel := x; 
Z.part_imag := y 
end; 


procedure affectC (var z: complex;y: complex ); 
begin 

z.part_reel := y.part_reel; 

Z.part_imag := y.part_imag 
end; 


procedure plus (x, y: complex; var z: complex); 
begin 
z.part_reel := x.part_reel + y.part_reel; 
Z.part_imag := x.part_imag + y.part imag 
end; 


procedure moins (x, y: complex; var z: complex); 
begin 
z.part_reel := x.part_reel - y.part_reel; 
Z.part_imag := x.part_imag - y.part_ imag 
end; 


procedure mult (x, y: complex; var z: complex); 
begin 
z.part_reel := x.part_reel * y.part reel 
- X.part_imag * y.part_imag; 
z.part_imag := x.part reel * y.part_imag 
+ y.part reel * x.part_imag 
end; 


procedure OpposeC(x:complex;var z:complex); 
begin 

z.part_reel := -x.part_reel; 

Z.part_imag := x.part_imag 
end; 


end. 


Utilisation de la unit 


program essai_complexel; 


{test de l'utilisation de la unit Ucompix1 
de nombres complexes à coeff. Entiers } 


uses 
Ucomplx]; 


var 
u, Z, Zl, 22: complex; 


procedure ecrit (v: string; z: complex); 


begin 
writeln(v, :', z.part_reel : 3, 


+',z.part_imag : 3,'i') 


end; 


begin 
writeln(' ”»; 
Charger(2, -3, zl); 
ecrit('zl', zl); 
Charger(8, 113, 72); 
ecrit('z2’, z2); 
affectC(z, z1); 
ecrit('z', Z); 
plus(zl, z2, u); 
ecrit('u=z1+72", u); 
moins(zl, z2, u); 
ecrit('u=z 1-72", u); 
Charger(1, 0, z); 
mult(z1, z2, u); 
ecrit('u=z1*72", u); 
mult(z, Z2, u); 
ecrit('u=1 #72", u); 

end. 
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Ex-3 TAD nombre complexe à coeff rationnels - solution en Unit Delphi 


TAD complexe 
Utilise : rationnel 
Champs : (part_reel , part_imag ) € rationnel x rationnel 
Opérations : 
part_reel : > rationnel 
part_imag : > rationnel 
Charger : rationnel x rationnel > complexe 
AffectC : complexe > complexe 
plus : complexe x complexe > complexe 
moins: complexe x complexe > complexe 
mul : complexe x complexe > complexe 
OpposeC : complexe > complexe 
Préconditions : 
aucune 
Fincomplexe 


Charger : remplit les deux champs part_reel et part_imag d’un nombre complexe. 
AffectC : affectation classique d’un complexe dans un autre. 
plus : addition de 2 nombres complexes spécif. mathématique classique : 


, 


Zi=xX-Hy et ZX HY" => Z1+22 (xx) (VV 1. 


moins : soustraction de 2 nombres complexes spécif. mathématique classique : 


, 


Z1=XH y et Z2=X 
mult : multiplication de 2 


LV” =>Z1-22 (xx) (Y-Y )i. 
nombres complexes spécif mathématique classique : 


Z1=XHY et Z2=Xx"+ 


HY° =>Z1422= (xx - yy') (y XML. 


OpposeC : pour un nombre complexe x+iy cet opérateur renvoie —x —iy 


unit UComplx?; {unit de nombres complexes à 
coefficients rationnels utilisant 
la unit de rationnels déjà construite Uratio } 


interface 
uses Uratio; 
type 
complex = record 
part_reel: rationnel; 
part_imag: rationnel 
end; 


procedure Charger (x, y: integer; var z: complex); 
procedure affectC (var z: complex;y: complex ); 
procedure plus (x, y: complex; var z: complex); 
procedure moins (x, y: complex; var z: complex); 
procedure mult (x, y: complex; var z: complex); 
procedure OpposeC(x:complex; var z:complex); 
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unit UComplx2; 


{unit de nombres complexes à coefficients rationnels utilisant la unit de rationnels déjà construite Uratio } 


interface 
uses Uratio; 
type 
complex = record 
part reel: rationnel; 
part_imag: rationnel 
end; 


procedure Charger (x, y: rationnel; var z: complex); 
procedure affectC (var z: complex;y: complex ); 
procedure plus (x, y: complex; var z: complex); 
procedure moins (x, y: complex; var z: complex); 
procedure mult (x, y: complex; var z: complex); 
procedure OpposeC(x:complex;var z:complex); 


implementation 


procedure OpposeC ( x:complex; var z:complex); (* fournit l'opposé de x dans zx *) 
begin 
OpposeQ(x.part_reel,z.part_reel); 
OpposeQ(x.part_imag,z.part imag); 
end; 


procedure Charger (x, y : rationnel; var z : complex); 
begin 

reduire(x); 

reduire(y); 

affectQ(z.part_reel,x); 

affectQ(z.part_imag, y); 
end; 


procedure affectC (var z: complex;y: complex ); 
begin 

Charger(y.part_reel,y.part_imag,z) 
end; 


procedure plus (x, y: complex; var z: complex); 
var r1,r2:rationnel; 
begin 
addratio(x.part_reel,y.part_reel,r1); 
addratio(x.part_imag, y.part_imag,r2); 
Charger (r1,r2,z) 
end; 


procedure moins (x, y: complex; var z: complex); 
var zl:complex; 
begin 
OpposeC(y;,z1); 
plus(x,z1,z) 
end; 


procedure mult (x, y: complex; var z: complex); 
var r1,r2,r3,r4:rationnel; 
begin 
{z.part_reel := x.part_reel * y.part_reel - x.part_imag * y.part_imag;} 
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mulratio(x.part_reel,y.part_reel,rl); 
mulratio(x.part_imag, y.part_imag,r2); 
OpposeQ(r2,r3); 

addratio(r1,r3,r4); 


{z-part_imag := x.part_reel * y.part_imag + y.part_reel * x.part_imag} 


mulratio(x.part_reel,y.part_imag,rl); 
mulratio(x.part_imag, y.part_reel,r2); 
addratio(r1,r2,r3); 
Charger(rd,r3,z) 

end; 


end. 


program essai_complexe2; 


{programme de test et d'utilisation de la unit Ucomplx2 de nombres complexes à coeff. rationnels } 


uses 

Uratio,Ucomplx2 ; 
procedure ecrit (v: string; z: complex); 
begin 


writeln(v, ‘: (, z.part_reel.num,/', z.part_reel.denom, ‘)+ (', z.part_imag.num, /', Z.part_imag.denom, ).i') 


end; 
var r1,r2,r3:rationnel; 
u, Z, Z1, Z2: complex; 
begin 
writeln(' "5 
{/"/ les chargements dépendent du type des données ///} 
rl.num :=18; 
rl.denom := 15; 
r2.num := 7; 
12.denom := 12; 
Charger(r1, r2, zl); 
ecrit('zl', zl); 
rl.num :=35; 
rl.denom := 25; 
r2.num := 11; 
r2.denom := 6; 
Charger(r1, r2, z2); 
ecrit('z2', z2); 


{/U/ les appels d'opérateurs sont identiques à ceux de l'exercice précédent: ///} 


affectC(z, z1); 
ecrit(z=Zl', z); 
plus(z1, z2, u); 
ecrit('u=z1+72', u); 
moins(zl, z2, u); 
ecrit('u=z 1-72", u); 
rl.num :=]; 
rl.denom := |; 
r2.num := 0; 
r2.denom := |; 
Charger(r1, r2, zl); 
mult(z1, z2, u); 
ecrit('u=1 72’, u); 
mult(z, Z2, u); 
ecrit('u=z 1 *72', u); 
end. 
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Ex-4 TAD nombre rationnel - solution en classe Delphi 


Le TAD 


La classe 


TAD : rationnel 


Utilise : Z /ensemble des entiers relatifs. 
Champs : (Num , Denom ) € Z x Z 


Opérations : H denom : integer 

Num : > rationnel Æ num : integer 

Denon : > rationnel 

Reduire : rationnel > rationnel .: a 

QC: 
Addratio : rationnel X rationnel > rationnel El ppcni...) 
Divratio : rationnel X rationnel > rationnel El Addratiof.….] 
FI affectQ[...] 

Mufratio : rationnel X rationnel > rationnel Æ Divratio(...] 

AffectQ : rationnel > rationnel Æ] Mulratio(...) 

OpposeQ : rationnel > rationnel EH opposeQ(...] 
Préconditions : EI reduire(.…) 

Divratio (x.y) defssi  y.Num + 
Finrationnel 
En Delphi 
À D \O 

| \ “\ & sa du 

unit UClasseratio; | unit Unitratio; di V 
interface interface S 
type type 


rationnel = class 


private 


function pgcd (a, b: integer): integer; 
function ppcm (a, b: integer): integer; 
procedure maxswap (var a: integer; 


public 


var b: integer); 


num: integer; 
denom: integer; 


procedure reduire ; 


procedure Addratio (a,s: rationnel); 
procedure Divratio (a,d: rationnel); 
procedure Mulratio (a,m: rationnel); 


procedure affectQ (s: rationnel); 
procedure opposeQ (s:rationnel); 


end; 


implementation 


procedure rationnel.maxswap (var a: integer; 


function rationnel.pgcd (a, b: integer): integer; … 
function rationnel.ppem (a, b: integer): integer; … 


var b: integer); … 


procedure rationnel.reduire ; … 


procedure rationnel. Addratio (a,s: rationnel); … 
procedure rationnel. Divratio (a,d: rationnel); … 
procedure rationnel. Mulratio (a,m: rationnel); … 


procedure rationnel.affectQ (s: rationnel); … 
procedure rationnel.opposeQ (s: rationnel); 
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rationnel = record 
num: integer; 
denom: integer 
end; 


procedure reduire (var r: rationnel); 

procedure Addratio (a, b: rationnel; var s: rationnel); 
procedure Divratio (a, b: rationnel; var s: rationnel); 
procedure Mulratio (a, b: rationnel; var s: rationnel); 
procedure affectQ (var s: rationnel; b: rationnel); 
procedure opposeQ (x:rationnel;var s:rationnel); 


implementation 


procedure maxswap (var a: integer; var b: integer); … 
function pgcd (a, b: integer): integer; … 

function ppcm (a, b: integer): integer; … 

procedure reduire (var r: rationnel); … 

procedure Addratio (a, b: rationnel; var s: rationnel); … 
procedure Divratio (a, b: rationnel; var s: rationnel); … 
procedure Mulratio (a, b: rationnel; var s: rationnel); … 
procedure affectQ (var s: rationnel; b: rationnel); … 
procedure opposeQ (x: rationnel;var s: rationnel); … 
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Ex-5 TAD nombre complexe - solution en classe Delphi 


Le TAD 


La classe complex utilise la classe rationnel 


TAD complex 
Utilise : Z 


rationnel 


Champs : (part_reel , part_imag ) e ZxZ° EM denom : integer complex 
OPATOR I num : ntoger | part_imag : ratiornel 
part_reel : > Z -ma9 : 


part_imag : > Z FI maxswap(...] 


Charger : Z X Z > complex 
AffectC : complex > complex 


plus : complex X complex > complex 
moins: complex X complex > complex 


mult : complex X complex > complex 
OpposeC : complex > complex 
Fincomplexe 


I part_reel : ratiornel 


FI affectC{...) 


contient 
D 


En Delphi 
L Nr à 4 
. NA. : 5 ‘ \ 
unit UClasseComplexe2; | unit Ucomplx2; 
VAN p 

interface interface 
uses UClasseratio; uses Uratio; 
type type 

complex = class complex = 
private record 
/Ipas d'éléments privés pour l'instant art_reel: rationnel; 

P 

public part_imag: rationnel 


part_reel: rationnel; 

part_imag: rationnel; 

procedure Charger (x, y: rationnel); 

procedure affectC (z: complex); 

procedure plus (x,z: complex); 

procedure moins (x,z: complex); 

procedure mult (x,z: complex); 

procedure OpposeC(z: complex); 
end; 


implementation 


procedure complex.Charger (x, y: rationnel); … 


procedure complex.affectC (z: complex); … 
procedure complex.plus (x,z:complex); … 
procedure complex.moins (x,z: complex); … 
procedure complex.mult (x,z: complex); … 
procedure complex.OpposeC(z:complex); … 
end. 


end; 


procedure Charger (x, y: rationnel; var z: complex); 
procedure affectC (var z: complex;y: complex ); 
procedure plus (x, y: complex; var z: complex); 
procedure moins (x, y: complex; var z: complex); 
procedure mult (x, y: complex; var z: complex); 
procedure OpposeC(x:complex;var z:complex); 


implementation 

procedure Charger (x, y: rationnel; var z: complex); … 
procedure affectC (var z: complex;y: complex }; … 
procedure plus (x, y: complex; var z: complex); … 
procedure moins (x, y: complex; var z: complex); … 
procedure mult (x, y: complex; var z: complex); … 
procedure OpposeC(x:complex;var z:complex); … 


end. 
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Ex-6 : Solution des 4 algorithmes de parcours d’un arbre 


Nous implantons en Delphi les 4 algorithmes dont 3 sont sous forme de procédures récursives. Nous supposons 
que les informations stockées dans un noeud sont du type chaîne de caractère (string), le traitement consistera 
ici à écrire le contenu de la string d'un noeud lorsqu'il est parcouru. La structure de données d'arbre est 
représentée par 


Implantations des données avec variables dynamique et classe 


Nous proposons parallèlement les deux implantations demandées que le lecteur testera sur sa machine en 
fonction de son avancement dans le cours. 


Implantation en Delphi avec des variables dynamiques : 


Implantation en Delphi avec une classe : 


interface 
// dans cette classe tous les champ sont publics afin de simplifier l'écriture 
type 
TreeBin = class 
private 
procedure FreeRecur( x :TreeBin ) ; 
public 
Info : string; 


fiisG , filsD : TreeBin; 
constructor CreerTreeBin(s:string);overload; 
constructor Creer TreeBin(s:string; fe , fd : TreeBin);overload; 
destructor Liberer; 
end; 


implementation 

> Méthodes privé --------------"" } 
procedure TreeBin.FreeRecur ( x : TreeBin ) ; 

// parcours postfixe pour détruire les objets de l'arbre x 


begin 
FreeRecur( x.filsG }; 
FreeRecur( x.filsD }); 
x.Free 
end; 
fe Méthodes public -----------------""- : 
constructor TreeBin.CreerTreeBin(s:string); 
begin 


self.info := 5; 

self.filsG := nil; 

self. filsD := nil; 
end; 


constructor TreeBin.CreerTreeBin(s : string ; fs, fd : TreeBin); 
begin 

self.info := 5; 

self.filsG := fs; 
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Nous prenons comme exemple sur lequel appliquer les 4 algorithmes, l'arbre binaire X suivant (chaque noeud a 
une info de type caractère stocké dans une string) : 


LN\ 
VAN A 


Implantation de l’algorithme de parcours en pré-ordre : 


écrire EAN 


écrire ‘D' 
CZ NN 
d/7 Ye 


écrire ‘€! 


A écrire ‘€' 


Fécrire Nid 


écrire ‘' 


La procédure écrira successivement : abdecf 


Préordre en Delphi avec les variables dynamiques : 


Préordre en Delphi avec la classe : 
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interface 
type 
TreeBin = class 
private 
procedure FreeRecur( x :TreeBin ) ; 
procedure PreOrdre ( x : TreeBin); 
public 
Info : string; 
filsG , filsD : TreeBin; 
constructor CreerTreeBin(s:string);overload; 
constructor CreerTreeBin(s:string; fs , fd : TreeBin);overload; 
destructor Liberer; 
procedure Prefixe; 
end; 


implementation 
{>>> Méthodes privé -------------"""" } 
procedure TreeBin.PreOrdre ( x : TreeBin ) ; 
// parcours préfixé d'un arbre x 
begin 
if x<> nil then 
begin 
write(x.info); 
PreOrdre( x.filsG ); 
PreOrdre( x.filsD ) 
end 
end; 
l/autres méthodes …… 


de) Méthodes public -----------------"" } 
procedure Prefixe; 
// parcours préfixé de l'objet 
begin 
PreOrdre( self ); 
end; 
/Jautres méthodes …… 


end. 


Implantation de l’algorithme en post-ordre : 


parcourir ( Arbre ) 

si Arbre z © alors 
parcourir ( Arbre.filsG ) ; 
parcourir ( Arbre.filsD ) ; 
Traiter-3 (info(Arbre.Racine)) ; 


Fsi 
a écrire ‘a! 
7 r écrire ‘C' 
écrire D 


MAX 
écrire 'd' 4 Pa) 


écrire ‘e' 


La procédure écrira successivement: debfca 
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Postordre en Delphi avec les variables dynamiques : 


Postordre en Delphi avec la classe : 


interface 
type 
TreeBin = class 
private 
procedure FreeRecur( x :TreeBin ) ; 
procedure PreOrdre ( x : TreeBin); 
procedure PostOrdre ( x : TreeBin); 
public 
Info : string; 
fiisG , filsD : TreeBin; 
constructor CreerTreeBin(s:string);overload; 
constructor Creer TreeBin(s:string; fe , fd : TreeBin);overload; 
destructor Liberer; 
procedure Prefixe; 
procedure Postfixe; 
end; 


implementation 
> Méthodes privé --------------""" } 
procedure TreeBin.PostOrdre ( x : TreeBin ) ; 
// parcours postfixé d'un arbre x 
begin 
if x<> nil then 
begin PostOrdre( x.filsG ); 
PostOrdre( x.filsD }); 
write(x.info); 
end 
end; 
/Jautres méthodes …… 


d----- > Méthodes public -----------------""" n 
procedure Postfixe; 

// parcours préfixé de l'objet 

begin 

PostOrdre( self }; 

end; 

//autres méthodes …… 


end. 


Implantation de l’algorithme en ordre symétrique : 


parcourir ( Arbre ) 
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si Arbre ZQ alors 
parcourir ( Arbre.filsG ) ; 
Traiter-2 (info(Arbre.Racine)) ; 
parcourir ( Arbre.filsD ) ; 

Fsi 


écrire '€' 


écrire f' 


w æ Er 
ÉCIIÉE € 
La procédure écrira successivement : dbeafc 


Ordre infixé en Delphi avec les variables dynamiques : 


Ordre infixé en Delphi avec la classe : 


interface 
type 
TreeBin = class 
private 
procedure FreeRecur( x :TreeBin ) ; 
procedure PreOrdre ( x : TreeBin); 
procedure PostOrdre ( x : TreeBin); 
procedure InfixeOrdre ( x : TreeBin); 
public 
Info : string; 
filsG , filsD : TreeBin; 
constructor CreerTreeBin(s:string);overload; 
constructor CreerTreeBin(s:string; fs , fd : TreeBin);overload; 
destructor Liberer; 
procedure Prefixe; 
procedure Postfixe; 
procedure Infixe; 
end; 


implementation 

> Méthodes privé ---------------" } 
procedure TreeBin.InfixeOrdre ( x : TreeBin)) ; 

// parcours infixé d'un arbre x 

begin 

if x<> nil then 

begin 
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InfixeOrdre( x.filsG }; 
write(x.info); 
InfixeOrdre( x.filsD ); 

end 
end; 
//autres méthodes …… 


fee Méthodes public -----------------"""- } 
procedure Infixe; 
// parcours préfixé de l'objet 
begin 
InfixeOrdre( self }; 
end; 
//autres méthodes …… 


end. 


Algorithme de parcours en largeur (hiérarchique) 


Largeur ( Arbre ) 
si Arbre z © alors 
ajouter Arbre.racine dans Fifo; 
tantque Fifo Z © faire 
prendre premier de Fifo; 
traiter premier de Fifo; 
ajouter filsG de premier de Fifo dans Fifo; 
ajouter filsD de premier de Fifo dans Fifo; 
ftant 
Fsi 


La procédure écrira successivement : abcdef 


Implantation en Delphi avec les variables dynamiques et un TList : 


type 
parbre = ‘arbre; 
arbre = record 
info : string ; 
filsG, filsD: parbre 
end; 


Nous utilisons un objet Delphi de classe TList pour implanter notre Fifo. 


Un TList stocke un tableau de pointeurs (Pointer en Delphi). Un objet TList est souvent utilisé pour gérer une 
liste d'objets. TList introduit des propriétés et méthodes permettant d'ajouter ou de supprimer des objets de la 
liste. En particulier afin d'implanter une file de type Fifo, nous utiliserons les membres suivants du TList. 


méthodes 
function Add( x : Pointer): Integer; Ajoute un nouvel élément en fin de liste et renvoie son rang. 
function First : Pointer; Renvoie le premier élément du tableau (celui de rang 0). 
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Le TList ne contiendra pas les noeuds de l'arbre eux-mêmes mais les pointeurs vers les noeuds (type parbre ici) 


Fifo. Add( f,) 
Fifo . First 


V'éci 
Je 


On applique la procédure Largeur à l'arbre X afin de parcourir et d'écrire hiérarchiquement les caractères de 
chaque noeud. Ci-dessous le début d'un suivi d'exécution de la procédure Largeur : 


! à 2 Î [a 
Fifoi=TList. Create! OR EEEICICI 


X ==) 


// ajouter la racine x dans Fifo 
Fifo.Add( x }; 
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n ; ‘ 2 1 
DORE RECIRCIE 
(el) 


Début de la boucle while : | 
// traitement du premier P 


write(parbre(Fifo.First)\.info) 


ecrit : a 


/ ajoute le fils gauche du premier dans Fifo 
Fifo.Add(parbre(Fifo.First)".filsG) 


1 © 
/ ajoute le fils droit du premier dans Fifo 
Fifo.Add(parbre(Fifo.First)".filsD) 
[# 
Er.) 
E, | 
! supprime l'élément de rang 0 (le premier) El 


Fifo.delete(0); 


Reprise de la boucle while : 
// traitement du premier 
write(parbre(Fifo.First)\.info) 


ecrit : b 
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Programmes Delphi complets 


Ci-dessous un programme complet en Delphi (avec variables dynamiques) à 
exécuter tel quel avec Delphi en mode console : 


program Tree; procedure construit (var rac:parbre; 
{les arbres sont parcourus sous les 3 formes filse.filsd:parbre;elt:string); 
in, post et pré-fixées /l construit un arbre 
begin 
{$APPTYPE CONSOLE} if rac=nil then 
uses sysutils; begin 
type new(rac); 
parbre = arbre; with rac' do 
arbre = begin 
record val := elt; 
val: char; g := filsg; 
g, d: parbre d := filsd 
end; end; 
var end 
rac,arb1,arb2,arb3,arb4.arbS: parbre; end; {construit} 
procedure edite (f: parbre); procedure postfixe (f: parbre); 
{infixe avec parentheses } begin 
begin if f <> nil then 
if f <> nil then with f\ do 
with f” do begin 
begin postfixe(g); 
write("("); postfixe(d); 
edite(g); write(val); 
write(val); end 
edite(d); end; {postfixe } 
write(")) 
end 
end; {edite} 
procedure prefixe (f: parbre); procedure infixe (f: parbre); 
begin begin 
if f <> nil then if f <> nil then 
with f" do with f\ do 
begin begin 
write(val); infixe(g); 
prefixe(g); write(val); 
prefixe(d) infixe(d); 
end end 
end; {prefixe} end; {infixe} 
procedure Largeur ( f : parbre); begin {prog-principal} 
var Fifo : TList; 
begin arbl:=nil; 
if f <> nil then arb2:=nil; 
begin arb3:=nil; 
Fifo:=TList.Create; // crée la Fifo arbd:=nil; 
Fifo.Add( f ); // ajoute la racine f dans Fifo arb5:=nil; 
while fifo.count<>0 do construit(arb1 ,nil,nil,'d'); 
begin construit(arb2,nil,nil,'e'); 
write(parbre(Fifo.First)\.info); // traitement du construit(arb3,arb1,arb2;'c'); 
premier construit(arb4,nil,nil,'f); 
if parbre(Fifo.First)".filsG <> nil then construit(arb5,arb3,arb4,'b'); 
Fifo.Add(parbre(Fifo.First)".filsG); // ajoute le fils © } 
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gauche du premier dans Fifo 
if parbre(Fifo.First).filsD 
Fifo.Add(parbre(Fifo.First] 
droit du premier dans Fifo 
Fifo.delete(0); // supprime 
premier) 
end; 
Fifo.Free ; // supprime la Fifo 
end 
end; {Largeur} 


arbl :=nil; 

arb2:=nil; 

arb3:=nil; 

construit(arb1 ,nil,nil,'h'); 
construit(arb2,nil,nil,'1); 
construit(arb3,arb1,arb2,'g'); 


fn 
rac:=nil; 
construit(rac,arb5,arb3;'a'); 
be 


writeln(‘lecture parenthésée:"); 
edite(rac); writeln; 
writeln('lecture notation infixée:'}; 
infixe(rac); writeln; /dcebfahgj 
writeln(‘'lecture notation postfixée:"}; 
postfixe(rac); writeln; /decfbhjga 
writeln('lecture notation préfixée:'}; 
prefixe(rac); writeln; /abcdefghj 
writeln('lecture hiérarchique:"); 
Largeur(rac); writeln /abgcfhjde 
end. 


Ci-dessous une unit complète en Delphi de la classe TreeBin : 


unit UTreeBin; 


interface 
uses Classes; 
type 

TreeBin = class 
private 

Flnfo : string; 


procedure FreeRecur ( x :TreeBin ) ; 
procedure PreOrdre ( x : TreeBin ; var res :string); 
procedure PostOrdre ( x : TreeBin ; var res :string); 
procedure SymOrdre ( x : TreeBin ; var res :string); 
procedure Hierarchie (x: TreeBin ; var res:string); 
public 
filsG , filsD : TreeBin; 
constructor Create(s:string; fe , fd : TreeBin); 
destructor Liberer; 
function Prefixe : string; 
function Postfixe : string; 
function Infixe : string; 
function Largeur : string; 
property Info : string read Finfo write Finfo; 
end; 


implementation 
"7 Méthodes privé --------"-""""""""" } 
procedure TreeBin.FreeRecur ( x : TreeBin ) ; 
/l parcours postfixe pour détruire les objets de l'arbre x 
begin 

FreeRecur( x.filsG }); 

FreeRecur( x.filsD }); 

x.Free 
end; 
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procedure TreeBin.PostOrdre (x: TreeBin ;var res:string); 
/l parcours postfixé d'un arbre x 
begin 
if x<>nil then 
begin 
PostOrdre( x.filsG ,res ); 
PostOrdre( x.filsD ,res ); 
res:=res+x.FInfo 
end 
end; 


procedure TreeBin.PreOrdre (x: TreeBin ;var res:string); 
begin 
if x<>nil then 
begin 
res:=res+x.FInfo; 
PreOrdre( x.filsG ,res ); 
PreOrdre( x.filsD ,res ); 
end 
end; 


procedure TreeBin.SymOrdre ( x : TreeBin ;var res:string); 
begin 

if x<>nil then 

begin 

SymOrdre ( x.filsG ,res ); 

res:=res+x.FInfo; 

SymOrdre ( x.filsD ,res ); 

end 
end; 


procedure TreeBin.Hierarchie (x: TreeBin ;var res:string); 
var Fifo : TList; 
begin 
if x <> nil then 
begin 
Fifo:=TList.Create; // crée la Fifo 
Fifo.Add( x }; // ajoute la racine f dans Fifo 
while fifo.count<>0 do 
begin 
res:=res+ TreeBin (Fifo.First).info; 
if TreeBin (Fifo.First).filsG <> nil then 
Fifo.Add(TreeBin (Fifo.First).filsG); // ajoute le fils gauche du premier dans Fifo 
if TreeBin (Fifo.First).filsD <> nil then 
Fifo.Add(TreeBin (Fifo.First).filsD); // ajoute le fils droit du premier dans Fifo 
Fifo.delete(0); // supprime l'élément de rang 0 (le premier) 
end; 
Fifo.Free ; // supprime la Fifo 
end 
end;{ Hierarchie } 


{= —° Méthodes public -------------"--""""" } 
constructor TreeBin.Create(s : string ; fe, fd : TreeBin); 
begin 


self.Finfo := s; 
self.filsG := fe; 
self.filsD := fd; 
end; 
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destructor TreeBin.Liberer; 

// la destruction de tout l'arbre : 
begin 

FreeRecur (self) ; 

self :=nil; 

end; 


function TreeBin.Postfixe:string; 
var parcours:string; 

begin 

parcours:="; 

PostOrdre( self, parcours ); 
result:=parcours 

end; 


function TreeBin.Prefixe : string; 
var parcours:string; 

begin 

parcours :="; 

PreOrdre( self , parcours ); 
result:=parcours 

end; 


function TreeBin.Infixe : string; 
var parcours:string; 
begin 
parcours:="; 
SymOrdre ( self, parcours ); 
result:=parcours 
end; 


function TreeBin.Largeur : string; 
var parcours:string; 
begin 
parcours :="; 
Hierarchie ( self, parcours ); 
result:=parcours 
end; 


end. 


Ci-après le programme d’utilisation de la unit sur l’arbre ci-dessous : 


program PrTreeBin; 
{$APPTYPE CONSOLE} 
uses 
SysUtils, 
UTreeBin in 'UTreeBin.pas'; 
var racine,racO,racl,fe,fd : TreeBin; 


begin 

fe:=TreeBin.Create('d',nil,nil); 
fd:=TreeBin.Create('e',nil,nil); 
rac0:=TreeBin.Create('c',fs,fd); 
fd:=TreeBin.Create('f,nil,nil); 
racl:=TreeBin.Create('b',racO,fd); 
fe:=TreeBin.Create('h',nil,nil); 
fd:=TreeBin.Create('j',nil,nil); 
rac0:=TreeBin.Create('s',fe,fd); 
racine:=TreeBin.Create('a',rac1 ,racO); 
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writeln('lecture notation infixee:'); 
writeln(racine.infixe); 
writeln('lecture notation postfixee:"}; 
writeln(racine.postfixe); 
writeln('lecture notation prefixee:'}; 
writeln(racine.prefixe); 
writeln('lecture hierarchique:"); 
writeln(racine.Largeur); 

readin 

end. 


Ex-7 : Solution des l’insertion, de la suppression et de la recherche dans une 
arbre binaire de recherche 


Insertion — procédure Placer en Delphi avec les variables dynamiques : 


procédure Placer en Delphi avec la classe TreeBinRech héritant de TreeBin (ex-6): 
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procedure TreeBinRech.Placer ( elt : string); 
begin 

placerArbre ( self, elt ) 
end; 


end. 


Procédure Chercher en Delphi avec les variables dynamiques : 


procédure Chercher en Delphi avec la classe TreeBinRech : 


interface 


type 
TreeBinRech = class ( TreeBin ) 

private 
procedure placerArbre (var arbre:TreeBinRech ; elt : string); 
function ChercherArbre( arbre:TreeBinRech:; elt:string) : TreeBinRech; 

public 
procedure Placer ( elt : string); 
procedure Chercher ( elt : string); 


end; 
implementation 
> Méthodes privé -------------"-""" 7 
function TreeBinRech.ChercherArbre( arbre:TreeBinRech; elt:string) : TreeBinRech; 
begin 
if not Assigned(arbre) then 
begin 
result := nil; 
writeln('élément non trouvé") 
end 
else 
if elt = arbre.info then result := arbre /l'élément est dans ce noeud 
else 


if elt < arbre.info then 
result := ChercherArbre(TreeBinRech(arbre.filsG) , elt) /on cherche à gauche 
else 
result := ChercherArbre(TreeBinRech(arbre.filsD) , elt) /on cherche à droite 
end; 
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procédure Supprimer avec les variables dynamiques 


function PlusGrand ( arbre : parbre ) : parbre; 
begin 
if arbre” filsD = nil then 
result := arbre 
else 
result := PlusGrand( arbre” .filsD ) //on descend à droite 
end; 


procedure Supprimer (var arbre:parbre; elt:string ) ; 
var Node.,Loc:parbre; 
begin 
if arbre <> nil then 
if elt < arbre info then 
Supprimer (arbre .filsG, elt ) 
else 
if elt > arbre info then 
Supprimer (arbre”.filsD, elt ) 
else / elt = arbre .info 
if arbre” .filsG = nil then 


begin 
Loc:=arbre; 
arbre := arbre .filsD; 
dispose(Loc) 
end 
else 
if arbre .filsD = nil then 
begin 
Loc:=arbre; 
arbre := arbre” .filsG:; 
dispose(Loc) 
end 
else 
begin 
Node := PlusGrand ( arbre’.filsG }); 
Loc:=Node; 


arbre .info := Node‘ info; 
arbre .filsG :=Node” filsG:; 
dispose(Loc) 
end 
end; 


procédure Supprimer en Delphi avec la classe TreeBinRech : 
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function PlusGrand(arbre: TreeBinRech): TreeBinRech; 
public 


procedure Placer ( elt : string); 
procedure Chercher ( elt : string); 
procedure Supprimer ( elt : string); 


end; 
implementation 
{>>> Méthodes privé --------------" 
function TreeBinRech.PlusGrand(arbre: TreeBinRech): TreeBinRech; 
begin 


if not Assigned(Arbre.filsD) then 
result:=Arbre //c'est le pus grand élément 
else 


result:=PlusGrand (TreeBinRech(Arbre.filsD)) 
end; 


function TreeBinRech.SupprimerElt ( arbre:TreeBinRech; elt:string) : TreeBinRech; 
var Noeud:TreeBinRech; 


begin 
if not Assigned(Arbre) then 


writeln('element ',Elt,' non trouve dans l'arbre’) 
else 


if Elt < Arbre.Info then 

SupprimerElt (TreeBinRech(Arbre.filsG), Elt ) //on cherche à gauche 
else 
if Elt > Arbre.Info then 

SupprimerElt ( TreeBinRech(Arbre.filsD), Elt ) //on cherche à droite 


else //l'élément est dans ce noeud 

begin 

if Arbre.filsG = nil then //sous-arbre gauche vide 
begin 

Noeud :=Arbre; 

Arbre := TreeBinRech(Arbre.filsD); //remplacer arbre par son sous-arbre droit 
end 
else 

if Arbre.filsD = nil then //sous-arbre droit vide 
begin 

Noeud :=Arbre; 


Arbre :=TreeBinRech(Arbre.filsG); //remplacer arbre par son sous-arbre gauche 
end 


else //le noeud a deux descendants 
begin 


Noeud := PlusGrand( TreeBinRech(Arbre.filsG )); //Node = le max du fils gauche 
Arbre.Info:= Noeud.Info; //remplacer etiquette 
Arbre.filsG := Noeud.filsG; 

end ; 

Noeud.Free; //on supprime ce noeudil; 

writeln('element ',Elt,' supprime !") 

end 


{>>> Méthodes public 
procedure TreeBinRech.Supprimer ( elt : string); 
begin 


SupprimerElt ( self , elt ) 
end; 


end. 
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Programme Delphi complet 


Ci-dessous un programme complet en Delphi (avec variables dynamiques) à 
exécuter tel quel avec Delphi en mode console; il est conseillé au lecteur de ré- 
écrire ce programme en utilisant la classe TreeBinRech décrite ci-haut : 


program arbre_binaire_Rech; 
{remplissage d'un arbre binaire de recherche 
aussi dénommé arbre binaire ordonné horizontalement } 


{$APPTYPE CONSOLE) 


uses sysutils; 
type 
pointeur = noeud; 
noeud = record 
info:string; 
filsGauche:pointeur; 
filsDroit:pointeur 
end; 
var 
racine, tree:pointeur; 


procedure placer_arbre(var arbre:pointeur; elt:string); 
{remplissage récursif de l'arbre binaire de recherche} 
begin 

if arbre=nil then 

begin 

new(arbre); 

arbre” info:=elt; 

arbre” .filsGauche:=nil; 

arbre” filsDroit:=nil 

end 
else 


{ - tous les éléments "info" de tous les noeuds du sous-arbre de gauche 
sont inférieurs ou égaux à l'élément "info" du noeud en cours (arbre) 


- tous les éléments "info" de tous les noeuds du sous-arbre de droite 
sont supérieurs à l'élément “info” du noeud en cours (arbre) 

} 
if elt<=arbre’ info then placer_arbre(arbre".filsGauche.elt) 
else placer_arbre(arbre' filsDroit,elt); 

end; 


procedure infixe(branche:pointeur); 
{lecture symétrique de l'arbre binaire} 
begin 

if branche<> nil then 

begin 

infixe(branche”.filsGauche); 

write(branche.info;' ’); 

infixe(branche filsDroit); 

end 
end; 


function ChercherArbre( arbre:pointeur; elt:string):pointeur; 
begin 
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if arbre=nil then 
begin 
ChercherArbre:=nil; 
writeln('élément: '+elt+' non trouvé.') 
end 
else 
if elt = arbre info then ChercherArbre:=arbre 
else 
if elt < arbre info then ChercherArbre:=ChercherArbre(arbre.filsGauche,elt) 
else ChercherArbre:=ChercherArbre(arbre”.filsDroit,elt) 
end; 


function PlusGrand ( arbre : pointeur ) : pointeur; 
// renvoie le plus grand élément de l’arbre 
begin 
if arbre” filsDroit = nil then result := arbre 
else result := PlusGrand ( arbre filsDroit ) //on descend à droite 
end; 


procedure Supprimer (var arbre:pointeur,; elt:string ) ; 
var Node.,Loc:pointeur; 
begin 
if arbre <> nil then 
if elt < arbre info then 
Supprimer (arbre'.filsGauche, elt ) 
else 
if elt > arbre info then 
Supprimer (arbre.filsDroit, elt ) 
else / elt = arbre .info 
if arbre’ filsGauche = nil then 


begin 
Loc:=arbre; 
arbre := arbre” filsDroit; 
dispose(Loc) 
end 
else 
if arbre” filsDroit = nil then 
begin 
Loc:=arbre; 
arbre := arbre” .filsGauche; 
dispose(Loc) 
end 
else 
begin 
Node := PlusGrand ( arbre filsGauche }); 
Loc:=Node; 


arbre .info := Node‘ info; 
arbre” filsGauche :=Node” filsGauche; 
dispose(Loc) 
end 
end; 


begin 

racine:=nil; 

{soit la liste entrée :edfacbuw} 
placer_arbre(racine,'e'); 
placer_arbre(racine,'d'); 
placer_arbre(racine,'f); 
placer_arbre(racine;'a'); 
placer_arbre(racine,'c'); 
placer_arbre(racine,'b'); 
placer_arbre(racine,'u'); 
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placer_arbre(racine,'w'); 
{on peut aussi entrer 8 éléments au clavier 
for i:=1 to 8 do 
begin 
readin(entree ); 
placer_arbre(racine,entree); 
end; } 
supprimer(racine, ‘b'); 
writeln('parcours infixé (ou symétrique):'); 
infixe(racine); 
writeln; 
tree:=ChercherArbre(racine,'c'); 
if tree<> nil then writeln( ‘recherche de "c" : ok'); 
tree:=ChercherArbre(racine,'g'); 
if tree<>nil then writeln( ‘recherche de "g" : ok'); 
{ Notons que le parcours infixé produit une liste des 
éléments info, classée par ordre croissant 
} 


end. 
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Chapitre 5 : Programmation objet et 


événementielle 


5.1 Introduction à la programmation orientée objet POO) 


concepts fondamentaux de la POO 
initiation à la conception orientée objet (OOD,UML...) 


5.2 Programmez objet avec Delphi 


Description générale de Delphi 
Modules dans Delphi 

Delphi et la POO 

Les propriétés en Delphi 


5.3 Polymorphisme avec Delphi 


Polymorphisme d'objet 
Polymorphisme de méthodes 
Polymorphisme de classe abstraite 
Exercice traité sur le polymorphisme 


5.4.Programmation événementielle et visuelle 


programmation visuelle basée sur les pictogrammes 
programmation orientée événements 

normalisation du graphe événementiel 

tableau des actions événementielles 

interfaces liées à un graphe événementiel 

avantage et modèle de développement RAD visuel 
Notice sur les interfaces de communication 


5.5.les événements avec Delphi 
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Pointeur de méthode 

Affecter un pointeur de méthode 

Un événement est un pointeur de méthode 

Quel est le code engendré 

Exercice-récapitulatif 

Notice méthodologique pour créer un nouvel événement 
Code pratique : une pile lifo événementielle 
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e Exemple traité : Un éditeur de texte 


5.6.programmation défensive : les exceptions 


e Notions de défense et de protection 


Outils participant à la programmation défensive 

Rôle et mode d’action d’une exception 

Gestion de la protection du code 
Fonctionnement sans incident 
Fonctionnement avec incident 
Effets dus à la position du bloc except...end 
Fonctionnement sans incident 
Fonctionnement avec incident 
Interception d’une exception d’une classe donnée 
Ordre dans l’interception d’une exception 
Interception dans l’ordre de la hiérarchie 
Interception dans l’ordre inverse 


e Traitement d’un exemple de protections 
Le code de départ de l’unité 


Code de la version.1 (premier niveau de sécurité) 
Code de la version.2 (deuxième niveau de sécurité) 


+ Code pratique : une pile Lifo avec exception 
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5.1 Introduction à la programmation 
orientée objet 


Plan du chapitre: Ë 


Introduction 


1. Concepts fondamentaux de La P.0.0 


1.1 les objets 
1.2 les classes 
1.3 L'héritage 


2. Introduction à la conception orientée objet: 


2.1 La méthode de conception OOD 
2.2 Notation UML de classes et d'objets 
SCHEMA UML DE CLASSE 
VISIBILITE DES ATTRIBUTS ET DES METHODES 
SCHEMA UML D'UN OBJET 
SCHEMA UML DE L'HERITAGE 
SCHEMA UML DES ASSOCIATIONS 
UNE ASSOCIATION PARTICULIERE : L'AGREGATION 
NOTATION UML DES MESSAGES 


2.3 Attitudes et outils méthodologiques 


polymorphisme d'objet 
polymorphisme par héritage de méthode 


polymorphisme par héritage de classes abstraites 


polymorphisme par implémentation d'interfaces 
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Introduction 

Le lecteur qui connaît les fondements de ce chapitre peut l'ignorer et passer au chapitre 
suivant. Dans le cas contraire, la programmation visuelle étant intimement liée aux outils et 
aux concepts objets, ce chapitre est un minimum incontournable. 


La programmation classique ou procédurale telle que le débutant peut la connaître à travers 
des langages de programmation comme Pascal, C etc... traite les programmes comme un 
ensemble de données sur lesquelles agissent des procédures. Les procédures sont les éléments 
actifs et importants, les données devenant des éléments passifs qui traversent l'arborescence 
de programmation procédurale en tant que flot d’information. 


Cette manière de concevoir les programmes reste proche des machines de Von Neuman et 
consiste en dernier ressort à traiter indépendamment les données et les algorithmes (traduits 
par des procédures) sans tenir compte des relations qui les lient. 


En introduisant la notion de modularité dans la programmation structurée descendante, l’approche diffère 
légèrement de l’approche habituelle de la programmation algorithmique classique. Nous avons défini des 
machines abstraites qui ont une autonomie relative et qui possèdent leurs propres structures de données; la 
conception d’un programme relevait dès lors essentiellement de la description des interactions que ces machines 


ont entre elles. 


La programmation orientée objet relève d'une conception ascendante définie comme des 
"messages" échangés par des entité de base appelées objets. 


comparaison des deux topologies de programmation 


Les langages objets sont fondés sur la connaissance d’une seule catégorie d’entité 
informatique : l’objet. Dans un objet, traditionnellement ce sont les données qui deviennent 
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prépondérantes. On se pose d’abord la question : "de quoi parle-t-on ?" et non pas la question 
"que veut-on faire ?", comme en programmation algorithmique. C’est en ce sens que les 
machines abstraites de la programmation structurée modulaire peuvent être considérées 
comme des pré-objets. 


En fait la notion de TAD est utilisée dans cet ouvrage comme spécification d’un objet, en ce 


sens nous nous préoccupons essentiellement des services offerts par un objet indépendamment 
de sa structure interne. 


Programmation structurée : 


@D 


/ 


Données d'entrée Données de sortie 


1. Concepts fondamentaux de La P.0.0 


Nous écrirons P.0.O pour : programmation orientée objet. 


Voici trois concepts qui contribuent à la puissance de la P.0.0. 


e Concept de modélisation à travers la notion de classe et 
d’instanciation de ces classes. 


e Concept d’action à travers la notion d’envoi de messages et de 
méthodes à l’intérieur des objets. 


e Concept de construction par réutilisation et amélioration par 
l’utilisation de la notion d’héritage. 


1.1 les objets 


Un module représente un objet ou une classe d’objet de l’espace du 
problème et non une étape principale du processus total, comme en 
programmation descendante. 
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Recenser les objets du monde réel 


Lors de l’analyse du problème, on doit faire l’état de l’existant en recensant les objets du 
monde réel. On établit des classes d’objets et pour chaque objet on inventorie les 
connaissances que l’on a sur lui : 


e Les connaissances déclaratives, 
e les connaissances fonctionnelles, 


e l’objet réel et les connaissances que l’on a sur lui sont regroupés dans une même entité. 


On décrit alors les systèmes en classes d’objets plutôt qu’en terme de fonctions. 


Par Exemple : Une application de gestion bancaire est organisée sur les objets comptes, 
écritures, états. 


Les objets rassemblent une partie de la connaissance totale portant sur le problème. Cette 
connaissance est répartie sur tous les objets sous forme déclarative ou procédurale. 


Les objets sont décrits selon le modèle des structures abstraites de données (TAD) : ils 
constituent des boîtes noires dissimulant leur implantation avec une interface publique pour 
les autres objets. Les interactions s’établissant à travers cette interface. 


Vocabulaire objet 


Encapsulation 
c’est le fait de réunir à l'intérieur d'une même 
entité (objet) le code (méthodes) + données 
(champs). 


Il est donc possible de masquer les 
informations d'un objet aux autres objets. 


Deux niveaux d’encapsulation sont définis : 


Privé 
les champs et les méthodes masqués sont 
dans la partie privée de l’objet. 


Public 
les champs et les méthodes visibles sont 
dans la partie interface de l’objet. 


Les notions de privé et de public comme dans un objet n'ont trait qu'à la communication entre 
deux objets, à l'intérieur d'un objet elles n'ont pas cours. 
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accèdent aux membres public de Objet À 


accèdent aux membres 


public| de Objet B 


Vu 


[métodes 


Objet A 


Figure sur la visibilité entre deux objets 
Les méthodes de public ou privé de l'objet À accèdent et peuvent utiliser les méthodes et les champs public de B. 
Les méthodes de public ou privé de l'objet B accèdent et peuvent utiliser les méthodes et les champs public de A. 


1.2 les classes 


Postulons une analogie entre les objets matériels de la vie courante et les objets informatiques. 
Un objet de tous les jours est souvent obtenu à partir d’un moule industriel servant de modèle 
pour en fabriquer des milliers. Il en est de même pour les objets informatiques. 


Il 


Une classe’est une sorte de moule ou de matrice à partir duquel sont 
engendrés les objets réels qui s’appellent des instances de la classe 
considérée. 


IE Une classe contient 


Des attributs (ou champs, ou variables d’instances). 
Les attributs de la classe décrivent la structure de ses instances (les objets). 


Des méthodes (ou opérations de la classe). 
Les méthodes décrivent les opérations qui sont applicables aux instances de la classe. 


IL 


les attributs et les méthodes d'une classe sont des membres de la classe. 


Les bases de l'informatique - programmation - (6: 05.09.2004 ) page 384 


IL 


Un objet de classe A est appelé aussi une instance de classe A, l'opération 
de construction d'un objet s'appelle alors l'instanciation. 


Remarque 


En POO, programmer revient donc à décrire des classes d’objets, à caractériser leur 
structure et leur comportement, puis à instancier ces classes pour créer des objets réels. Un 


objet réel est matérialisé dans l’ordinateur par une zone de mémoire que les données et son 
code occupent. 


Un exemple : des étudiants 

Supposons que chaque étudiant soit caractérisé par sa note en mathématiques (NoteMath) et 
sa note en informatique (Notelnfo). Un étudiant doit pouvoir effectuer éventuellement des 
opérations de calcul de ses moyennes dans ces deux matières (MoyMath, MoyInfo)et 
connaître sa moyenne générale calculée à partir de ces deux notes (MoyTotale). 


classe Etudiant 
Pr à La classe Etudiant a été créée. Elle 
- NoteMath N . 
- Notelnfo ne possède que les attributs 
Méthodes : NoteMath et Notelnfo. Les 
Nm méthodes de cette classe sont par 
- Moylnfo 
- MoyTotale exemple MoyMath, Moylnfo, 
MoyTotale. 


Nous avons créé deux objets 
étudiants de la classe Etudiant (deux 
instances : Julien et Claudie). 


1.3 L’héritage 


Dans un LOO (Langage Orienté Objet), il existe une particularité dans la façon d’organiser 
ses classes : l’héritage de propriétés. L’objectif est de construire de nouvelles classes en 
réutilisant des attributs et des méthodes de classes déjà existantes. 


Il Héritage 


C’est un mécanisme très puissant qui permet de décrire des structures génériques 
en transmettant depuis l’intérieur d’une même classe toutes les propriétés 
communes à toutes les " sous-classes " de cette classe. Par construction toutes les 
sous-classes d’une même classe possèdent toutes les attributs et les méthodes de 
leur classe parent. 
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( [| Propriétés de l'héritage 


Les attributs et les méthodes peuvent être modifiés au niveau de la 
sous-classe qui hérite. 

Il peut y avoir des attributs et/ou des méthodes supplémentaires 
dans une sous-classe. 

Une classe A qui hérite d’une classe B dispose implicitement de 
tous les attributs et de toutes les méthodes définis dans la classe B. 
Les attributs et les méthodes définis dans A sont prioritaires par 
rapport aux attributs et aux méthodes de même nom définis dans 


Exemple : 
La classe ” Etudiant premier cycle" héritant de la classe Etudiant précédemment définie. 


Aftributs : 


- NoteMath . 
- Notelnfo Tout se passe comme si 


Méthodes : toute la classe Etudiant 
- MoyMath était recopiée dans la 
- Moylnfo : 
- MoyTotale sous-classe Etudiant 
premier cycle (même si 
l'implémentation n’est 
pas faite ainsi). 


Aftributs : 
La nouvelle classe 
- Mention dispose d’un attribut 
EE supplémentaire (Mention) 
- Moylnfo et d’une méthode 
Lo supplémentaire 
- Eraherilantion (EvaluerMention). 
tudiant ler cycle hérite de Etudiant 
<Etuai de Etudiant > 
type Tmention=(Passable, Abien, Bien, Tbien); 
Etudiant = class 
NoteMath : real; Ceci est une implantation 
Notelnfo : real; possible de la signature de la 
procedure MoyMath(UneNote:real); classe en : 
procedure MoyInfo(UneNote:real); 
function MoyTotale : real ; ie iles 1 à 
end; \ A] 


EtudiantlerCycle = class(Etudiant) 
Mention: Tmention ; 
function EvaluerMention: Tmention; 
end; 
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class Etudiant { 
public float NoteMath; 
public float Notelnfo; 
public void MoyMath(float UneNote){ 
Ceci est une implantation 


V0) 
public void MoyInfo(float UneNote){ possible de la signature de la 


Po classe en : 
public float MoyTotale(){ 


0) À 
}7 fin classe Etudiant MY 
public class EtudiantlerCycle extends Etudiant{ si 
public String Mention; 
public String Evaluer Mention( ){ 
me) 
public static void Main(String| ] args){ 


Dr 


Exemples d’héritage dans d’autres domaines : 


Héritage dans les structures mathématiques : 


espace vectoriel enclidien 


Héritage de figures de base en géométrie affine : 
le point 


KES: 


la droite Lshl le cercle 
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Héritage d'objets graphiques dans un système multi-fenêtré fictif : 


Fiche 


bouton poussoir rectangle arrondi ss 
/ 3 
Alerte incident mL 
7 [0x 


Fenêtre de message 


2. Introduction à la conception orientée objet 


L’attitude est ici résolument sous-tendue par un double souci : fournir des outils 
méthodologiques rationalisant l’effort de production du logiciel, sans que leur lourdeur rebute 
l’étudiant non professionnel et masque ainsi l’intérêt de leur utilisation. L’expérience 
d’enseignement de l’auteur avec des débutants a montré que si les étudiants sont appelés à 
développer sans outils méthodiques, ils pratiquent ce qu’appelle J.Arsac " la grande bidouille 
", Mais dans le cas contraire, l’apprentissage détaillé de trop de méthodes strictes bien 
qu'efficaces (OOD, OMT, HOOD, UML....)finit par ennuyer l’étudiant ou du moins par 
endormir son sens de l’intérêt. Dans ce dernier cas l’on retrouve " la grande bidouille " 
comme étape finale. Le chemin est donc étroit et il appartient à chaque enseignant de doser en 
fonction de l’auditoire l’utile et le superflu. 


Nous utilisons ici un de ces dosages pour montrer à l’étudiant comment écrire des 
programmes avec des objets sans être un grand spécialiste. Une aide irremplaçable à cet égard 
nous sera fournie par l’environnement de développement visuel Delphi. 


2.1 La méthode de conception OOD simplifiée 


La méthode O.O.D (object oriented design) de G.Booch propose 5 étapes dans l’établissement 
d’une conception orientée objet. Ces étapes n’ont pas obligatoirement à être enchaînées dans 
l’ordre dans lequel nous les citons dans le paragraphe suivant. C’est cette souplesse qui nous a 
fait choisir la démarche de G.Booch, car cette méthode est fondamentalement incrémentale et 
n’impose pas un cadre trop précis et trop rigide dans son application. Cette démarche se 
révèle être utile pour un débutant et lui permettra de fabriquer en particulier des prototypes 
avec efficacité sans trop surcharger sa mémoire. 
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| Identifier les objets et leurs attributs 


G 


G 


| Identifier les opération 


| Etablir la visibilité 


On cherchera à identifier les objets du monde réel que l’on voudra réaliser. 


Conseil : 77 faut identifier les propriétés caractéristiques de l’objet (par l'expérience, 
l’intuition,.…).On pourra s'aider d’une description textuelle (en langage naturel) du 
problème. La lecture de cette prose aidera à déduire les bons candidats pour les noms 
à utiliser dans cette description ainsi que les propriétés des adjectifs et des autres 
qualifiants. 


On cherchera ensuite à identifier les actions que l’objet subit de la part de son 
environnement et qu’il provoque sur son environnement. 

Conseil : Les verbes utilisés dans la description informelle (textuelle) fournissent de 
bons indices pour l'identification des opérations. Si nécessaire, c'est à cette étape que 
l’on pourra définir les conditions d'ordonnancement temporel des opérations (les 
événements ayant lieu). 


L’objet étant maintenant identifié par ses caractéristiques et ses opérations, on définira 
ses relations avec les autres objets. 

Conseil : On établira quels objets le voient et quels objets sont vus par lui (les 
spécialistes disent alors qu'on insère l’objet dans la topologie du projet). Il faudra 
prendre bien soin de définir ce qui est visible ou non, quitte à y revenir plus tard si un 


choix s'est révélé ne pas être judicieux. 


Etablir l’interface 


Dès que la visibilité est acquise, on définit l’interface précise de l’objet avec le monde 
extérieur. 

Conseil : Cette interface définit exactement quelles fonctionnalités sont accessibles 
et sous quelles formes. Cette étape doit pouvoir être décrite sous notation formelle; les 
TAD sont l'outil que nous utiliserons à cette étape de conception. 


@ 


Implémenter les objets 


La dernière étape consiste à implanter les objets en écrivant le code. 


Conseil : Cette étape peut donner lieu à la création de nouvelles classes 
correspondant par exemple à des nécessités d'implantation. Le code en général 
correspond aux spécifications concrètes effectuées avec les TAD, ou à la traduction 
des algorithmes développés par la méthode structurée. Lors de cette étape, on 
identifiera éventuellement de nouveaux objets de plus bas niveau d'abstraction qui ne 
pouvaient pas être analysés en première lecture(ceci provoquant l’itération de la 
méthode à ces niveaux plus bas). 


Nous n’opposons pas cette méthode de conception à la méthode structurée modulaire. Nous la 
considérons plutôt comme complémentaire (en appliquant à des débutants une idée contenue 


dans la méthode HOOD). La méthode structurée modulaire sert à élaborer des algorithmes 
classiques comme des actions sur des données. La COO permet de définir le monde de 
l’environnement de façon modulaire. Nous réutiliserons les algorithmes construits dans des 
objets afin de montrer la complémentarité des deux visions. 
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2.2 Notation UML de classes et d'objets 


La notion d'un langage de modélisation standard pour tout ce qui concerne les 
développements objets a vu le jour en 1997 il s’agit d'UML (Unified Modeling Language). 


UML n'est pas une méthode, mais une notation graphique et un métamodèle. 


Nous allons fournir ici les principaux schémas d'UML permettant de décrire des démarches de 
conception objets simples. Le document de spécification de la version 1.4 d'UML par l'OMG 
(l'Object Management Group) représente 1400 pages de définitions sémantiques et de 
notations; il n'est donc pas question ici de développer l'ensemble de la notation UML (que 
d'ailleurs l'auteur ne possède pas lui-même). 


Nous nous attacherons à détailler les diagrammes de base qui pourront être utilisés par la suite 
dans le reste du document. 


Nous nous limiterons aux notations relatives aux classes, aux objets, et à l'héritage. 


SCHEMA UML DE CLASSE 


Notations UML possibles d'une classe : 
Reprenons l'exemple précédent avec la classe étudiant : 


classe Etudiant 


Aftributs : 


- NoteMath 
- Notelnfo 


Méthodes : 
- MoyMath 
- Moylnfo 
- MoyTotale 


trois notations UML possibles 


Simplifiée Avec attributs Attributs et méthodes 


Les bases de l'informatique - programmation - (6: 05.09.2004 ) page 390 


Deux autres notations UML plus complète pour la même classe 


Attributs 
et méthodes typées 


Attributs typés 
et méthodes typées 


Une classe abstraite est notée : 


VISIBILITE DES ATTRIBUTS ET DES METHODES 


Notation préfixée UML pour trois niveaux de visibilité (+, - , # , $) : 


Pour les attributs : 
privé 
- Attribut2 : DeType2 


public 
+ Attributl : DeTypel 


protégé 
# Attribut3 : DeType3 


Pour les méthodes : 


public privé protégé 
+ Methodel ( ): - Methode2 ( ) : # Methode3 ( ) : 
DeTypel DeType2 DeType3 


Méthode de classe 
$ Methoded ( ) : DeType4 


Explicitation dans la classe Etudiant : 

e Dans la classe étudiant les deux attributs 
NoteMath et Notelnfo sont de type réel et sont 
privés (préfixe -). 


e Les trois méthodes de calcul de moyennes sont 
publiques (préfixe +). 


SCHEMA UML D'UN OBJET 


Notations UML pour deux objets étudiants instanciés à partir de la classe Etudiant : 


Schéma UML simplifié : 
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Schéma UML avec valeur des attributs : 


Ces notations correspondent à l'exemple ci-dessous : 


classe Etudiant 


Aftributs : 
- NoteMath 
- Notelnfo 
Méthodes : 
- MoyMath 
- Moylnfo 


- MoyTotale 


SCHEMA UML DE L'HERITAGE 
Notation UML de l'héritage : 


——; 
Soit pour l'exemple de hiérarchie de classes fictives ci-dessous : 
le point 
L à 


la droite le rectangle le cercle 


La notation UML suivante : 
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SCHEMA UML DES ASSOCIATIONS 


Une association binaire (ou plus généralement n-aire), représente un lien conceptuel entre 
deux classes. Par exemple un étudiant travaille dans un groupe (association entre la classe 
Etudiant et la classe Groupe). 


Une association peut être dénotée par une expression appelée nom d'association (nommé 
Travailler ci-dessous) : 


Travailler 


Chaque association possède donc deux extrémités appelées aussi rôles, il est possible de 
nommer les extrémités (nom de rôles, ci-dessous un étudiant est un acteur travaillant dans un 
groupe qui est un ensemble) : 


Travailler 


ET ÉERLT ersenË ie 


Une association peut posséder une multiplicité qui représente sous forme d'un intervalle de 
nombres entiers a..b, le nombre d'objets de la classe d'arrivée qui peut être mis en association 
avec un objet de la classe de départ. Supposons qu'un étudiant doive s'inscrire à au moins 2 
groupes de travail et au plus à 5 groupes, nous aurons le schéma UML suivant : 

Travailler 


La présence d'une étoile dans la multiplicité indiquant un nombre quelquonque (par exemple 
un étudiant peut s'inscrire à au moins 2 groupes sans limite supérieure): 
Travailler 


Par exemple pour dénoter en UML le fait qu'un nombre quelconque d'étudiants doit travailler 
dans au moins deux groupes nous écrirons: 
Travailler 


UNE ASSOCIATION PARTICULIERE : L'AGREGATION 


Une agrégation est une association correspondant à une relation qui lorsqu'elle est lue dans un 
sens signifie "est une partie de" et lorsqu'elle est lue dans l'autre sens elle signifie "est 
composé de”. UML disposant de plusieurs raffinements possibles nous utiliserons l'agrégation 
comme composition par valeur en ce sens que la construction du tout implique la construction 
automatique de toutes les parties et que la destruction du tout entraîne en cascade la 
destruction de chacune de ses parties. 
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Notation UML de l'agrégation 


[contenant 


Exemple : 
un groupe contient au moins 3 étudiants et chaque 3. à 2. * 
étudiant doit s'inscrire à au moins 2 groupes : ds " 


NOTATION UML DES MESSAGES 


Un message envoyé par une classe à une autre classe est représenté par une flèche vers la 
classe à qui s'adresse le message, le nommage de la flèche indique le message à exécuter : 


on 


céie Ceres 


2.3 Attitudes et outils méthodologiques 


Afin d’utiliser une méthodologie pratique et rationnelle, nous énumérons au lecteur les outils 
que nous utilisons selon les besoins, dans le processus d’écriture d’un logiciel. 


En tout premier la notion de module : 
C’est la décomposition d’un logiciel en sous-ensembles que l’on peut changer 
comme des pièces d’un patchwork. 


La notion de cycle de vie du logiciel : 
Développer un logiciel ce n’est pas seulement écrire du Pascal, de l’Ada etc... 


Utiliser des TAD : 
Un type abstrait de données correspond très exactement à l’interface d’un 
module. Il renforce la méthodologie modulaire. 


La programmation structurée par machines abstraites : 
On se sert d’une méthode de conception descendante et modulaire des 
algorithmes utiles pour certaines actions dans le logiciel. 


La conception et la programmation orientées objet : 
On utilise une version simplifiée de la COO de G.Booch pour définir les classes 
et leurs relations en attendant une simplification pédagogique d’UML. 
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5.2 Programmez objet avec Delphi 


Plan du chapitre: É 


1. Description générale de Delphi 


1.1 L'application Delphi 
1.2 Les fiches et les contrôles 


2. Les modules dans Delphi 


2.1 Partie ” public " d'une UNIT : "Interface "” 
2.2 Partie "privée " d'une UNIT : "Implementation " 
2.3 Initialisation et finalisation d’une UNIT 


3. Delphi et la POO 


3.1 Les éléments de base 
3.2 Fonctionnalités 
3.3 Les classes 
3.3.1 Méta-classe 
3.3.2 Classe amie 
3.4 Le modèle objet 
3.5 Les objets 
3.6 Encapsulation 
3.7 Héritage 
3.8 Polymorphisme - surcharge (bases) 
3.9 En résumé 
3.10 Activité événementielle 


4. Les propriétés en Delphi 
4.1 Définition 
4.2 Accès par read/write aux données d'une propriété 


4.3 Propriétés tableaux 
4.4 Surcharge de propriété 
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Introduction 


Delphi" de Borland est un RAD visuel fondé sur une extension orientée objet, visuelle et événementielle de 
Pascal, il fonctionne depuis 2004 sous le système Windows toutes versions, sous Linux et sous l'architecture 
Net. 


Pascal est le langage utilisé pour l’initiation dans de très nombreux établissements d’enseignement européens. Le 
RAD Delphi est un prolongement intéressant de ce langage. Nous allons explorer certains aspects les plus 
importants et significatifs du pascal objet de Delphi. Le langage pascal de base étant supposé connu par le 
lecteur, nous souhaitons utiliser ce RAD visuel en réutilisant du savoir faire pascal tout en y rajoutant les 
possibilités objet offertes par Delphi. 


1. Description minimale de Delphi … 


La version utilisée pour écrire les exemples est la dernière disponible sur Windows, mais tous les exemples sont 
écrits avec les fonctionnalités générales de Delphi ce qui permet de les compiler sur n'importe quelle version de 
Delphi depuis la version 5. 


1.1 L'application Delphi 
Une application console (non fenêtrée) Delphi se compose d'un projet "xxx.dpr" et d'au 


minimum un fichier d'Unit "xxx.pas" pour le code source. Lors de la compilation d'un projet 
Delphi engendre un code "xxx.exe" directement exécutable. 


compilateur Delphi 


App.exe 


Unit U1App; 


interface 


tmplementation 


Tous les projets Delphi s'exécutent sous 
windows sans aucune DIl supplémentaire 
autre que celles que vous programmerez 
vous-même : 


Application Delphi 
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Une application fenêtrée Delphi se compose d'un projet "xxx.dpr” et d'au minimum deux 
fichiers de fiche "xxx.dfm" pour la description et "xxx.pas" et d'Unit pour le code source. 


program App; 
begin 


end. compilateur Delphi 


Unit Unit1 


tmplementation 


Description inteme 
de la fenêtre et de 
tout ce qu'elle contient 


Ci-contre un projet minimal Delphi 
comportant une fiche principale. 


Gestionnaire de projet Xx| 
: Fes 
[Proiectt exe -| al X _ 
Nouveau Fetrer Activer 


| Chemin 


ProjectGroupl C:\Program Files Borland Delphi#\Bin À | 
1 Project1.exe C:\Program Files Borland Delphi7\Bin 
= 5 Unit C:\Program Files Borland Delphi7\Bin 
= Uniti.pas C:\Program Files Borland Delphi7\Bin 
CI Formi C:\Program Files Borland \Delphi7\Bin 


Le projet se dénomme 
7 Projecti.dpr 


Fichiers 


63 
eo 


La fiche principale Forml1 et le 
code source de l'application sont 
rangés dans la Unit Unitl.pas. 


La description de la fiche Formi 
et de ce qu'elle contient se trouve 
dans un fichier nommé Unit1.dfm. 


À quoi sert une fiche ? 


Les systèmes d'exploitation actuels sont dit fenêtrés au sens où ils fournissent un mode de 
communication avec l'homme fondé sur la notion de fenêtre, Windows en est un exemple. 


La première action à entreprendre lors du développement d'une application Interface Homme 
Machine (IHM) avec un langage de programmation, est la création de l'interface de 
l'application et ensuite les interactions avec l'utilisateur. Le langage de programmation doit 
donc permettre de construire au moins une fenêtre 


La fiche Form1 du projet Projetl minimal 


En Delphi pour créer une IHM, il faut utiliser 
des fiches (ou fenêtres) et des contrôles. 


Ces fiches sont des objets au sens 
informatique de la POO, mais elles possèdent 
une représentation visuelle. 
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1.2 Les objets de fiches et les objets contrôles 


Chaque fiche est en fait un objet instancié à partir de la classe interne des TForm de Delphi. 
Cette classe possède des propriétés(attributs) qui décrivent l'apparence de la fiche, des 
méthodes qui décrivent le comportement de la fiche et enfin des gestionnaires d'événements 
(pointeurs de méthodes) qui permettent de programmer la réaction de la fiche aux événements 


auxquels elles est sensible. 


Sur une fiche vous déposez des contrôles qui sont eux aussi d'autres classes d'objets visuels, 


mais qui sont contenus dans la fiche. 


Ci-dessous la palette des composants de Delphi déposables sur une fiche : 


iter Composant Base de données Outils äide 


Standard | Suoolément | Win32 | Sustème | Intemet | AccèsBD | ContréleBD | QReooït | Dialoc 


I ER ART 


la fiche Forml état initial 


Fr ce ASIE || À 


la fiche Form1 après dépôt de 3 contrôles 


Que se passe-t-il lors du dépôt des contrôles ? 


code dans la fiche Form1i avant dépôt 


code dans la fiche Form1 après dépôt 


unit Unitl; 
interface 
uses 
Windows, Messages, SysUtils, Classes, Graphics, 
Controls, Forms, Dialogs; 


unit Unitl; 
interface 
uses 
Windows, Messages, SysUtils, Classes, Graphics, 
Controls, Forms, Dialogs; 


type type 
TForm1 = class(TForm) TForm1 = class(TForm 
private Memol: TMemo; 
{ Déclarations privées } nn © Button1: TButton; 
public Edit1: TEdit; 
{ Déclarations publiques } private 
end; { Déclarations privées } 
var public 
Forml: TForml; { Déclarations publiques } 
implementation end; 
{$R * DFM/} var 
end. Forml: TForml; 
implementation 
{8R *. DEFM} 


end. 
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Il existe dans Delphi une notion de classe conteneur, la fiche (classe TForm) en est le 
principal représentant. Delphi est un générateur automatique de programme source Pascal 
objet et dès l'ouverture du projet, il définit une classe conteneur TForm1 qui hérite de la 
classe TForm et qui au départ ne contient rien : 


TForm1 = class(TForm) 
private 

{ Déclarations privées } 
public 

{ Déclarations publiques } 
end; 


Lorsque nous déposons les 3 contrôles Buttonl, Editl, Memol, ce sont des champs objets qui 
sont automatiquement ajoutés par Delphi dans le code source de la classe : 


TForm1 = class(TForm) 
Memol:'T Memo; 
Buttonl: TButton; 

Edit1: TEdit; 

private 
{ Déclarations privées } 

public 
{ Déclarations publiques } 

end; 


Donc l'environnement Delphi, n'est pas seulement un langage de programmation, mais aussi 
un générateur de programme à partir de dépôt de composants visuels, c'est la fonction d'un 
système RAD (Rapid Application Developpement). 


Pour une utilisation de Delphi, nous renvoyons le lecteur à la documentation du constructeur, 
nous attachons par la suite à faire ressortir et à utiliser les éléments de Delphi qui concernent 
la programmation modulaire et la programmation objet 


2. Les modules dans Delphi 


Nous avons déjà vu au chapitre sur les TAD (types abstraits de données) que le Pascal de 
Delphi permettait de traduire sous une première forme la notion de type abstrait : la Unit. Une 
Unit Delphi permet aussi de représenter la notion de module. 


a Une Unit est une unité compilable séparément de tout programme et stockable en 
bibliothèque. 


a Une Unit comporte une partie " public " et une partie " privé ". Elle implante donc l’idée 
de module et étend la notion de bloc (procédure ou fonction) en Pascal. Elle peut contenir 


des descriptions de code simple ou de classe. 


Chaque unité Unit est stockée dans un fichier xxx.pas distinct et compilée séparément ; les 
unités compilées (les fichiers xxx.DCU) sont liées pour créer une application. 


Les bases de l'informatique - programmation - /;4:. 05.09.2004 ) age 399 
pds 


Les unités en Delphi permettent aussi : 


De diviser de grands programmes en modules qui peuvent être modifiés 
séparément. 


De créer des bibliothèques qui peuvent être partagées par plusieurs programmes. 
De distribuer des bibliothèques à d'autres développeurs sans leur donner le code 


Source. 


Pour générer un code éxécutable à partir d'un projet comportant plusieurs unités, le 
compilateur Delphi doit disposer, pour chaque unité, soit du fichier source xxx.PAS, soit du 
fichier XXX.DCU résultant d'une compilation antérieure. Cette dernière possibilité permet de 
fournir des unités compilées à d'autres personnes sans leur fournir le code source. 


Syntaxe d'une unité : 


Utilisation d'une unité : 


Unit Truc; 
<partie public > 
<partie privée > 
<initialisation > 
end. 


chent de À BE C 


=) (===) 


Instructions 


program Principal 


Le programme principal se nomme le 
projet, il est rangé dans le fichier 
"xxx.dpr". 


Ici le programme principal utilise 3 Unit : 
UnitA , UnitB et UnitC 


Squelette du code associé au schéma précédent : 


unit UnitA,; unit UnitB; 
interface interface 
implementation implementation 
end. end. 


unit UnitC; Program project]; 
interface Uses UnitA, UnitB, UnitC; 
implementation Begin 

end. end. 


Fichiers disque (sources et compilés) associés au code précédent : 


project1.dpr 
UnitA.pas 
UnitA.pas 
UnitA.pas 


project1.exe 
UnitA.dcu 
UnitA.dcu 
UnitA.dcu 
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Pour ajouter au projet une nouvelle Unité : 


On peut utiliser l'environnement d'ajout de Delphi : 


Nouveaux éléments fl | x| 


Intraweb | Services Web | äffaires | Documents Web | 
Nouveau | Activex | Project | Fiches | Dialogues | Projets | 


En EE Cal à 
Objet Thread Paquet Service 
E Unit 
Texte S 


qui crée par exemple un fichier Unit2.pas contenant le 
squelette de la Unit? et rajoute automatiquement cette 
unit au programme principal. 


On peut écrire soi-même un fichier 
texte contenant la unit : 


unit Unit?; 
interface 


implementation 


end. 


Et rajouter soi-même au texte source 
du programme principal la unit : 


Program project]; 
Uses Unit? ; 


Begin 


end. 


2.1 Partie " public " d’une UNIT : " Interface " 


Cette partie d'une unit, correspond exactement à la partie publique du module représenté par 
la UNIT. Cette partie décrit les en-têtes des procédures et des fonctions publiques et 
utilisables par les clients. Les clients peuvent être soit d’autres procédures Delphi, des 


programmes Delphi ou d’autres Unit. 


La clause Uses XXX dans un programme Delphi, permet d’indiquer la référence à la Unit 
XXX et autorise l’accès aux procédures et fonctions publiques de l’interface dans tout le 


programme. 


Syntaxe de l'interface : 


Déclaration d'utilisation 


(const }) Déclaration de constantes 


> mem 
ED rent va | — 


ou Déclaration d'en-tête de proc. et de fonct 


# « : a 
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2.2 Partie " privée " d’une UNIT : " Implementation " 


Correspond à la partie privée du module représenté par la UNIT. Cette partie intimement liée 
à l’interface, contient le code interne du module. 


Elle contient deux sortes d’éléments : les déclarations complètes des procédures et des 
fonctions privées ainsi que les structures de données privées. Elle contient aussi les 
déclarations complètes des fonctions et procédures publiques dont les en-têtes sont présentes 


dans l’interface. 


Syntaxe de l'implementation : 


Déclaration d'utilisation 


Dé 


2.3 Initialisation et finalisation d’une UNIT 


Syntaxe de l'initialisation : 


lu éclaration complète des proc. et fonc. 


La partie initialisation d'une unité en Delphi 
comporte deux sous parties Initialization et 
Finalization la seconde étant optionnelle: 


Initialization 


Finalization 


Il est possible d'initialiser des variables et d'exécuter 
des instructions au lancement de l'UNIT. Elles 
correspondent à des instructions classiques Pascal sur 
des données publiques ou privées de la Unit 
Gnitialisation de tableaux, mise à zéro de divers 
indicateurs, chargement de fichiers etc….). 


Une fois que le code d'initialisation d'une unité a 
commencé à s'exécuter, la section de finalisation 
correspondante si elle existe, s'exécute obligatoirement 
à l'arrêt de l'application (libération de mémoire, de 
fichiers, récupération d'incidents etc…..). 
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Exemple de programme console modulaire 


Unit Delphi Uratio du TAD rationnel 


Programme principal Delphi utilisant Uratio 


unit Uratio; 
{unité de rationnels spécification classique ZxZ/R} 
interface 
type 
rationnel = 
record 
num: integer; 
denom: integer 
end; 
procedure reduire (var r: rationnel); 
procedure addratio (a, b: rationnel; var s: 
rationnel); 
procedure divratio (a, b: rationnel; var s: 
rationnel); 
procedure mulratio (a, b: rationnel; var s: 
rationnel); 
procedure affectQ(var s: rationnel; b: rationnel); 
procedure opposeQ(x:rationnel;var s:rationnel); 


implementation 
procedure reduire .…. 
procedure addratio ..… 
Procedure divratio .…. 
procedure mulratio .…. 
procedure affectQ..… 
procedure opposeQ..… 

end. 


program essaiRatio; 
{programme de test de la unit Uratio } 


{SAPPTYPE CONSOLE) 


uses SysUtils , Uratio; 
var 
rl, r2, 13, rd, r5: rationnel; 


begin 
rl.num :=18; 
r1.denom := 15; 
r2.num := 7; 
r2.denom := 12; 
addratio(r1, r2, r3); 
writeln(18/15 + 7/12 =", r3.num, ', r3.denom); 
mulratio(r1, r2, r4); 
writeln(‘18/15 * 7/12 =", r4.num, /', r4.denom); 
divratio(r1, r2, r5); 
writeln(18/15 / 7/12 =", r5.num, ', r5.denom); 
rl.num := 72; 
rl.denom := 60; 
affectQ(r3;,r1l); 
reduire(r1); 
writeln(72/60 =", r1.num, /', rl.denom); 
writeln('avant réduction ', r3.num, ', r3.denom); 
end. 


Exemple fiche : le programme lançant une fiche vierge 


unit Unit]; 
interface 
uses 


Windows, Messages, SysUtils, Classes, Graphics, 


Controls, Forms, Dialogs; 
type 
TForm1 = class(TForm) 
private 
{ Déclarations privées } 
public 
{ Déclarations publiques } 
end; 
var 
Forml: TForml; 
implementation 
{8R *.DFM/} 
end. 


program Project]; 


uses Forms, 
Unitl in 'Unit1.pas' /Forml}; 


{$8R *res} 


begin 


Application.Initialize; 
—_Application.CreateForm(TForml, Forml); 


Application.Run; 
end. 
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3. Delphi et la POO … 


Notre objectif est d'apprendre comment Delphi implante les notions contenues dans la P.O.0. 
et d'utiliser ces outils dans nos programmes. 


Delphi est un langage orienté objet, dans ce domaine il possède des fonctionnalités 
équivalentes à C++ et java, avec sa version .Net, il possède les fonctionnalités équivalentes à 
celles de C# de microsoft. 


3.1 Les éléments de base 


Sachons que dans Delphi tout est objet, des contrôles de la VCL (Visual Component Library 
commportant plus de 600 classes dont environ 75 sont visuelles, les autres étant non visuelles 
ou concernant des objets de service). 


Delphi possède de par son fondement sur Object Pascal tous les types prédéfinis du pascal et 
les constructeurs de types (supposés connus du lecteur), plus des types prédéfinis étendus 
spécifique à Delphi. Ce qui signifie qu'il est tout à fait possible de réutiliser en Delphi sans 
effort de conversion ni d'adaptation tout programme pascal ISO ou UCSD déjà écrit. 


Les types integer, real et string sont des types génériques c'est à dire qu'ils s'adaptent à tous 
les types d'entiers, de réels et de chaînes de Delphi. 


Par exemple les entiers de base de Delphi suivants : 


Shortint -128..127 8 bits signé 
Smallint -32768..32767 16 bits signé 
Longint -2147483648..2147483647 32 bits signé 
Byte 0..255 8 bits non signé 
Word 0..65535 16 bits non signé 
Longword 0..4294967295 32 bits non signé 


peuvent être affectés à une variable x : integer car c'est un type générique. 
ù: TER \ 4 var x : integer ; 
ù dy a : Longint; b : Longword; c: Byte; d: Word; e: Smallint; f: Shortint; 
Ÿ X:=a;x=b;:x:=c;:x=d;x:=-e;x:=f; 


Var x : variant; 


Delphi dispose d'un type générique variant begin 
polymorphe sur les types de données prédéfinis x:='abcdefgh'"; / x est une string 
de Delphi. x:=123.45; /xestun real y» di: sa | 


Un variant peut s'adapter ou se changer en 
pratiquement n'importe quel type de Delphi 


x:=true; // x est un booléen 
x:=5876 //Xx est un integer 
etc. 
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Les passages des paramètres s'effectuent principalement selon les deux modes classiques du 
pascal : le passage par valeur (pas de mot clé), le passage par référence (mot clé Var). Par 
défaut si rien n'est spécifié le passage est par valeur. 


Améliorations de ces passages de paramètres : 


a Delphi autorise un mode de passage dit des paramètres constants permettant une 
sécurité accrue au passage par valeur (mot clé Const). 


a Delphi dispose d'une autre amélioration concernant le passage par référence : le 
passage par sortie (mot clé out), qui indique simplement à la procédure où 
placer la valeur en sortie sans spécifier de valeur en entrée, qui si elle existe 


n'est pas utilisée. 


Exemple d'utilisation des variant dans un tri récursif sur un tableau de variant : 


(les paramètres sont tous passés par 
référence ) 

const n=100; 

type Tableau =array[0..n] of variant; 


procedure quicksort (var G,D:integer; var 
tabl: Tableau); 
var i, j : Integer; 
Xx,W: variant; 
begin 
1 := G; 
j:=D; 
X := tabl[(i + j) div 2]; 
repeat 
While tabl[i] < x do i:=1i+l; 
While tabl{[j] x do j:=;j- 1; 
Ifi <= j Then 
begin 
w := tabl[i]; 
tabl[i] := tabl{;j]; 
tabl{[j] := w; 
i:=it+l; 
j:=j-1 
End; 
Unitil i j; 
If G < j Then quicksort(G, j, tabl); 
If D i Then quicksort(i, D, tabl) 
End; 


La procédure générique quicksort permet de trier un tableau 
de variant. 


Grâce à son pouvoir polymorphe un variant peut devenir au 
choix soit: 


Entier long 
Entier court 
Un réel simple ou double 
Une chaîne de caractères. 


Ce qui revient à dire que la procédure générique quicksort 
permet de trier un tableau de : 


Entiers longs 

Entiers courts 

Réels simples ou doubles 
Chaînes de caractères. 


Dans le cas où le type variant n'existe pas, il faut au moins 3 
procédures différentes quicksortXXX qui diffèrent par le type 
de leur paramètres, mais avec le même code : 


procedure quicksortEntier (sur un tableau d'integer) 
procedure quicksortReel (sur un tableau de real) 
procedure quicksortString (sur un tableau de string) 


Remarque : 


D'autres modes de passage des paramètres sont possibles en Delphi, nous n'en parlons pas ici. 


3.2 Fonctionnalités du pascal objet de Delphi 


celle du langage pascal. 


Delphi est un langage à structure de blocs complet. Sa gestion est identique à 
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a La visibilité est identique à celle qui est inhérente à tout langage de bloc Algol-like : 
variables globales, variables locales, masquage des identificateurs. 


a Les entités gérées dynamiquement le sont selon un modèle classique de tas et de pile 
d'exécution. 


a Les entités gérées d'une façon permanente (données globales)sont persistantes durant toute 
la durée de l'exécution du programme, elles existent dans le segment de données alloué à 
l'application. 


Dans un langage à structure de bloc comme 
Delphi, la mémoire centrale contient deux 
entités fondamentales : le tas et de pile 
d'exécution. 


Q Le tas est une structure de données déjà 
étudiée (arbre parfait partiellement 
ordonné géré dans un tableau). 


Q La pile d'exécution est une pile LIFO. 


Pile d'exécution 


La pile d'exécution de Delphi a une taille paramétrable par le programmeur (maximum=2 147 
483 647 octets), elle permet toutes les récursivités utiles. 


Ci-dessous l'illustration du fonctionnement du tas et de la pile dans le cas de l'appel d'une 
procédure PO qui appelle une procédure P1 qui appelle elle-même une procédure P2: 


Q Le tas contient les 


structures procedure PO; 
dynamiques et les begin 
codes. PI 

end: 

Q La pile 

d'exécution procedure P1; 
contient les begin 
contextes des P2 
procédures end: 
appelées. Pile d'exécution Tas 


Delphi est un langage acceptant la récursisvité 


La récursivité d'une procédure ou d'une fonction est la capacité que cette fonction/procédure a 
de s'appeler elle-même. 


Soit par exemple la somme des n premiers entiers définie par la suite récurrente S, : 


San=Sni+n 
So = 0 
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Ci-dessous une fonction de calcul récursif de la somme des n premiers entiers : 


Function S(n : integer) : integer; 


begin 
If n = 0 Then 
result:= 0 
Else 
result := n + S(n - 1) 
End; 


Delphi affiche un message d'erreur de pile pleine sur l'appel S(129937), donc une profondeur de 
129936 appels recursifs a été atteinte sur ce programme avec le paramètrage standard fournit de 1 
Mo comme taille maximum de la pile. 


3.3 Les classes 
La notion de classe est essentielle dans Delphi en mode application visuelle. Les classes sont 
déclarées comme des types et contiennent des champs, des méthodes et des propriétés. Il 


existe une classe d'objet primitive appelée TObject , qui est l'ancêtre de toutes les autres 
classes de Delphi. 


Voici un extrait de la hiérarchie des classes visuelles VCL (Visual Component Library) dans Delphi : 


TWinControl TGraphicControl 
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Comment déclarer une classe en Delphi 


Un type classe doit être déclaré et nommé avant de pouvoir être instancié. Une classe est 
considéré par Delphi comme un nouveau type et doit donc être déclaré là où en Pascal l'on 
construit les nouveaux types : au paragraphe des déclarations à l'alinéa de déclaration des 


types. 


Les types classes peuvent être déclarés pratiquement partout où le mot clé type est autorisé à 
l'exception suivante : ils ne doivent pas être déclarés à l'intérieur d'une procédure ou d'une 


fonction. 


Les deux déclarations ci-dessous sont équivalentes : 


Type 

ma_classe = class 
{déclarations de champs } 
{spécification méthodes } 
{spécification propriétés } 

end; 


Type 

ma_classe = class(Tobject) 
{déclarations de champs } 
{spécification méthodes } 
{spécification propriétés } 

end; 


Méta-classe 


Delphi autorise la construction de méta-classes. Une Méta-classe est un générateur de 
classe. En Delphi les méta-classes sont utilisées afin de pouvoir passer des paramètres dont 
la valeur est une classe dans des procédures ou des fonction. 


Les méta-classes en Delphi sont représentées par une référence de classe 


Une méta-classe 


Une variable de méta-classe 


Type 
TMetaWinClasse = class of TWinControl; 


var x : TMetaWinClasse; 


La variable x de classe TMetaWinClasse, peut contenir une référence sur n'importe quelle 
classe de TWinControl : x :-Tmemo; x :=TEdit; x :=TButton; 


Exemple d'utilisation de la notion de méta- 
classe pour tester le type réel du paramètre 
effectif lors de l'appel de TwinEssai. 


procedure TwinEssai (UnWinControl : TmetaWinClasse ); 
begin 
if UnWinControl =TEdit then … 
else if UnWinControl=TMemo then … 
.….CtC 
end; 


A comparer avec l'utilisation de l'opérateur is 
sur le même problème 


procedure TwinEssai (UnWinControl : TWinControl); 
begin 
if UnWinControl is TEdit then … 
else if UnWinContro is TMemo then … 
.….@tC 
end; 
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En passant à un constructeur un paramètre de méta-classe on peut alors construire des objets 
dont la classe ne sera connue que lors de l'exécution. 


Où déclarer une classe en Delphi ? ne À à 
Aitnies 


e Les classes sont déclarées dans des unit. 


e Toutes les classes déclarées dans la même unif sont amies, c'est à dire que 


chacune d'elle a accès aux membres privés de toutes les autres classes 
declarées dans cette unit. 


e Si l'on souhaite avoir n classes non amies, il faut les déclarer chacune dans 
une unit séparée. 


3.4 Le modèle objet de Delphi 


Le modèle physique choisi pour Delphi est celui de la référence : 
e Chaque objet est caractérisé par un couple ( référence, bloc de données). 
e Si la variable de référence est locale à une procédure.elle est alors située physiquement 
dans la pile d’exécution avec les autres variables locales. 
e Si la variable de référence est globale, elle est située physiquement dans le segment de 
données (permanent durant toutes la durée de l'exécution). Dans les deux cas, le bloc 
de données (l'objet effectif) est alloué dans le tas. 


Ci-dessous une carte mémoire fictive d'un processus (une application Delphi classique à un 
seul thread): 


la mémoire centrale 


= = 


Tas 
segment de données Pile d'exécution 


La simplicité du modèle (semblable aux variables dynamiques ou pointeurs du pascal) permet 
de dire qu’en Delphi les pointeurs sont sous-jacents mais entièrement encapsulés. 


Ce modèle impose une contrainte d’écriture en découplant la déclaration d’objet et sa création. 
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3.5 Les objets en Delphi 
Un objet Delphi suit très exactement les définitions générales d'objets. 


Un objet Delphi est une instance d'une classe. 

Un objet Delphi contient des membres qui sont : 

a des variables pascal (champs ou attributs) 
a des procédures et des fonctions (méthodes) 
a des propriétés. 


Nous verrons plus loin que ces propriétés peuvent être de différentes catégories, en première 
lecture nous dirons que ce sont des champs possédant des spécificateurs d'accès. 


A dass les membres d'un objet Delphi 


private 


X : integer ; Champs 
y : real ; (variables, et références d'objets ) 
Obj : clA ; 


procedure P1 (var a: integer); 
function F1 (a integer): char; 
function F2 : inte 


Méthodes 


bli : . 
PUDAE (procédures, fonctions) 


a , b: integer ; 
D: clA ; 
procedure P2 ; 
function F3 : boolean; 
property pr:real read y write y ; 
property ch:char read F1 ; 


end; 


Propriétés 
(champs ou pointeur de méthode) 
accessibles par les spécificateurs 
read ou write. 


Les classes et les objets sont déclarés dans les unités (dans la partie déclaration de l'interface 
ou de l'implementation de l'unité), le code des méthodes est défini uniquement dans la partie 
implementation de l'unité. 


Constructeur / Destructeurs d'objets 
En Delphi, chaque variable d'instance (objet instancié) doit obligatoirement être initialisée et 
peut être détruite lorsqu'elle n'est plus utile. Tout objet doit être d'abord construit avant son 


utilisation. Ceci se fait à l'aide d'une méthode spécifique déclarée par le mot clef constructor. 


La destruction d'une instance s'effectue par une méthode aux propriétés identiques à un 
constructor et elle se dénomme un destructor. 
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Q Par défaut les classes disposent (provenant de la classe mère TObject) d'une méthode 
permettant la construction des objets de la classe : cette méthode de type constructor est 
dénommée Create. Ce genre de méthode assure la création de l'objet physique en mémoire et sa 
liaison avec l'identificateur déclaré dans le code (l'identificateur contient après l'action du Create, 


l'adresse physique de l'objet). 


Q Il en est de même pour la désallocation des objets de vos classes (leur destruction), celles-ci 
disposent d'un destructeur d'objets dénommé Destroy. Cette méthode de type destructor rend 
au processus, tout l'espace mémoire utilisé par l'objet physique, mais attention elle ne dé- 
référence pas l'identificateur, si nécessaire cette opération est à la charge du programmeur (grâce 


à l'instruction : identificateur:=nil). 


Unit Uclasses contenant une classe clA 


Programme principal utilisant Uclasses 


Interface type 
clA = class 
private 
X : integer ; 
y : real ; 
Obj : clA ; 
procedure P1 (var a: integer); 
function F1 (a integer): char; 
function F2 : integer; 
public 
a , b:integer; 
D: clA ; 
procedure P2 : 
function F3 : integer; 
property propl:integer read x write x ; 
property prop? : char read F1 ; 
end; 


Unit Uclasses ; 
À ) l \£ à N #\ l 
DSC SU 


à 


implementation 


procedure clA.P1 (var a: integer); … 
function clA.F1 (a integer): char; … 
function clA.F2 : integer; … 


procedure clA.P2 ; … 
function clA.F3 : boolean; 


end. 


Program principal ; 


Uses Uclasses ; 


procedure utilise (ObjA : clA); 
begin 


if CObjA D > 5 then 


= - ObjA.a +1; 


else 


= ObjAa -1 


end; 


Déclaration 
d'une référence 
de type clA. 


Instanciation 


var refA : clA ; 
d'un objet de 

begin type clA. 

refA : = clA.Create ; 

utilise ( refA ) ; 

refA.destroy; 

end. 


Destruction de 


l'objet de type 
clA. 


var refA : clA ; 


Lors de la déclaration une variable refA vide est créée : 


refA : = clA.Create ; 


Lors de l'instanciation, un objet de type clA est créé 


dans le tas, puis sa référence (son adresse 98752) est 


mise dans la variable refA : 
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refA.destroy; 


Lors de la destruction , l'objet du tas est détruit, la 
mémoire qu'il occupait est rendu au tas et la variable 
refA ne référence plus un objet. 


Le paramètre implicite self 


Q Etant donnée une classe quelconque, chaque méthode de cette classe possède systématiquement 
dans son implémentation un paramètre implicite dénommé Self, que vous pouvez utiliser. 


a Cet identificateur Self désigne l'objet (lorsqu'il sera instancié)dans lequel la méthode est 


appelée. 
Exemple: 
Unit Uclasses,; Program principal ; 
Interface 
type Uses Uclasses ; 
clA = class var refA : clA ; 
private n : integer; 
Obj : clA ; 
public begin 
X, y : integer ; refA : = clA.Create ; ..… 


a, b:integer ; 
function F1 : integer; 
end; 


implementation 


function clA.F1 : integer; 
begin 

self.a := self.x +2; 

result := self.a; 
end; 


end. 


Fonction F1 


refA.F1 


Lors de l'instanciation (refA : = clA.Create ) la valeur 98752 de la référence, est passée 
automatiquement dans la variable implicite self de chaque méthode de l'objet refA, ce qui a 
pour résultat que dans la méthode F1, les expressions formelles self.a et self.x prennent une 
valeur effective et désignent les valeurs effectives des champs a et x de l'objet n° 98752 du 
tas. 
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3.6 Encapsulation 


Rappelons que pratiquement, en POO l'encapsulation permet de masquer les informations et 
les opérations d'un objet aux autres objets. Contrairement à certains autres langages orientés 
objet, dans Delphi par défaut, s’il n’y a pas de descripteur d’encapsulation, tout est visible 
(donc public). 


Delphi possède au moins quatre niveaux d'encapsulation des informations dans un objet qui 
sont matérialisés par des descripteurs : 


published : Les informations sont accessibles par toutes les instances de toutes les 
classes (les clients) + accessibles à l'inspecteur d'objet de Delphi. 


public : Les informations sont accessibles par toutes les instances de toutes les 
classes (les clients). 


protected : Les informations ne sont accessibles qu'à toutes les instances de la 
classe elle-même et à toutes celles qui en héritent (ses descendants). 


private : Les informations ne sont accessibles qu'à toutes les instances de la classe 
elle-même. 


3.7 Héritage 


Il s'agit en Delphi de l'héritage simple (graphe arborescent) dans lequel une famille dérive 
d'une seule classe de base. Voici une partie du graphe d'héritage simple de certaines classes de 


Delphi : 
Tobject 
Tpersistent 


Taraphic 


TgraphicControl 


Syntaxe de la déclaration d'héritage : 


Type classe_fille = class(classe_ancetre) 
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Type Type 

classe_ancetre = class classe_fille = class(classe_ancetre) 
{ champs } { champs } 
{ méthodes } { méthodes } 

end; end; 


Nous indiquons donc ainsi en Delphi que la classe_fille hérite de la classe_ancetre. 


Nous avons vu que les deux déclarations ci-dessous étaient équivalentes : 


Type Type 

ma_classe = class ma_classe = class(TObject) 
{déclarations de champs } {déclarations de champs } 
{spécification méthodes } {spécification méthodes } 
{spécification propriétés } {spécification propriétés } 

end; end; 


L'écriture de gauche indique en fait que toutes les classes déclarées sans qualificatif d'héritage 
héritent automatiquement de la classe TObject. La VCL de Delphi est entièrement construite 
par héritage (une hiérarchie objet complète) à partir de TObject. 


Ci-dessous la déclaration de la classe TObject dans Delphi : 


TObject = class 
constructor Create; 
procedure Free; 
class function InitInstance(Instance: Pointer): TObject; 
procedure CleanuplInstance; 
function ClassType: TClass; 
class function ClassName: ShortString; 
class function ClassNamels(const Name: string): Boolean; 
class function ClassParent: TClass; 
class function ClassInfo: Pointer; 
class function InstanceSize: Longint; 
class function InheritsFrom(AClass: TClass): Boolean; 
class function MethodAddress(const Name: ShortString): Pointer; 
class function MethodName(Address: Pointer): ShortString; 
function Field Address(const Name: ShortString): Pointer; 
function GetInterface(const IID: TGUID; out Obj): Boolean; 
class function GetInterfaceEntry(const ID: TGUID): PlnterfaceEntry; 
class function GetInterfaceTable: PInterfaceT able; 
function SafeCallException(ExceptObject: TObject; 
ExceptAddr: Pointer): HResult; virtual; 
procedure AfterConstruction; virtual; 
procedure BeforeDestruction; virtual; 
procedure Dispatch(var Message); virtual; 
procedure DefaultHandler(var Message); virtual; 
class function Newlnstance: TObject; virtual; 
procedure Freelnstance; virtual; 
destructor Destroy; virtual; 
end; 
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La classe Tobject utilise ici la notion de méthode de classe : 


a Une méthode de classe est une méthode (autre qu'un constructeur) qui agit sur des 
classes et non sur des objets. 


a La définition d'une méthode de classe doit commencer par le mot réservé class. 
Par exemple dans Tobject : 
TObject = class 
class function ClassName: ShortString; 
class function ClassParent: TClass; … 


a La déclaration de définition d'une méthode de classe doit également commencer par 
class : 
class function TObject.ClassName: ShortString; 
begin 
//..le paramètre self est ici la classe Tobject 
end; 
See 


Outre la classe TObject, Delphi fournit le type de méta-classe 
(référence de classe) générale T'Class : 


TClass = class of TObject; 


3.8 surcharge de méthode 


Signature d'une méthode -- définition 


C'est son nom , le nombre et le type de ses paramètres 


On dit qu'une méthode est surchargée dans sa classe si l'on peut trouver dans la classe 
plusieurs signatures différentes de la même méthode. 


En Delphi, les en-têtes des méthodes surchargées de la même classe, doivent être suivies du 
qualificateur overload afin d'indiquer au compilateur qu'il s'agit d'une autre signature de la 
même méthode. 


Type 
Dans la classe classeA nous avons déclaré 3 surcharges | classeA = class 
de la même méthode Prix, qui pourrait évaluer un prix public 
en fonction du montant rentré selon trois types de function Prix(x:yen) : real;overload; 
données exprimées en yen, en euro ou en dollar. function Prix(x:euro): real;overload; 


function Prix(x:dollar) : real;overload; 
end; 
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Comment appeler une surcharge de méthode ? 


Soit le programme de droite qui utilise la classeA définie à gauche avec 3 surcharges de la méthode Prix 


Unit Uclasses ; 
interface 


Type 

yen = class …… end; 

euro = class .. end; 

dollar = class ..… end; 

classeA = class 

public 

function Prix(x:yen) : real;overload; 
function Prix(x:euro): real;overload; 
function Prix(x:dollar) : real;overload; 

end; 


implementation 


function classeA.Prix(x:yen) : real; // signature n°1 
begin 


end; 


function classeA.Prix(x:euro): real; 
begin 


end; 


function classeA.Prix(x:dollar) : real; 
begin 


end; 


Program principal ; 
Uses Uclasses ; 


var refA : classeA; 
a : yen ; b : euro ; c : dollar ; 


Procedure Calcull (ObjA : classeA; valeur : yen ); 
begin 

ObjA.Prix ( valeur) 
end; 


Procedure Calcul? (ObjA : classeA; valeur : euro); 
begin 

ObjA.Prix ( valeur ) 
end; 


Procedure Calcul3 (ObjA : classeA; valeur : dollar); 
Var ObjA : classeA ; 


begin _ = 
ObjA.Prix ( valeur) Le compilateur connaît 
end; le type du second 
paramètre, lorsqu'il 
begin appelle : 


ObjA.Prix ( valeur ) 


refA:= classeA.Create ; 
a := yen.Create ; 

b := euro.Create ; 

c := dollar.Create ; 
Calcull (refA , a }; 
Calcul2 (refA ,b ); 
Calcul3 (refA ,c }; 
End. 


Il va alors chercher s'il 
existe une signature 
correspondant à ce type 
et va exécuter le code de 
la surcharge adéquate 


Q L'appel ObjA.Prix(valeur) dans Calcull( refA , a ) sur a de type yen provoque la recherche de la signature 
suivante Prix ( type yen), c'est la signature n°1 qui est trouvée et exécutée. 


Q L'appel ObjA.Prix(valeur) dans Calcul2( refA , b ) sur a de type euro provoque la recherche de la signature 
suivante Prix ( type euro) ), c'est la signature n° 2 qui est trouvée et exécutée. 


Q L'appel ObjA.Prix(valeur) dans Calcul3( refA , c ) sur a de type dollar provoque la recherche de la signature 


suivante Prix ( type dollar) ), c'est la signature n°3 qui est trouvée et exécutée. 


4. Les propriétés en Delphi 


Une propriété définie dans une classe permet d'accéder à certaines informations contenues dans les objets 
instanciés à partir de cette classe. Une propriété a la même syntaxe de définition et d'utilisation que celle d'un 
champ d'objet (elle possède un type de déclaration), mais en fait elle peut invoquer une ou deux méthodes 
internes pour fonctionner ou se référer directement à un champ. Les méthodes internes sont déclarées à l'intérieur 


d'un bloc de défintion de la propriété. 
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Nous nous limiterons aux propriétés non tableau, car cette notion est commune à d'autres 
langages (C# en particulier) 


4.1. Définition 
Comme un champ, une propriété définit un attribut d'un objet. 
Mais un champ n'est qu'un emplacement de stockage dont le contenu peut être consulté et 


modifié, tandis qu'une propriété peut associer des actions spécifiques à la lecture et lors de la 
modification de ses données : une propriété peut être utilisée comme un attribut. 


Les propriétés proposent un moyen de contrôler l'accès aux attributs d'un objet et autorisent 
ou non le calcul sur les attributs. 


Syntaxe : 
property nomPropriété[indices] : type [index constanteEntière] spécificateurs ; 


Remarque : 
il faut au minimum un descripteur (ou spécificateur) d'accès pour une propriété : 


a soit lecture seule (spécificateur read), 
a soit écriture seule (spécificateur write), 
a soit lecture et écriture read .…. write . 


Attention : 
Une propriété ne peut pas être transmise comme paramètre référence dans une 
procédure ou une méthode ! 


Exemple de syntaxe d'écriture de propriétés : 


classeA = class 
public 
property propl : integer read y write z ; // lecture et écriture 
property prop? : char read F1 ; / lecture seule 
property prop3 : string write t ; / écriture seule 
end; 


4.2. Accès par read/write aux données d'une propriété 


Après les spécificateurs read et write, il obligatoire de préciser le moyen d'accès à la 
propriété : Ce moyen peut être un attribut, ou une méthode. 


Accès à une propriété par un attribut 


property propriétél: type read Fpropriétél ; 
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La property propriété fait référence à l'attribut Fpropriétél et en permet l'accès en lecture 


seule. 


Pour avoir un intérêt, la property propriétél doit être déclarée en public, tandis que l'attribut 


Fpropriétél est déclaré en private. 


Lorsque la propriété est définie, il faut que le champ auquel elle se réfère ait déjà été défini 


dans la classe, ou dans une classe ancêtre. 


D'une façon générale on peut comparer la lecture et l'écriture dans un champ et dans une 


propriété comme ci-dessous : 


Soit la classe classeA : 
classeA = class 
public 
champ : integer ; 
end; 


écriture dans le champ lecture dans le champ 


champ := 14 | := champ 
mo LE 


Soit une autre version de la classe classeA : 
classeA = class 


private 
Fchamp : integer ; 
public 
property propr1i : integer read Fchamp write Fchamp ; 
end; 
écriture dans la propriété lecture de la propriété 
propri := 14 X := propri 
( 14 } FU 
| [ | di | 14 | | | 
Fchamp X 


Fchamp 


On peut donc assimiler la propriété propri à une clef ouvrant une porte sur un champ 
privé de l'objet. et autorisant la lecture et/ou l'écriture dans ce champ. 
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Exemple d'utilisation : 


type 

MaClasse = class 

private 
Fpropil : Integer: 
ffdéclaration privée d'un attribut 

public 
Property propi : Integer Read Fpropri Write Fpropi ; 
ff déclaration publique d'une propriété permettant l'accés 
ff à l'attribut Fpropi en lecture et écriture 

end; 


var 
MonObjet: MaClasse; 


implementation 


Procedure Quelconque (); 
begin 


MonObjet := MaClasse.Create: 
MonObjet.propi := -12; ff accés en écriture 
i := MonCbjet.propl: ff accés en lecture 


Accès à une propriété par une méthode 


Cas du spécificateur d'accès read 


type 
MaClasse = class 
private 
Function LirePropi : TColor; 
{déclaration privée d'une méthode d'accés 


public 
Property Propi : TColor Read LirePropi ; 
ff déclaration publique d'une propriété permettant l'accés 
ff à la méthode LirePropi en lecture Seule 
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La méthode d'accès en lecture LirePropl1 doit : 


a être une fonction, 
a être sans paramètres, 
a renvoyer un résultat du même type que celui de la propriété. 


Cas du spécificateur d'accès write 


B Uniti.pas -[OI x! 


Unit | =: +. 


type «| 


MaClasse = class 
private 
Procedure EcrirePropi { x : TColor j : 
ffdéclaration privée d'une méthode d'accés 
public 
Property Propi : TColor Write EcrirePropi ; 
ff déclaration publique d'une propriété permettant l'accés 
/{ à la méthode LirePropi en écriturd Seule 


end; + 
ET foi > 


| 16: 42 [Modifié Insertion 7 


La méthode d'accès en écriture EcririreProp1 doit : 


a être une procédure, 

a n'avoir qu'un seul paramètre formel passé par constante ou par 
valeur (pas par référence), 

a ce paramètre doit être du même type que celui de la propriété. 


4.4 Surcharge de propriétés 


Surcharge permettant d'augmenter la visibilité 
Lorsqu'une propriété est déclarée dans une classe, on peut la surcharger dans 
les classes dérivées en augmentant son niveau de visibilité. 


MaClasse = class MaFille = class (MaClasse) 
private private 
Fchamp : in ; Fchamp : integer ; 
protecte public 
property proprl : integer read Fchamp property proprl : integer read Fchamp 
write Fchamp ; write Fchamp ; 
end; end; 
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Surcharge permettant de redéfinir un spécificateur existant 
On ne peut pas supprimer de spécificateur. 


Par contre on peut modifier le/les spécificateur(s) existant(s) ou ajouter le 
spécificateur manquant. 


MaClasse = class 
private 
Fchamp : integer ; 


ille = class (MaClasse) 

pri 
Fchamp 
function lirePropr2 : integer 

public 
property propr1 : integer read Fchamp write Fchamp ; 
property propr? : integer read lirePropr? ; 


public 
property propr1 : integer read Fchamp ; 


property propr? : integer read Fchamp ; 
end; 


end; 


Redéfinition et masquage d'une propriété 


Une propriété redéfinie dans une classe remplace l'ancienne avec ses nouveaux 
attributs, son nouveau type. 


MaClasse = class 
private 
Fchamp : integer ; 
protected 
property proprl : integer read Fchamp 
write Fchamp ; 


end; 


Dés qu'une redéclaration de propriété contient une redéfinition de type, elle 
masque automatiquement la propriété parent héritée et la remplace 


entièrement. Elle doit donc être redéfinie avec au moins un spécificateur 
d'accès. 
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5.3 Polymorphisme avec Delphi 


Plan de ce chapitre: Ë 


Polymorphisme d'objet 


Q 


D CO DOUDOU 


Introduction 

Instanciation et utilisation dans le même type 
Instanciation et utilisation dans un type différent 
Polymorphisme implicite 

Instanciation dans un type descendant 
Polymorphisme explicite par transtypage 
Utilisation pratique du polymorphisme d'objet 


instanciation dans un type ascendant 


Polymorphisme de méthode 


Q 


Û D DODDO 


Introduction 

Vocabulaire et concepts 

Surcharge dans la même classe 

Surcharge dans une classe dérivée 

Surcharge dynamique dans une classe dérivée 
Répartition des méthodes en Delphi 
Réutilisation de méthodes avec inherited 


Polymorphisme de classe abstraite 


Q 
Q 


Introduction 
Vocabulaire et concepts 


Exercice traité sur le polymorphisme 
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1. Polymorphisme d'objet 


Conversion de références d'objet entre classe et classe dérivée 


Il existe un concept essentiel en POO désignant la capacité d'une hiérarchie de classes à 
fournir différentes implémentations de méthodes portant le même nom et par corollaire la 
capacité qu'ont des objets enfants de modifier les comportements hérités de leur parents. 
Ce concept d'adaptation à différentes "situations" se dénomme le polymorphisme qui 
peut être implémenté de différentes manières. 


Polymorphisme d'objet - définition générale 
C'est une interchangeabilité entre variables d'objets de classes de la même hiérarchie sous certaines conditions, 
que dénommons le polymorphisme d'objet. 


Soit une classe Mere et une Fille héritant de la classe Mere : 


Les objets peuvent avoir des comportements polymorphes (s'adapter et se comporter 
différemment selon leur utilisation) licites et des comportements polymorphes dangereux 
selon les langages. 


Dans un langage dont le modèle objet est la référence (un objet est un couple : référence, 
bloc mémoire) comme C++, C#, Delphi ou Java, il y a découplage entre les actions 
statiques du compilateur et les actions dynamiques du système d'exécution selon le 
langage utilisé le compilateur protège ou non statiquement des actions dynamiques sur les 
objets une fois créés. C'est la déclaration et l'utilisation des variables de références qui 
autorise ou non les actions licites grâce à la compilation. 


Supposons que nous ayons déclaré deux variables de référence, l'une de classe Mere, 
l'autre de classe Fille, une question qui se pose est la suivante : au cours du programme 
quel genre d'affectation et d'instanciation est-on autorisé à effectuer sur chacune de ces 
variables. L'héritage permet une variabilité entre variables d'objets de classes de la même 
hiérarchie, c'est cette variabilité que dénommons le polymorphisme d'objet. 


Nous allons dès lors envisager toutes les situations possibles et les évaluer, les exemples 
appuyant le texte sont présentés en Delphi. 
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instanciation dans le type initial et utilisation dans le même type 


Il s'agit ici d'une utilisation la plus classique qui soit, dans laquelle une variable est utilisée 


dans son type de définition initial. 


L'espace des objets 


a. 


L'espace des références 0 


var 
x,u : Mere; 
y, V : Fille ; 
x : = Mere.Create ; / instanciation dans le type initial 
U := X; / affectation de références du même type 
y : = Fille.Create ; / instanciation dans le type initial 
V := y, // affectation de références du même type 


instanciation dans le type initial et utilisation différente 


Il s'agit ici de l'utilisation licite commune à tous les langages cités plus haut, nous 
illustrons le discours en explicitant deux champs de la classe Mere (chm:chaine et 
a:entier) et un champ supplémentaire (chf:chaine) dans la classe Fille. 1l existe 3 
possibilités différentes, la figure ci-dessous indique les affectations possibles : 
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L'espace des objets 


sens jes attrhuts 


et fes méthodes 
de ja classe Mere 
Les classes sant accessriles 


errenr, il faht 
franstyper #:Fille ok 
en Here | 


L'espace des rélérences 


var hs bas de à 
x, ObjM : Mere; \ a] 
y, ObFF : Fille; \ 


ObjM := Mere.Create; / instanciation dans le type initial 

ObjF := Fille.Create; / instanciation dans le type initial 

X := ObjM; / affectation de références du même type 

x := ObjF; / affectation de références du type descendant implicite 

ÿ := ObjF; / affectation de références du même type 

y := Fille(ObjM); / affectation de références du type ascendant explicite mais dangereux si ObjM 
est uniquement Mere 


Les trois possibilités sont : 


Q L'instanciation et l'utilisation de références dans le même type 


Q L'affectation de références : polymorphisme implicite 


Q L'affectation de références : polymorphisme par transtypage d'objet 


La dernière de ces possibilités pose un problème d'exécution lorsqu'elle est mal employée ! 


Polymorphisme d'objet implicite 


Dans l'exemple précédent le compilateur accepte le transtypage ‘y :=Fille(ObjM)' car il 
autorise un polymorphisme d'objet de classe ascendante vers une classe descendante (c'est 
à dire que ObjM peut se référer implicitement à tout objet de classe Mere ou de toute 
classe descendante de la classe Mere). 
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L'espace des objets 


chm = mater 


L'espace des références 


Nous pouvons en effet dire que x peut se référer implicitement à tout objet de classe Mere ou 
de toute classe héritant de la classe Mere : 


É 
2e 


x: Mere 


fig - 1 
fig - 2 


Dans la figure fig-1 ci-dessus, une hiérarchie de classes decendant toutes de la classe 
Mere. 


Dans la figure fig-2 ci-dessus le schéma montre une référence de type Mere qui peut 
‘pointer vers n'importe quel objet de classe descendante (polymorphisme d'objet). 


Exemple pratique tiré du schéma précédent 


Le polymorphisme d'objet est typiquement fait pour représenter des situations pratiques 
figurées ci-dessous : (Mere=vehicule, Fille1=terrestre, Fille2=voiture, Fille3=marin, 
Fille4=voilier, Fille5=croiseur) 
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sÉ = 


Une hiérarchie de classes de véhicules descendant toutes de la classe mère Vehicule. 


a D. : 
Déclaration de cette hiérarchie en bolpul 


Marin = class (Vehicule) 
Vehicule = class | 


On peut énoncer le fait qu'un véhicule peut être de plusieurs sortes : soit un croiseur, soit 
une voiture, soit un véhicule terrestre etc. 


En traduisant cette phrase en termes informatiques : 


S1 l'on déclare une référence de type véhicule (var x : vehicule) elle pourra pointer vers 
n'importe quel objet d'une des classe filles de la classe vehicule. 


Polymorphisme implicite = création d'objet de classe descendante référencé par une 
variable parent 


Quand peut-on écrire x := y sur des objets ? 


D'une façon générale vous pourrez toujours écrire des affectations entre deux références d'objets : 
var 


x : Classel me 

y : Classe2 LUN U hi] 
Ve 

si et seulement si Classe2 est une classe descendante de Classel. 
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instanciation dans un type descendant 


Polymorphisme par création d'objet de classe descendante 


Dans ce paragraphe nous signalons qu'il est tout à fait possible, du fait du transtypage 
implicite, de créer un objet de classe descendante référencé par une variable de classe 
parent. 


Ajoutons 2 classes à la hiérarchie 
des véhicules : 


La nouvelle hiérarchie est la suivante : = = 


Ensuite nous déclarons 3 références de type x:vehicule, y:voiture et z:break , puis nous 
créons 3 objets de classe voiture, berline et break, il est possible de créer directement un 
objet de classe descendante à partir d'une référence de classe mère : 


e on crée une voiture référencée par la variable x de classe vehicule, 
e on crée une berline référencée par la variable y de classe voiture, 


e enfin on crée un break référencé par la variable z de classe break. 


Réécrivons ces phrases afin de comprendre à quel genre de situation pratique cette 
opération correspond : 
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on crée un véhicule du type voiture 
on crée une voiture de type berline 


enfin on crée un break de type break 


var ne, 

x : vehicule; À 18 | ) nl 

y : voiture; 

Z : break; 

x := voiture.Create; / objet de classe enfant voiture référencé par x de classe parent vehicule 


y := berline.Create; / objet de classe enfant berline référencé par x de classe parent voiture 
:= break.Create; / instanciation dans le type initial 


Polymorphisme d'objet explicite par transtypage 


Reprenons le code précédent en extrayant la partie qui nous intéresse : 


= ObjM : Mere; bolpui 
y : Fille; 


ObjM := Mere.Create; / instanciation dans le type initial 
X := ObjM; / affectation de références du même type 
y := Fille(ObjM); / affectation de références du type ascendant explicite licite 


Nous avons signalé que l'affectation y := Fille(ObjM) pouvait être dangereuse si ObjM 
pointe vers un objet purement de type Mere. Voyons ce qu'il en est. 


Nous avons vu plus haut qu'une référence de type parent peut ‘pointer vers n'importe quel 
objet de classe descendante. Si l'on sait qu'une reférence x de classe parent, pointe vers un 
objet de classe enfant, on peut en toute sureté procéder à une affectation de cette reférence 
à une autre reférence y définie comme reférence classe enfant ( opération y := x ). 


La situation informatique est la suivante : 
a on déclare une variable x de type Mere, 


a on déclare une variable y de type Fille héritant de Mere, 


a oninstancie la variable x dans le type descendant Fille (polymorphisme implicite). 


Il est alors possible de faire "pointer" la variable y (de type Fille) vers l'objet (de type 
Fille) auquel se réfère x en effectuant une affectation de références. 


Toutefois le compilateur refusera l'écriture y := x, il suffit de lui indiquer qu'il faut 
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transtyper la variable de référence x et la considérer dans cette instruction comme une 
reférence sur un enfant 


var ns 
x : Mere: dpi 
y : Fille; LD 4 


x := Mere.Create; / instanciation dans le type initial 
y := Fille(ObjM); / affectation de références du type ascendant explicite licite 


Dans la dernière instruction, la reférence ObjM est transtypée en type Fille, de telle 
manière que le compilateur puisse faire pointer y vers l'objet déjà pointé par ObjM. En 
reprenant l'exemple pratique de la hiérarchie des véhicules : 


x: vehicule y:voiture z -hreak 


Puisque x pointe vers un objet de type voiture toute variable de référence voiture 
acceptera de pointer vers cet objet, en particulier la variable y :voiture après transtypage 
de la référence de x. 


var 
x : vehicule; 
y : voiture; 


x := voiture.Create; / objet de classe enfant voiture référencé par x de classe parent vehicule 


y := voiture ( x ); /transtypage 


En Delphi l'affectation s'écrit par application de l'opérateur de transtypage : 
y := voiture ( x ); 


x: vehicule y: voiture 


ATTENTION 


La validité du transtypage n'est pas vérifiée statiquement par le compilateur, donc si votre variable de 
référence pointe vers un objet qui n'a pas la même nature que l'opérateur de transtypage, c'est de 
l'exécution qu'il y aura production d'un message d'erreur indiquant le transtypage impossible. 


Il est donc impératif de tester l'appartenance à la bonne classe de l'objet à transtyper avant de le 
transtyper, les langages C#, Delphi et Java disposent d'un opérateur permettant de tester cette 
appartenance ou plutôt l'appartenance à une hiérarchie. 


L'opérateur ‘'is'"' en 
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L'opérateur is, qui effectue une vérification de type dynamique, est utilisé pour vérifier quelle est effectivement 
la classe d'un objet à l'exécution. 


L'expression : objet is classeT 


renvoie True si objet est une instance de la classe désignée par classeT ou de l'un de ses descendants, et False 
sinon. Si objet a la valeur nil, le résultat est False. 


N , b \ 
L'opérateur ‘'as'' en mi I 


L'opérateur as est un opérateur de transtypage de référence d'objet semblable à l'opérateur ( ). 
L'opérateur as fournit la valeur null en cas d'échec de conversion alors que l'opérateur ( ) lève une exception. 


(objet as classeT) renvoie une référence de type classeT 


Exemple d'utilisation des deux opérateurs : 


var x : classeT; 
ifobjet is classeT then 
x:=objet as classeT ; 


Utilisation pratique du polymorphisme d'objet 


Le polymorphisme d'objet associé au transtypage est très utile dans les paramètres des 
méthodes. 


Lorsque vous déclarez une méthode P avec un paramètre formel de type ClasseT : 


procedure P( x : ClasseT ); 


begin ] “\h n 


Vous pouvez utiliser lors de l'appel de la procédure P n'importe quel paramètre effectif de 
ClasseT ou bien d'une quelconque classe descendant de ClasseT et ensuite à l'intérieur de 
la procédure vous transtypez le paramètre. Cet aspect est abondamment utilisé en Delphi 
lors de la création de gestionnaires d'événements communs à plusieurs objets : 


procedure P1( Sender : Tobject ); 
begin à le Le à 
if Sender is TEdit then \tt a] 
TEdit(Sender).text := 'ok' 
else 
if Sender is TButton then 
TButton(Sender).caption := 'oui' 
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Autre exemple avec une méthode P2 personnelle sur la hiérarchie des véhicules définies 
plus haut : 


procedure P2( Sender : vehicule ); 
begin 
if Sender is voiture then 
voiture(Sender). 
else 
if Sender is voilier then 
voilier(Sender). 
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2. Polymorphisme de méthode 


Introduction 


Lorsqu'une classe enfant hérite d'une classe mère, des méthodes supplémentaires 
nouvelles peuvent être implémentées dans la classe enfant mais aussi des méthodes des 
parents redéfinies pour obtenir des implémentations différentes. 


Une classe dérivée hérite de tous les membres de sa classe parent ; c'est-à-dire que tous les 
membres du parent sont disponibles pour l'enfant, rappelons qu'une méthode est un 
membre qualifiant un comportement d'un objet de la classe. En POO on distingue deux 
catégories de méthodes selon les besoins des applications et du polymorphisme : les 
méthodes statiques et les méthodes dynamiques. 


2.1 Vocabulaire et concepts généraux : 


Q L'action qui consiste à donner le même nom à plusieurs méthodes dans la même classe ou d'une classe 
parent à une classe enfant, se dénomme d'une manière générale la surcharge de nom de méthode (avec 
ou non la même signature). 


Le vocabulaire n'étant pas stabilisé selon les auteurs (surcharge, redéfinition, substitution...) nous 
employerons les mots redéfinition, surcharge dynamique ou substitution dans le même sens, en 
précisant lorsque cela s'avérera nécessaire de quel genre de laison il s'agit. 


Les actions des méthodes héritées du parent peuvent être modifiés 
par l'enfant de deux manières, selon le type de liaison du code utilisé 
pour la méthode (la liaison statique ou précoce ou bien la liaison 
dynamique ou retardée). 


Les deux modes de liaison du code d'une méthode 


La liaison statique ou précoce (early-binding) : 

Q Lorsqu'une méthode à liaison statique est invoquée dans le corps d'un programme, le compilateur établit 
immédiatement dans le code appelant l'adresse précise et connue du code de la méthode à invoquer. Lors 
de l'exécution c'est donc toujours le même code invoqué. 


La liaison dynamique ou retardée (lazy-binding) : 

Q Lorsqu'une méthode à liaison dynamique est invoquée dans le corps d'un programme, le compilateur 
n'établit pas immédiatement dans le code appelant l'adresse de la méthode à invoquer. Le compilateur met 
en place un mécanisme de reférence (référence vide lors de la compilation) qui, lors de l'exécution, 
désignera (pointera vers) le code que l'on voudra invoquer; on pourra donc invoquer des codes différents. 


2.2 Surcharge dans la même classe : 


Dans une classe donnée, plusieurs méthodes peuvent avoir le même nom, mais les 
signatures des méthodes ainsi surchargées doivent obligatoirement être différentes et 
peuvent éventuellement avoir des niveaux de visibilité différents. 
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Nous avons déjà vu les bases de ce type de surcharge lors de l'étude de Delphi et la POO. 
Soit par exemple, la classe ClasseA ci-dessous, ayant 3 méthodes de même nom P, elles 
sont surchargées dans la classe selon 3 signatures différentes : 


Classe A 
public methode P(x,y); 
privé methode P(a,b,c); 
protégé methode P( ); 
finClasse A 


La première surcharge de P dispose de 2 paramètres, la seconde de 3 paramètres, la 
dernière enfin n'a pas de paramètres. C'est le compilateur du langage qui devra faire le 
choix pour sélectionner le code de la bonne méthode à utiliser. Pour indiquer ce genre de 
surcharge, en Delphi il faut utiliser un qualificateur particulier dénoté overload. 


Syntaxe de l'exemple en Delphi, en Java et en C# : 


Delphi 
ClasseA = class 
public 


procedure P(x,y : integer);overload; class ClasseA !{ 


public void P( int x.y ){ } 
private void P( String a,b,c ){ } 
protected void P( ){ } 

} 


private 
procedure P(a,b.c : string); overload; 
protected 
procedure P:overload; 
end; 


Utilisation pratique : permettre à une méthode d'accepter plusieurs types de paramètres 
en conservant le même nom, comme dans le cas d'opérateur arithmétique travaillant sur 
les entiers, les réels... 


Exemple de code Delphi : 


ClasseA = class 
public 
procedure P(x,y : integer);overload; 
procedure P(a,b.c : string);overload; 
procedure P:overload; 
end; 
var Obj:ClasseA; 


Ob)j := ClasseA.create; 


Obj.P( 10, 5 ); 
Ob)j.P( ‘abc’, ‘ef, 'ghi' ); 
Obj.P; 


2.3 Surcharge statique dans une classe dérivée : 


D'une manière générale, Delphi et C# disposent par défaut de la notion de méthode 
statique, Java n'en dispose pas sauf dans le cas des méthodes de classes. Dans l'exemple 
ci-dessous en Delphi et en C#, les trois méthodes P,Q et R sont à liaison statique dans leur 
déclaration par défaut sans utiliser de qualificateur spécial. 
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class ClasseA !{ 

public void P( int x,y ){ } 
private void Q( String a,b,c ){ } 
protected void R( ){ } 


procedure P(x,y : integer); 


private 
procedure Q(a,b,c : string); 
protected 
procedure R; } 
end; 


Une classe dérivée peut masquer une méthode à liaison statique héritée en définissant une 
nouvelle méthode avec le même nom. 


Si vous déclarez dans une classe dérivée, une méthode ayant le même nom qu'une méthode à liaison statique 
d'une classe ancêtre, la nouvelle méthode remplace simplement la méthode héritée dans la classe dérivée. 


Dans ce cas nous employerons aussi le mot de masquage qui semble être utilisé par beaucoup d'auteurs pour 
dénommer ce remplacement, car il correspond bien à l'idée d'un masquage "local" dans la classe fille du code 
de la méthode de la classe parent par le code de la méthode fille. 


Ci-dessous un exemple de hiérarchie de classes et de masquages successifs licites de 
méthodes à liaison statiques dans certaines classes dérivées avec ou sans modification de 
visibilité : 


Classe A Classe B hérite de Classe A Classe C hérite de Classe B 
public statique methode P: public statique methode P: protégé statique methode P:; 
privé statique methode Q; privé statique methode Q; privé statique methode Q; 
protégé statique methode R; protégé statique methode R; 

finClasse A finClasse B finClasse C 

Classe D hérite de Classe C Classe E hérite de Classe D Classe F hérite de Classe E 
public statique methode P; protégé statique methode P: privé statique methode P; 

public statique methode R; 


finClasse D finClasse E finClasse F 


Dans le code d'implémentation de la Classe F : 


La méthode P utilisée est celle qui définie dans la Classe F et elle masque la méthode P de la Classe E. 
La méthode Q utilisée est celle qui définie dans la Classe C. 
La méthode R utilisée est celle qui définie dans la Classe F et elle masque la méthode R de la Classe B 


Soit en Delphi l'écriture des classes ClasseA et ClasseB de la hiérarchie ci-haut : 


RE Explications 


ClasseA = class Dans la classe ClasseB : 
public 
procedure P(x,y : integer); La méthode procedure P(u : char) surcharge 


private statiquement (masque) avec une autre signature, la 
procedure Q(a.b.c : string); méthode héritée de sa classe parent procedure 
protected P(x,y : integer). 
procedure R; 
end; 
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ClasseB = class ( ClasseA ) La méthode procedure Q(a,b.c : string) surcharge 
public statiquement (masque) avec la même signature, la 
procedure P(u : char); méthode héritée de sa classe parent procedure 

private Q(a,b.c : string). 


procedure Q(a,b.c : string); 
protected La méthode procedure R(x,y : real) surcharge 
procedure R(x.y : real); statiquement (masque) avec une autre signature, la 
end; méthode héritée de sa classe parent procedure KR. 


Utilisation pratique : Possibilité notamment de définir un nouveau comportement lié à la 
classe descendante et éventuellement de changer le niveau de visibilité de la méthode. 


Exemple de code Delphi : 


ClasseA = class 
public 
procedure P(Xx,y : integer); 
procedure Q(a,b.c : string); 
procedure R; 
end; 


var ObjA:ClasseA; 
ObjB:ClasseB; 


ObjA := ClasseA.create; 
ObjA.P( 10, 5 }; 
ObjA.Q( ‘abc’, ‘ef, 'ghi' ); 
ClasseB = class ( ClasseA ) 
public 
procedure P(u : char); 
procedure Q(a,b.c : string); 
procedure R(x,y : real); 


ObjB := ClasseB.create; 
ObjB.P('£" ); 

ObjB.Q( 'abc', ‘ef, 'ghi' ); 
ObjB.R( 1.2, -5.36 }; 


2.4 Surcharge dynamique dans une classe dérivée : 


Un type dérivé peut redéfinir (surcharger dynamiquement) une méthode à liaison dynamique héritée. On 
appelle aussi virtuelle une telle méthode à liaison dynamique, nous utiliserons donc souvent ce raccourci de 
notation pour désigner une méthode surchargeable dynamiquement. 


L'action de redéfinition fournit une nouvelle définition de la méthode qui sera appelée en fonction du type de 
l'objet au moment de l'exécution et non du type de la variable de reférence connue au moment de la 
compilation. 


Ci-dessous un exemple de hiérarchie de classes et de redéfinitions (surcharges 
dynamiques) successives fictives de méthodes à liaison dynamique dans certaines classes 
dérivées, pour les modifications de visibilité 1l faut étudier le manuel de chaque langage : 


Classe A Classe B hérite de Classe A Classe C hérite de Classe B 
public dynamique methode P; public dynamique methode P; protégé dynamique methode P; 
privé dynamique methode Q; privé dynamique methode Q; privé dynamique methode Q; 
protégé dynamique methode R; protégé dynamique methode R; 

finClasse A finClasse B finClasse C 


Classe D hérite de Classe C Classe E hérite de Classe D Classe EF hérite de Classe E 
public dynamique methode P; protégé dynamique methode P; privé dynamique methode P; 
public dynamique methode R; 
finClasse D finClasse E finClasse F 
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Remarque pratique : 


Une méthode redéfinissant une méthode virtuelle peut selon les langages changer le niveau de visibilité ( il est 


conseillé de laisser la nouvelle méthode redéfinie au moins aussi visible que la méthode virtuelle parent). 


Tableau comparatif liaison dynamique-statique 


Liaison statique 


Liaison dynamique 


Lors d'un appel pendant l'exécution leur liaison est 
très rapide car le compilateur a généré l'adresse 
précise du code de la méthode lors de la 
compilation. 


Lors d'un appel pendant l'exécution leur liaison plus 
lente car l'adresse précise du code de la méthode est 
obtenu par un processus de recherche dans une 
structure de données. 


Une telle méthode fonctionne comme une 
procédure ou fonction d'un langage non orienté 
objet et ne permet pas le polymorphisme. Car lors 
d'un appel pendant l'exécution c'est toujours le 
même code qui est exécuté quel que soit le type de 
l'objet qui l'invoque. 


Une telle méthode autorise le polymorphisme, car 
bien que portant le même nom dans une hiérarchie de 
classe, lors d'un appel pendant l'exécution c'est 
toujours le type de l'objet qui l'invoque qui déclenche 
le mécanisme de recherche du code adéquat. 


2.5 La répartition des méthodes en Delphi 


Le terme de répartition des méthodes est synonyme de liaison et fait référence à la façon 
dont un programme détermine où il doit rechercher le code d'une méthode lorsqu'il rencontre 


un appel à cette méthode. 


En Delphi, il existe trois modes de répartition des méthodes qui peuvent être : 


Statiques , 
Virtuelles, 
Dynamiques. 


Méthodes statiques en Delphi 


Les méthodes statiques de Delphi sont des méthodes à liaison précoce. 


MaClasse=class fille). 
Etat:string; 
procedure Un; statique 
procedure Deux; //statique 


SousClasse=class(MaClasse) 
procedure Trois; //statique 
end; 


Dans SousClas nous avons 3 méthodes statiques : 
type Un (celle de la mère) , Deux (celle de la mère), Trois (celle de la 


Var Obj : MaClasse ; | 
Obj := SousClasse.Create ; 


end; à — 
Obj.Un ; 


Obj.Deux : 
Obj.Trois 
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Voyons ce qui se passe lorsque dans la classe fille on tente de "redéfinir" une méthode héritée 
de la classe mère. Ci-après nous tentons de "redéfinir" la méthode Deux : 


type 
MaClasse=class 
Etat:string; 
procedure Un; statique 
procedure Deux; //statique 
end; 


SousClasse=class(MaClasse) 
procedure Deux; //statique 
procedure Trois; //statique 
end; 


Dans SousClas nous avons 3 méthodes statiques : 


Un (celle de la mère) , Deux (celle de la mère), Trois (celle de la 
fille). | 


Var Obj : MaClasse ; 
Obj := SousClasse.Create ; 


Obj.Un A 


Obj.Deux : 
Obj.Trois 


| Lors de l'exécution de l'appel Obj.Deux, rien n'a changé. En effet lors de la compilation la 
variable Obj est déclarée de type MaClasse, c'est donc l'adresse du code de la méthode Deux 
de la classe MaClasse qui est liée. Le type SousClasse de l'objet réel vers lequel pointe Obj 

| pendant l'exécution n'a aucune influence sur le mode de répartition : 


a Cela signifie qu'il est impossible de redéfinir une méthode statique P; c'est toujours le 
même code qui est exécuté, quelque soit la classe dans laquelle P est appelée. 


a Si l'on déclare dans une classe dérivée une méthode portant le même nom qu'une méthode 
statique de la classe mère avec la même signature ou bien avec une signature différente, la 
nouvelle méthode remplace simplement la méthode héritée dans la classe dérivée, nous 
dirons qu'elle masque la méthode mère. 


Masquage avec la même signature 


Masquage avec une signature différente 


type type 
MaClasse=class MaClasse=class 
Etat:string; Etat:string; 


procedure Un; statique 
procedure Deux; //statique 
end; 


SousClasse=class(MaClasse) 


procedure Deux; / masque la méthode mère 


procedure Trois; //statique 
end; 


procedure Un; statique 
procedure Deux; //statique 
end; 


SousClasse=class(MaClasse) 
procedure Deux ( x : byte ) ; // masque la méthode mère 

procedure Trois; //statique 

end; | 


Var Ob)j : MaClasse ; 
Obj := SousClasse.Create ; 


Obj.Un ; 
Obj.Deux ; 
Obj.Trois ; 


Var Ob)j : MaClasse ; 
Obj := SousClasse.Create 


Obj.Un ; 
Obj.Deux ; 
Obj.Trois ; 
Obj.Deux ( 49 ); 
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Méthodes virtuelles en Delphi 


Les méthodes virtuelles utilisent un mécanisme de répartition nécessitant une recherche 
contrairement aux méthodes statiques. Une méthode virtuelle peut être redéfinie dans les 
classes descendantes sans masquer ses différentes versions dans les classes ancêtres. 


A l'opposé d'une méthode statique l'adresse du code de la méthode virtuelle n'est pas 
déterminée lors de la compilation, mais seulement lors de l'exécution et en fonction du type de 
l'objet qui l'appelle. 


Les méthodes virtuelles de Delphi sont des méthodes à liaison tardive. 


Pour déclarer une méthode virtuelle, il faut ajouter le qualificateur virtual à la fin de la 
déclaration de l'en-tête de la méthode : 


procedure P(x,y : integer); virtual ; 


Comment se passe la liaison dynamique avec Delphi ? 


Delphi implante d'une façon classique le mécanisme de liaison dynamique : 


a Lors de la compilation, Delphi rajoute à chaque classe une Table des Méthodes 
Virtuelles (TMV). Cette table contient en principal, pour chaque méthode déclarée 
avec le qualificateur virtual : 


° un pointeur sur le code de la méthode, 
e la taille de l'objet lui-même 


a Donc chaque objet possède sa propre TMV , et elle est unique. 


a La TMV d'un objet est créée avec des pointeurs vides lors de la compilation, elle est 
remplie lors de l'exécution du programme ( plus précisément lors de l'instanciation 
de l'objet) car c'est à l'exécution que l'adresse du code de la méthode est connue et 
donc stockée dans la TMV. 


a En fait c'est le constructeur de l'objet lors de son instanciation qui lance le stockage 
dans la TMV des adresses de toutes les méthodes virtuelles de l'objet, à la fois les 
méthodes héritées et les méthodes nouvelles. 


Lorsque l'on construit une nouvelle classe héritant d'une autre classe mère, la nouvelle classe 
récupère dans sa TMV toutes les entrées de la TMV de sa classe mère, plus les nouvelles 
entrées correspondant aux méthodes virtuelles déclarées dans la nouvelle classe. Une TMV 
est donc une structure de données qui grossit au cours de l'héritage de classe et peut être assez 
volumineuse pour des objets de classes situées en fin de hiérarchie. 
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Redéfinition de méthode virtuelle avec Delphi 


Pour redéfinir une méthode virtuelle dans les classes descendantes sans masquer ses 
différentes versions dans les classes ancêtres, 1l faut ajouter à la fin de sa déclaration d'en-tête 


le qualificateur override. 


Reprenons l'exemple précédent et tentons de "redéfinir" la méthode Deux cette fois en la 
déclarant virtuelle dans la classe mère et redéfinie dans la classe fille, puis comparons le 
comportement polymorphique de la méthode Deux selon qu'elle est virtuelle ou statique : 


type 
MaClasse=class 
Etat:string; 
procedure Un; statique 
procedure Deux; virtual ; /irtuelle 
end; 


SousClasse=class(MaClasse) 
procedure Deux; override; //redéfinie 


Dans SousClas nous avons 2 méthodes statiques : Un , Trois 
et une méthode virtuelle redéfinie : Deux 


Var Ob)j : MaClasse ; 
Obj := SousClasse.Create ; 


Obj.Un ; 
Obj.Deux ; 
Obj.Trois ; 


procedure Trois; //statique 

end; 
Dans SousClas nous avons 3 méthodes statiques : 

type Un (celle de la mère) , Deux (celle de la mère), Trois (celle de la 
MaClasse=class fille). 

Etat:string; 

procedure Un; statique Var Ob)j : MaClasse ; 

procedure Deux; //statique Obj := SousClasse.Create ; 


end; 


SousClasse=class(MaClasse) 
procedure Deux; //statique 
procedure Trois; //statique 
end; 


Obj.Un ; 
Obj.Deux ; 
Obj.Trois ; 


Méthodes dynamiques en Delphi 


Les méthodes dynamiques sont des méthodes virtuelles avec un mécanisme de répartition 
différent, donc les méthodes dynamiques de Delphi sont des méthodes à liaison tardive. 


Au lieu d'être stockées dans la Table des Méthodes Virtuelles, les méthodes dynamiques 


sont ajoutées dans une structure de données de liste spécifique pour chaque objet (la liste 


des méthodes dynamiques). 


Seules les adresses des méthodes nouvelles ou redéfinies d'une classe sont rangées dans sa 


liste. 
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La liaison précode d'une méthode dynamique héritée s'effectue en recherchant dans la liste 
des méthodes dynamiques de chaque ancêtre, en remontant la hiérarchie de l'héritage. 


| Remarques de Borland 


Pour déclarer une méthode dynamique, il faut ajouter le qualificateur dynamic à la fin de la 
déclaration de l'en-tête de la méthode : 


procedure P(x,y : integer); dynamic ; 


a Toute méthode sans qualification particulière est considérée comme 
statique par défaut. 


a Comme les méthodes dynamiques ne disposent pas d'entrées dans la table 
des méthodes virtuelles de l'objet, elles réduisent la quantité de mémoire 
occupée par les objets. 


a Siune méthode est appelée fréquemment, ou si le temps d'exécution est un 
paramètre important, 1l vaut mieux déclarer une méthode virtuelle plutôt 
que dynamique. 


Masquage de méthode virtuelle avec Delphi 


Pour masquer une méthode virtuelle dans une de ses classes, 1l suffit de ne pas ajouter à la fin 
de sa déclaration d'en-tête le qualificateur override. 


Ceci peut se faire de deux façons soit en masquant par une méthode statique, soit en masquant 
par une méthode dynamique. 


Masquage par une méthode dynamique 


Dans le code suivant, la méthode Deux déclarée virtuelle dans la classe mère, est masquée par 
une méthode Deux ayant la même signature et déclarée elle aussi virtuelle dans la classe fille : 


type 
MaClasse=class 
Etat:string; 
procedure Un;  //sfatique 
procedure Deux; virtual;  /virtuelle 
end; 
SousClasse=class(MaClasse) 
procedure Un; statique, masque la méthode ancêtre 
procedure Deux;virtual; virtuelle, masque la méthode ancêtre, mais elle-même est redéfinissable 
end; 
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comparons le comportement polymorphique de la méthode Deux selon qu'elle est redéfinie, 


masquée par une méthode statique ou masquée par une méthode virtuelle : 


type 
MaClasse=class 
Etat:string; 
procedure Un; statique 
procedure Deux; virtual ; /irtuelle 
end; 


SousClasse=class(MaClasse) 
procedure Deux; override; //redéfinie 


Dans SousClas nous avons 2 méthodes statiques : Un , Trois 
et une méthode virtuelle redéfinie : Deux 


Var Obj : MaClasse ; 
Obj := SousClasse.Create ; 


Obj.Un ; 
Obj.Deux ; 
Obj.Trois ; 


procedure Trois; //statique 
end; 
Dans SousClas nous avons 2 méthodes statiques : Un , Trois 
type et une méthode virtuelle masquée statiquement : Deux 
MaClasse=class 
Etat:string; Var Ob)j : MaClasse ; 
procedure Un; statique Obj := SousClasse.Create ; 


procedure Deux; virtual ; /irtuelle 
end; 


SousClasse=class(MaClasse) 
procedure Deux; //masquage 


Obj.Un ; 
Obj.Deux ; 
Obj.Trois ; 


ho halyaorphe 


procedure Trois; //statique 
end; 
type Dans SousClas nous avons 2 méthodes statiques : Un , Trois 
MaClasse=class et une méthode virtuelle masquée virtuellemnt: Deux 
Etat:string; 
procedure Un; statique Var Ob)j : MaClasse ; 


procedure Deux; virtual ; /irtuelle 
end; 


SousClasse=class(MaClasse) 
procedure Deux; virtual ; /masquage 
procedure Trois; //statique 

end; 


Obj := SousClasse.Create ; 


Obj.Un ; 
Obj.Deux ; F . | san Le » 
Obj Trois: WAY pelinorphe 


Nous pouvons conclure de ce tableau de comparaison que le masquage (par une méthode 
statique ou virtuelle) ne permet jamais le polymorphisme. 


Le polymorphisme de méthode offre la possibilité de conserver le même nom de méthode 
dans une hiérarchie de classe, afin de ne pas "surcharger" le cerveau de l'utilisateur. Les 
comportements seront différents selon le type d'objet utilisé. 


Par exemple l'action de Démarrer dans une hiérarchie de véhicules : 
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Nous voyons bien que sémantiquement parlant on peut dire qu'une 
voiture démarre, qu'un voilier démarre, qu'un croiseur démarre, 
toutefois les actions internes permettant le comportement 


démarrage ne sont pas les mêmes. 
Q Démarrer dans la classe voiture : tourner la clef de contact, 
engager une vitesse... 


Ü 


Démarrer dans la classe voilier : hisser les voiles, dégager la 
barre... 


D 


Démarrer dans la classe croiseur : lancer les moteurs, 
modifier la barre... 


L'action Démarrer est polymorphe (car elle s'adapte au type de véhicule qui l'exécute). 


Pour traduire en Delphi, ce comportement polymorphe de l'action Démarrer, nous allons 
utiliser une méthode virtuelle que nous redéfinissons dans toutes les classes dérivées. 


Soit en Delphi l'écriture de l'exemple de la hiérarchie précédente : 


Ne cle Marin = class ( Vehicule ) 


public 
procedure Demarrer; virtual; virtuelle 


end; Voilier = class (Marin ) 


public 
procedure Demarrer; override; /redéfinie 
end; 


Terrestre = class ( Vehicule ) 


Croiseur = class ( Marin ) 
public 
procedure Demarrer; override; //redéfinie 
end; 


Voiture = class ( Terrestre ) 
public 
procedure Demarrer; override; //redéfinie 
end; 


Exemple de code d'utilisation : 


Vehicule = class 
public 
procedure Demarrer; virtual; (1) 
end; 


Vehic1 := Vehicule.Create; /instanciation dans le type 
Autol := Voiture.Create; /instanciation dans le type 
Auto? := Voiture.Create; /instanciation dans le type 
Vehic1.Demarrer; /méthode du type Vehicule (1) 
Autol.Demarrer; /méthode du type Voiture (2) 
Auto2.Demarrer; /méthode du type Voiture (2) 

Vehic1 := Autol; /pointe vers un objet de type hérité 
Vehic1.Demarrer; // polymorphisme à l'œuvre ici: (2) 


Voiture = class ( Terrestre ) 
public 
procedure Demarrer; override; (2) 


Vehic1 := Voiture.Create; /instanciation un type hérité 
Vehic1.Demarrer; / polymorphisme à l'œuvre ici: (2) 


var Vehic1 : Vehicule; 
Autol, Auto? : Voiture; 
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Illustrons l'exemple précédent avec une image de la partie de code généré sur la méthode 
Demarrer et ensuite l'exécution de ce code sur des objets effectifs. Nous avons numéroté 


(1) et (2) les deux codes d'implantation de la méthode Demarrer dans la classe parent et 
dans la classe enfant : 


Vehic1. n : Autol, 
Autol. = ; Auto2. 
; 


Auto?.s 
Vehic1 :=Autol; Vehic1 


Vehicl.s ; Vehic1 :=Voiture.Create; 


Vehic1 :=Voiture.Create; | Vehic1. ES 


Vehic1.s ; 


Lors de l'exécution après mécanisme de répartition selon le 
genre de liaison et le type de l'objet, les reférences pointent 
Le code engendré contient des reférences vides vers le code de la méthode du type effectif de l'objet. 


2.6 Réutilisation de méthodes avec inherited 


Le mot réservé inherited joue dans Delphi un rôle particulier dans l'implémentation de 


comportements polymorphiques (il joue un rôle semblable à super dans java et base dans 
C#). 


Il ne peut qu'apparaître dans une définition de méthode avec ou sans identificateur à la suite. 


a Si inherited présent dans une methode P de la classeA est suivi par le nom d'une méthode 
Q, il représente un appel normal de la méthode Q, sauf que la recherche de la méthode à 
invoquer commence dans l'ancêtre immédiat de la classe de la méthode et remonte la 
hiérarchie. 


a Siinherited présent dans une methode P de la classeA, n'est suivi d'aucun nom de 
méthode, il représente alors un appel à une méthode de même nom P, la recherche de la 
méthode à invoquer commence dans l'ancêtre immédiat de la classe de la méthode P 
actuelle et remonte la hiérarchie. 


procedure classeA.P(x,y : integer); procedure classeA.P(x,y : integer); 

begin - - begin _ 

inberited ; <=> inherited P(x,y); inherited Q(x ); Recherche et appel de 
pui recherche et appel Q (x ) dans les 

end; | de P(x,y) dans les end; ancêtres de classeA 


ancêtres de classeA 
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3. Polymorphisme de classes abstraites 


Introduction 
Les classes abstraites permettent de créer des classes génériques expliquant certains comportements sans 


les implémenter et fournissant une implémentation commune de certains autres comportements pour 
l'héritage de classes. Les classes abstraites sont un outil précieux pour le polymorphisme. 


Vocabulaire et concepts : 


Une classe abstraite est une classe qui ne peut pas être instanciée. 

Une classe abstraite peut contenir des méthodes déjà implémentées. 

Une classe abstraite peut contenir des méthodes non implémentées. 

Une classe abstraite est héritable. 

On peut contsruire une hiérarchie de classes abstraites. 

Pour pouvoir construire un objet à partir d'une classe abstraite, il faut dériver une classe non 
abstraite en une classe implémentant toutes les méthodes non implémentées. 


D OCDCO0UDU 


Une méthode déclarée dans une classe, non implémentée dans cette classe, mais juste définie par 
la déclaration de sa signature, est dénommée méthode abstraite. 


Une méthode abstraite est une méthode à liaison dynamique n’ayant pas d’implémentation dans la 
classe où elle est déclarée. L' implémentation d'une méthode abstraite est déléguée à une classe 
dérivée. 


Si vous voulez utiliser la notion de classe abstraite pour fournir un comportement 
polymorphe à un groupe de classes, elles doivent toutes hériter de la même classe abstaite, 


comme dans l'exemple ci-dessous : 


La classe Véhicule est abstraite, car la méthode Démarrer est abstraite et sert de 
"modèle" aux futures classes dérivant de Véhicule, c'est dans les classes voiture, voilier 
et croiseur que l'on implémente le comportement précis du genre de démarrage. 


Notons au passage que dans la hiérarchie précédente, les classes vehicule Terrestre et 
Marin héritent de la classe Véhicule, mais n'implémentent pas la méthode abstraite 
Démarrer, ce sont donc par construction des classes abstraites elles aussi. 


Les bases de l'informatique - programmation - (r6v. 05.09.2004 ) age 44S 
pd: 


Les classes abstraites peuvent également contenir des membres déjà implémentés. Dans cette éventualité, 


une classe abstraite propose un certain nombre de fonctionnalités identiques pour tous ses futurs descendants 


(ceci n'est pas possible avec une interface). 


Exemple : la classe abstraite Véhicule n'implémente pas la méthode abstraite Démarrer, 
mais fournit et implante une méthode "RépartirPassagers" de répartition des passagers à 
bord du véhicule (fonction de la forme, du nombre de places, du personnel chargé de 
s'occuper de faire fonctionner le véhicule...) elle fournit aussi et implante une méthode 
"PériodicitéMaintenance" renvoyant la périodicité de la maintenance obligatoire du 
véhicule (fonction du nombre de km ou miles parcourus, du nombre d'heures 
d'activités...) 


Ce qui signifie que toutes les classes voiture, voilier et croiseur savent comment répartir 
leurs éventuels passagers et quand effectuer une maintenance, chacune d'elle implémente 
son propre comportement de démarrage. 


Syntaxe de l'exemple en Delphi et en Java : 


Vehicule = class 
public 
procedure Demarrer; virtual;abstract:; 
procedure RépartirPassagers; virtual; 
procedure PériodicitéMaintenance; virtual; 


abstract class ClasseA { 
public abstract void Demarrer( ); 
public void RépartirPassagers( ); 
public void PériodicitéMaintenance( ); 


} 


ation pratique des classes abstraites 


Utilisez une classe abstraite lorsque vous voulez : 
Q regrouper un ensemble de méthodes présentant des fonctionnalités identiques, 
Q déléguer l'implémentation de certaines méthodes à une classe dérivée, 


Q disposer immédiatement de fonctionnalités concrètes pour d'autres méthodes, 


Q assurer un comportement polymorphe aux méthodes dont on délègue l'implantation 
du code à des classes dérivées. 
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Exemple de code Delphi pour la hiérarchie ci-dessous : 


= 
= à 
ss 


Soit en Delphi l'écriture d'un exemple tiré de cette hiérarchie : 


Unit UclassVehicules; 
interface 
Vehicule = class 
public 
procedure Demarrer; virtual;abstract; 
procedure RépartirPassagers; virtual; 
procedure PériodicitéMaintenance; virtual; 
end; 
Terrestre = class ( Vehicule ) 
public 
procedure PériodicitéMaintenance; override; 
end; 
Voiture = class ( Terrestre ) 
public 
procedure Demarrer; override; 
procedure RépartirPassagers; override; 
end; 
Marin = class ( Vehicule ) 
public 
procedure PériodicitéMaintenance; override; 
end; 
Voilier = class (Marin ) 
public 
procedure Demarrer; override; 
procedure RépartirPassagers; override; 
end; 
Croiseur = class (Marin ) 
public 
procedure Demarrer; override; 
procedure RépartirPassagers; override; 
end; 
implementation 
/1--- les méthodes implantées de la classe abstraite Vehicule : 
procedure Vehicule.RépartirPassagers; 


procedure Vehicule.PériodicitéMaintenance; 
begin 
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end; 
/1--- les méthodes implantées de la classe abstraite Terrestre : 
procedure Terrestre PériodicitéMaintenance; 
begin 
end; 
/1--- les méthodes implantées de la classe abstraite Marin : 
procedure Marin.PériodicitéMaintenance; 
begin 
end; 
/1--- les méthodes implantées de la classe Voiture : 
procedure Voiture.Demarrer; 
begin 
end; 
procedure Voiture.RépartirPassagers; 
begin 
end; 
/1--- les méthodes implantées de la classe Voilier : 
procedure Voilier. Demarrer; 


procedure Voilier.RépartirPassagers; 
begin 


end; 
/1--- les méthodes implantées de la classe Croiseur : 
procedure Croiseur.Demarrer; 

begin 

end; 

procedure Croiseur.RépartirPassagers; 


Dans cet exemple : 


Les classes Vehicule, Marin et Terrestre sont abstraites car aucune n'implémente la 
méthode abstraite Demarrer 


Les classes Marin et Terrestre contiennent chacune une surcharge dynamique 
implémentée de la méthode virtuelle PériodicitéMaintenance qui est déjà implémentée 
dans la classe Véhicule. 


Les classes Voiture, Voilier et Croiseur ne sont pas abstraites car elles implémentent les 
(la) méthodes abstraites de leurs parents. 
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Exercice traité sur le polymorphisme 


Objectifs : Comparer le polymorphisme et l'utilisation de tests de type if..then avec 
l'opérateur is. 


On souhaite construire une application utilisant des classes de gestion de structures de 
données de noms (chaînes). Ces classes devraient être capables de lancer une intialisation 
de la structure, de trier par ordre croissant les données, de les afficher dans un éditeur de 
texte. Nous voulons disposer d'une quatrième classe possédant une méthode générale 
d'édition d'une structure de données après son ordonnancement. 


e Au départ nous travaillons sur une classe contenant un tableau, une classe 
contenant une liste chaînée et une classe contenant un fichier. Chaque classe 
contient trois méthodes : Tri, Initialiser, et Ecrire qui ne seront qu'esquissées, car 
c'est la conception de la hiérarchie qui nous intéresse dans cet exemple et non le 
code interne. Le lecteur peut s'il le souhaite développer un code personnel pour 
toutes ces méthodes. 


LES TYPES DE STRUCTURES DE BASE PROPOSES 


Nous proposons de travailler avec les types de données suivants : 


type 


Element-record tableau=Array[1..100]of Element; 
clef : integer; 
info : ShortString; 
end; 


fichier = file of Element; pointeur = Achainon; 
chainon=record 
data:Element; 
suivant:pointeur 
end; 


Nous supposons avoir fourni ces informations à deux équipes de développement leur 
laissant le choix de l'organisation des classes. 


a La première équipe décide d'implanter les 3 classes à partir de la classe racine 
(TObject en Delphi). 


a La seconde équipe de développement a choisi pour le même problème d'implémenter 
les 3 classes à partir d'une hiérarchie de classes fondée sur une classe abstraite. 


Les bases de l'informatique - programmation - (6: 05.09.2004 ) page 449 


CLASSES DESCENDANT DE TObject 


Equipe1-1°) L'équipe implémente une gestion de structure de données à partir de classe 
héritant toutes de la classe racine TObiject avec des méthodes à liaison statique. 


Ttable=class 
T:Tableau; 
procedure Tri; 
procedure Initialiser; 
procedure Ecrire(Ed:Tedit); 
end ; 


Tliste=class 
L:pointeur; 
procedure Tri; 
procedure Initialiser; 
procedure Ecrire(Ed:Tedit); 
end ; 


Tfichier=class 
F:fichier; 
procedure Tri; 
procedure Initialiser; 
procedure Ecrire(Ed:Tedit); 
end ; 


Ce choix permet aux membres de l'équipe n°1 de déclarer et d'instancier des objets dans 


chaque classe : 
var 


S1:Ttable;  S2:Tliste; 


S3:Tfichier; 


S1:=Ttable.Create; 
S1.Initialiser; 

S1.Tri; 
S1.Ecrire(Forml.Editl); 


S2:=Tliste.Create; 
S2.Initialiser; 

S2.Tri; 
S2.Ecrire(Forml.Editl); 


S3:=Tfichier.Create; 
S3.Initialiser; 

S3.Tri; 
S3.Ecrire(Forml.Editl); 


L'équipe n°1 pourra utiliser le polymorphisme d'objet en déclarant une reférence d'objet de 
classe racine puis en l'instanciant selon les besoins dans l'une des trois classes. I sera alors 
nécessaire de transtyper la reférence en testant auparavant par sécurité, l'appartenance de 
l'objet reférencé à la bonne classe : 


var 
S1:TObject; 


if Slis Ttable then 
begin 
Ttable(S1).Initialiser; 
Ttable(S1).Tri; 
Ttable(S1).Ecrire(Form1 .Edit1); 
End 


if Slis Tliste then 

begin 
Tliste(S1).Initialiser; 
Tliste(S1).Tri; 
Tliste(S1).Ecrire(Forml1.Edit1); 

end 


if S1is Tfichier then 

begin 
Tfichier(S1).Initialiser; 
Tfichier(S1).Tri; 
Tfichier(S1).Ecrire(Forml .Edit] ); 

end 


<< S1:=Ttable.Create; >> 


<< S1:=Tliste.Create; >> 


<< S1:=TFichier.Create; >> 


Dans l'application, l'équipe n°1 construit une classe TUseData qui possède une méthode 
générale d'édition d'une structure de données après ordonnancement , cette méthode utilise 
le polymorphisme d'objet pour s'adapter à la structure de données à éditer : 


TUÜseData=class 
Procedure Editer ( x : Tobject ); 


end ; 


C'est le paramètre formel de classe générale TObject qui est polymorphe, les valeurs 
effectives qu'il peut prendre sont : n'importe quel objet de classe héritant de Tobject. 
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Code de la méthode Editer de TuseData : 


Procedure TUseData Editer ( x : Tobject ); 
Begin 
if x is Ttable then 
begin 
Ttable(x).Tri; 
Ttable(x).Ecrire(Form1 .Edit1); 
end 


Else 
if x is Tliste then 
begin 
Tliste(x).Tri; 
Tliste(x).Ecrire(Form1 .Edit1); 
end 
Else 
if x is Tfichier then 
begin 
Tfichier(x) Tri; 
Tfichier(x).Ecrire(Forml1 Edit); 
end 


End; 


Equipe1-2°) L'équipe livre au client l'application contenant en de multiples endroits un 


appel à la méthode Editer. 


Equipe1-3°) Deux mois après la livraison et la mise en place, le client souhaite rajouter 
une nouvelle structure de données que nous nommons TDatas (par exemple de structure 


d'arbre binaire). 


L'équipe propose de poursuivre la même 
organisation en créant et en implantant 


une nouvelle classe dérivant de TObject : 


TAutre=class 
Data : TDatas; 
procedure Tri; 
procedure Initialiser; 
procedure Ecrire(Ed:Tedit); 
end ; 


Equipe1-4°) L'équipe 1 doit alors reprendre et modifier le code de la méthode Procedure 
Editer ( x : Tobject); de la classe TUseData, en y ajoutant le test du nouveau type TDatas 


comme suit : 


Procedure TUseData Editer ( x : Tobject); 
Begin 


if x is Ttable then ...else 
if x is Tliste then .… else 
if x is Tfichier then .… else 
if x is TDatas then 
begin 
TDatas (x). Tri; 
TDatas (x).Ecrire(Forml1 Edit] ); 
end; 


End; 
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Cette démarche de rajout et de recompilation, les membres de l'équipe n°1 devront 
l'accomplir dans chaque partie de l'application qui utilise la méthode Editer. 


Equipe1-5°) L'équipe n°1 envoie ensuite au client : 
e La nouvelle classe et son code, 


e ainsi que la nouvelle version de toutes les parties de l'application qui font appel à 
la méthode Editer dont la précédente version est maintenant caduque. 


CLASSES DESCENDANT DE LA MEME CLASSE ABSTRAITE 


Equipe2-1°) L'équipe de développement a choisi pour le même problème d'implémenter 
une hiérarchie de classes fondée sur une classe abstraite qui a été nommée TStructData. 


TStructData=class 
procedure Tri;virtual;abstract:; 
procedure Initialiser; virtual;abstract; 
procedure Ecrire(Ed:Tedit); virtual;abstract; 
end ; 


Toutes les autres classes dériveront de TStructData, et possèderont des méthodes à 
liaisons dynamiques afin d'utiliser ici le polymorphisme de méthodes : 


Ttable=class (TStructData) Tliste=class (TStructData) 
T:Tableau; L:pointeur; 
procedure Tri;override; procedure Tri;override; 
procedure fnitialiser;override; procedure Jnitialiser;override; 
procedure Ecrire(Ed:Tedit);override; procedure Ecrire(Ed:Tedit);override; 
end ; end ; 


Tfichier=class (TStructData) 
F:fichier; 
procedure Tri;override; 
procedure Jnitialiser;override; 
procedure Ecrire(Ed:Tedit);override; 
end ; 


Ce choix permet aux membres de l'équipe n°2, comme pour ceux de l'équipe n°1, de 
déclarer et d'instancier des objets dans chaque classe : 
var 

S1:Ttable; S2:Tliste; S3:Tfichier; 


S1:=Ttable.Create; S2:=Tliste.Create; S3:=Tfichier.Create; 
S1.Initialiser; S2.Initialiser; S3.Initialiser; 

S1.Tri; S2.Tri; S3.Tri; 
S1.Ecrire(Forml.Editl); S2.Ecrire(Forml.Editl); S3.Ecrire(Forml1.Editl); 
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L'équipe n°2 pourra utiliser le polymorphisme de méthode en déclarant une reférence 
d'objet de classe racine abstraite puis en l'instanciant selon les besoins dans l'une des 
trois classes. Mais ici, il ne sera pas nécessaire de transtyper la reférence ni de tester 
auparavant par sécurité, l'appartenance de l'objet reférencé à la bonne classe. En effet les 
méthodes Initialiser, Tri et Ecrire étant virtuelles, c'est le type de l'objet lors de l'exécution 
qui déterminera le bon choix : 


Var S1 : TStrucData; 


<< S1:=Ttable.Create; >> << S1:=Tliste.Create; >> << S1:=TFichier.Create; >> 


S1.Initialiser; 


S1.Tri; 
S1.ÆEcrire (Forml.Editl); 


Dans l'application, l'équipe n°2 comme l'équipe n°1, construit une classe TUÜseData qui 
possède une méthode générale d'édition d'une structure de données après ordonnancement, 
cette méthode utilise le polymorphisme d'objet et le polymorphisme de méthode pour 
s'adapter à la structure de données à éditer : 


TUÜseData=class 
Procedure Editer ( x : TstructData ); 


end ; 
Méthode Editer de TuseData : 
Méthode Editer de TuseData : équipe n°2 Méthode Editer de TuseData : équipe n°1 
Procedure TUseData .Editer ( x : Tobject ); 
Begin 
if x is Ttable then 
begin 


Ttable(x).Tri; 
Ttable(x).Ecrire(Forml1 .Edit1); 


Procedure TuseData.Editer ( x : TstructData ); png else : 
: if x is Tliste then 
Begin À 
de begin 
se Tliste(x).Tri: 
Re Gun LUE Tliste(x).Ecrire(Form1.Edit1): 
End; 
end else 
if x is Tfichier then 
begin 
Tfichier(x)Tri; 
Tfichier(x).Ecrire(Form1 .Edit1); 
end 


End; 


Equipe2-2°) L'équipe livre au client l'application contenant en de multiples endroits un 
appel à notre méthode Editer. 


Equipe2-3°) Deux mois après l'équipe n°2 s'est vu demander comme pour l'autre équipe, 
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de rajouter une nouvelle structure de données (par exemple de structure d'arbre binaire). 
L'équipe n°2 crée et implante une nouvelle classe dérivant de la classe abstraite 
TStructData comme pour les 3 autres classes déjà existantes : 


TAutre=class (TStructData) 
Data : TDatas; 
procedure Tri;override; 
procedure Initialiser;override; 
procedure Ecrire(Ed:Tedit);override; 
end ; 


Grâce au polymorphisme d'objet et de méthode à liaison dynamique la méthode Editer 
fonctionne avec toutes les descendants de TstructData. 


Equipe2-4°) L'équipe n°2 n'a pas à modifier le code de la méthode Procedure Editer ( x 
TStructData). 


Equipe2-5°) Il suffit à l'équipe n°2 d'envoyer au client la nouvelle classe et son code 
(toutes les parties de l'application qui font appel à la méthode Editer fonctionneront 
correctement automatiquement) ! 


Squelettes des méthodes 


Les deux équipes ont coopéré entre elles, le code des méthodes est le même quelque soit le choix effectué 
(hériter de TObject ou hériter d'une classe abstraite). 


LOI Les tableaux {WI 
procedure Ttable. Tri; 
begin 
//algorithme de tri d'un tableau 
T{1]info:=T[1].info+ : tableau trié 
end; 


procedure Ttable.Initialiser; 
begin 

T{1].clef:=100; 
T{1]info:='Durand';/etc…. 
end; 


procedure Ttable.Ecrire(Ed:Tedit); 

begin 

Ed.Text:='Clef= '#nttostr(T[1].clef)+//'+T[1].info 
end; 


LI NUIN Les listes chaînées HU 
procedure Tliste.Tri; 
begin 
//algorithme de tri d'une liste … 
L.data.info:=L.data.info+ : liste triée' 
end; 


procedure Tliste.Initialiser; 
begin 
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new(L); 
L.data.clef:=100; 
L.data.info:='Durand'; 
L.suivant:=nil /erc…. 
end; 


procedure Tliste.Ecrire(Ed:Tedit); 

begin 

Ed.Text:='Clef= ‘+inttostr(L.data.clefy+'//'+L.data.info 
end; 


MIN Les fichiers HUM 
procedure Tfichier.Tri; 
var UnElement:Element; 
begin 
//algorithme de tri d'un fichier … 
AssignFile(F,'FichLocal'); 
reset(F); 
read(F,UnElement); 
CloseFile(F); 
UnElement.info:=UnElement.info+" : fichier trié’; 
reset(F); 
write(F,UnElement); 
CloseFile(F) 
end; 


procedure Tfichier.Initialiser; 
var UnElement:Element; 
begin 
AssignFile(F,'FichLocal'); 
rewrite(F); 
UnElement.clef:=100; 
UnElement.info:='Durand'; 
write(F,UnElement); /erc…. 
CloseFile(F) 

end; 


procedure Tfichier.Ecrire(Ed:Tedit); 

var UnElement:Element; 

begin 

AssignFile(F,'FichLocal'); 

reset(F); 

read(F,UnElement); 

Ed.Text:—'Clef= '#inttostr(UnElement.clef)+//'+UnElement.info; 
CloseFile(F); 

end; 


end. 


Conclusion 


Le polymorphisme a montré dans cet exemple ses extraordinaires facultés d'adaptation et de 
réutilisation. Nous avons constaté le gain en effort de développement obtenu par l'équipe qui a 
choisi de réfléchir à la construction d'une hiérarchie fondée sur une classe abstraite. Nous 
conseillons donc de penser à la notion de classe abstraite et aux méthodes virtuelles lors de 
la programmation d'un problème avec des classes. 
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5.4 Programmation événementielle et 
visuelle 


Plan du chapitre: Ë 
Introduction 


Programmation visuelle basée sur les pictogrammes 
Programmation orientée événements 
Normalisation du graphe événementiel 


le graphe événementiel arcs et sommets 
les diagrammes d'états UML réduits 


Tableau des actions événementielles 
Interfaces liées à un graphe événementiel 
Avantages et modèle de développement RAD visuel 
le modèle de la spirale (B.Boehm) 
le modèle incrémental 


Casa 


El 
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1. Programmation visuelle basée sur les pictogrammes 


Le développement visuel rapide d'application est fondé sur le concept de programmation 
visuelle associée à la montée en puissance de l'utilisation des Interactions Homme-Machine 
(IHM) dont le dynamisme récent ne peut pas être méconnu surtout par le débutant. En 
informatique les systèmes MacOs, Windows, les navigateurs Web, sont les principaux 
acteurs de l'ingénierie de l'IHM. Actuellement dans le développement d'un logiciel, un temps 
très important est consacré à l'ergonomie et la communication, cette part ne pourra que 
grandir dans un avenir proche; car les utilisateurs veulent s'adresser à des logiciels efficaces 
(ce qui va de soi) mais aussi conviviaux et faciles d'accès. 


Les développeurs ont donc besoin d'avoir à leur disposition des produits de développement 
adaptés aux nécessités du moment. A ce jour la programmation visuelle est une des réponses à 
cette attente des développeurs. 


La programmation visuelle au tout début a été conçue pour des personnes n'étant pas des 
programmeurs en basant ses outils sur des manipulations de pictogrammes. 

Le raisonnement communément admis est qu'un dessin associé à une action élémentaire est 
plus porteur de sens qu'une phrase de texte. 


A titre d'exemple ci-dessous l'on enlève le "fichier.bmp" afin de l'effacer selon deux modes de 
communication avec la machine: utilisation d'icônes ou entrée d'une commande textuelle. 


Effacement avec un langage d'action visuelle (souris) 
Action : Réponse : 
Ce NS 
Dr ep 
#4 Fichier.bmp . 


Corbeille 


Effacement avec un langage textuel (clavier) 
Action : Réponse : 
del c:\Exemple\Fichier.bmp 12 


Nous remarquons donc déjà que l'interface de communication MacOs, Windows dénommée 
"bureau électronique" est en fait un outil de programmation de commandes systèmes. 


Un langage de programmation visuelle permet "d'écrire" la partie communication d'un 
programme uniquement avec des dessins, diagrammes, icônes etc. Nous nous intéressons 
aux systèmes RAD (Rapid Application Development) visuels, qui sont fondés sur des 
langages objets à bases d'icônes ou pictogrammes. Visual Basic de MicroSoft est le premier 
RAD visuel a avoir été commercialisé dès 1991, il est fondé sur un langage Basic étendu 
incluant des objets étendus en VB.Net depuis 2001, puis dès 1995 Delphi le premier RAD 
visuel de Borland fondé sur Pascal objet, puis actuellement toujours de Borland : C++Builder 
RAD visuel fondé sur le langage C++ et Jbuilder, NetBeans RAD visuel de Sun fondés sur le 
langage Java, Visual C++, Visual J++ de Microsoft, Visual C# etc. 


Le développeur trouve actuellement, une offre importante en outil de développement de RAD 
visuel y compris en open source. Nous proposons de définir un langage de RAD visuel ainsi : 
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Un langage visuel dans un RAD visuel est un générateur de code source du langage de base qui, 


derrière chaque action visuelle (dépôt de contrôle, click de souris, modifications des propriétés, etc.) 
engendre des lignes de code automatiquement et d'un manière transparente au développeur. 


Des outils de développement tels que Visual Basic ou Delphi sont adaptés à la programmation 
visuelle pour débutant. Toutefois l'efficacité des dernières versions depuis 3 ans a étendu leur 
champ au développement en général et dans l'activité industrielle et commerciale avec des 
versions entreprise" pour VB et "Architect "pour Delphi. 


En outre, le système windows est le plus largement répandu sur les machines grand public 
(90% des PC vendus en sont équipés), il est donc très utile que le débutant en programmation 
sache utiliser un produit de développement (rapide si possible) sur ce système. 


Proposition : 


Nous considérons dans cet ouvrage, la programmation visuelle à la fois 


comme une fin et comme un moyen. 


La programmation visuelle est sous-tendue par la réactivité des programmes en réponse aux 
actions de l'utilisateur. Il est donc nécessaire de construire des programmes qui répondent à 
des sollicitations externes ou internes et non plus de programmer séquentiellement (ceci est 
essentiellement dû aux architectures de Von Neumann des machines) : ces sollicitations sont 
appelées des événements. 


Le concept de programmation dirigée ou orientée par les événements est donc la 
composante essentielle de la programmation visuelle. 


Terminons cette présentation par 5 remarques sur le concept de RAD : 


Nous ne considérerons pas comme utile pour des débutants de démarrer la programmtion visuelle 
avec des RAD basés sur le langage C++. Du fait de sa large permissivité ce langage permet au 
programmeur d'adopter certaines attitudes dangereuses sans contrôle possible. Seul le programmeur 
confirmé au courant des pièges et des subtilités de la programmation et du langage, pourra exploiter 
sans risque la richesse de ce type de RAD. 


Le RAD Delphi de Borland conçu en 1995 est une extension du langage Object Pascal, qui a des 
caractéristiques très proches de celles de C++ sans en avoir les inconvénients. L'aspect fortement 
typé du langage pascal autorise la prise en compte par le développeur débutant de bonnes attitudes de 
programmation. 
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Le premier environnement de développement visuel professionnel basé sur Object Pascal a été 
conçu par Apple pour le système d'exploitation MacOs, sous la dénomination de MacApp en 


1986. Cet environnement objet visuel permettait de développer des applications Maclntosh avec 
souris, fenêtre, menus déroulants etc. 


Le RAD Visual Basic de MicroSof conçu à partir de 1992, basé sur le langage Basic avait pour 
objectif le développement de petits logiciels sous Windows par des programmeurs non 
expérimentés et occasionnels. Actuellement il se décline en VB.Net un langage totalement 
orienté objet faisant partie intégrante de la plate-forme .Net Framework de Microsoft. 


Le métier de développeur devrait à terme, consister grâce à des outils tels que les RAD visuels, à 
prendre un "caddie" et à aller dans un supermarché de composants logiciels génériques adaptés à 


son problème. Il ne lui resterait plus qu'à assembler le flot des événements reliant entre eux ces 
logiciels en kit. 


2. Programmation orientée événements 


Sous les versions actuelles de Windows, système multi-tâches préemptif sur micro-ordinateur, 


les concepts quant à la programmation par événement restent sensiblement les mêmes que 
sous les anciennes versions. 


>= 


# + ra D À De £ané 
événement 2 F Pr ss Na événement 
clavier 7 ne N, souris 
se Pl Un “ 
8 “action action * S 
LR fr ans 
ET LA MS 
Tâche |* * * * | Tâche * * * * | Tâche 
J'appui 
ppuis Sur une 


Je déplace la souris 
touche clavier 


Nous dirons que le système d’exploitation passe l’essentiel de son " temps " à attendre une 


action de l’utilisateur (événement). Cette action déclenche un message que le système traite et 
envoie éventuellement à une application donnée. 
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| Une définition de la programmation orientée événements 


Logique de conception selon laquelle un programme est construit avec des 
objets et leurs propriétés et d’après laquelle les interventions de l’utilisateur 
sur les objets du programme déclenchent l’exécution des routines associées. 


Par la suite, nous allons voir dans ce chapitre que la programmation d’une application " 
windows-like " est essentiellement une programmation par événements associée à une 
programmation classique. 


Nous pourrons construire un logiciel qui réagira sur les interventions de l’utilisateur si nous 
arrivons à intercepter dans notre application les messages que le système envoie. Or 
l’environnement RAD ( Delphi , comme d’ailleurs avant lui Visual Basic de Microsoft), 
autorise la consultation de tels messages d’un façon simple et souple. 


| Deux approches pour construire un programme 


a L'approche événementielle intervient principalement dans l’interface entre 
le logiciel et l’utilisateur, mais aussi dans la liaison dynamique du logiciel 
avec le système, et enfin dans la sécurité. 


a L'approche visuelle nous aide et simplifie notre tâche dans la construction 
du dialogue homme-machine. 


a La combinaison de ces deux approches produit un logiciel habillé et adapté 
au système d’exploitation. 


Il est possible de relier certains objets entre eux par des relations événementielles. Nous les 
représenterons par un graphe (structure classique utilisée pour représenter des relations). 
Lorsque l’on utilise un système multi-fenêtré du genre windows, l’on dispose du clavier et de 
la souris pour agir sur le système. En utilisant un RAD visuel, il est possible de construire un 
logiciel qui se comporte comme le système sur lequel il s’exécute. L'intérêt est que 
l’utilisateur aura moins d’efforts à accomplir pour se servir du programme puisqu’il aura des 
fonctionnalités semblables au système. Le fait que l’utilisateur reste dans un environnement 
familier au niveau de la manipulation et du confort du dialogue, assure le logiciel d’un capital 
confiance de départ non négligeable. 


3. Normalisation du graphe événementiel 


Il n’existe que peu d’éléments accessibles aux débutants sur la programmation orientée 
objet par événements. Nous construisons une démarche méthodique pour le débutant, en 
partant de remarques simples que nous décrivons sous forme de schémas dérivés des 
diagrammes d'états d'UML. Ces schémas seront utiles pour nous aider à décrire et à 
implanter des relations événementielles en Delphi ou dans un autre RAD événementiel. 
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Voici deux principes qui pour l’instant seront suffisants à nos activités de programmation. 
Dans une interface windows-like nous savons que: 


a Certains événements déclenchent immédiatement des actions comme par 
exemple des appels de routines système. 


a D’autres événements ne déclenchent pas d’actions apparentes mais activent 
ou désactivent certains autres événements système. 


Nous allons utiliser ces deux principes pour conduire notre programmation par événements. 


Nous commencerons par le concept d’activation et de désactivation, les autres événements 
fonctionneront selon les mêmes bases. Dans un enseignement sur la programmation 
événementielle, nous avons constaté que ce concept était suffisant pour que les étudiants 
comprennent les fondamentaux de l’approche événementielle. 


Remarque : 
Attention! Il ne s’agit que d’une manière particulière de conduire notre 
programmation, ce ne peut donc être ni la seule, ni la meilleure (le sens accordé 
au mot meilleur est relatif au domaine pédagogique). Cette démarche s’est révélée 


être fructueuse lors d’enseignements d’initiation à ce genre de programmation. 


Nous supposons donc que lorsque l’utilisateur intervient sur le programme en cours 
d’exécution, ce dernier réagira en première analyse de deux manières possibles : 


a soit il lancera l’appel d’un routine (exécution d’une action, calcul, lecture de fichier, 
message à un autre objet comme ouverture d’une fiche etc.…..), 


a soit il modifiera l’état d’activation d’autres objets du programme et/ou de lui-même, soit il 
ne se passera rien, nous dirons alors qu’il s’agit d’une modification nulle. 


Ces hypothèses sont largement suffisantes pour la plupart des logiciels que nous pouvons 
raisonnablement espérer construire en initiation. Les concepts plus techniques de messages 
dépassent assez vite l’étudiant qui risque de replonger dans de " la grande bidouille ". 


3.1 le graphe événementiel arcs et sommets 


Nous proposons de construire un graphe dans lequel : 


chaque sommet est un objet 
sensible à un événement donné. 
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L'événement donné est déclenché > > ED 
par une action extérieure à l’objet. action 


Les arcs du graphe représentent des actions lancées par un sommet. 


inhibition de la commande en cours d'exécution 


EE achon effectuée sur l'objet 
action 
) A4 


activation d'une méthode de l'objet PRE 


1 Le 2 activation d'une commande 


lancement d'une procédure utilisateur 


"tt 


Soit le graphe événementiel suivant composé de 5 objets sensibles chacun à un événement particulier dénoté 
Evt-1,..., Evt-5; ce graphe comporte des réactions de chaque objet à l'événement auquel il est sensible : 
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Imaginons que ce graphe corresponde à une analyse de chargements de deux types différents 
de données à des fins de calcul sur leurs valeurs. 


La figure suivante propose un tel graphe événementiel à partir du graphe vide précédent. 


Cette notation de graphe événementiel est destinée à s'initier à la pratique de la description 
d'au maximum 4 types de réactions d'un objet sur la sollicitation d'un seul événement. 


Remarques : 


L'arc nommé, représentant l'activation d'une méthode correspond très exactement à la notation 
UML de l'envoi d'un message. 


Lorsque nous voudrons représenter d'une manière plus complète d'autres réactions d'un seul 
objet à plusieurs événements différents, nous pourrons utiliser la notation UML réduite de 
diagramme d'état pour un objet (réduite parce qu'un objet visuel ne prendra pour nous, que 2 
états: activé ou désactivé). 


3.2 les diagrammes d'états UML réduits 


Nous livrons ci-dessous la notation générale de diagramme d'état en UML, les cas particuliers 
et les détails complets sont décrits dans le document de spécification d'UML. 


Etat n°1 
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Voici les diagrammes d'états réduits extraits du graphe événementiel précédent, pour les 
objets Evt-1 et Evt-2 : 


Objet Evtl activé Objet Evt2 activé 


action: {activer Obj Evt3, action : { désactiver Oby Evt2 ; 
activer Obj Evt4 } charger données } 


etc. 


Nous remarquerons que cette écriture, pour l'instant, ne produit pas plus de sens que le graphe 
précédent qui comporte en sus la vision globale des interrelations entre les objets. 

Ces diagrammes d'états réduits deviennent plus intéressants lorsque nous voulons exprimer le 
fait par exemple, qu'un seul objet Obj1 réagit à 3 événements (événement-1, événement-2, 
événement-3). Dans ce cas décrivons les portions de graphe événementiel associés à chacun 
des événements : 


Réaction de obj1 à l'événement-1 : Réaction de obj1 à l'événement-2 : 


Ojet: Ohj2 
Ojet: Ohj4 


Synthétisons dans un diagramme d'état réduit les réactions à ces 3 événements : 
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Objet:Obj activé 


actioni: {activer ObJ2; 
désactiver Obj1 } 


action2: { activer Oby3; 
désactiver Obj4 } 


action3: { désactiver Obj1, 
activer Obj5 ; 
consulter fichier } 


Lorsque nous jugerons nécessaire à la compréhension de relations événementielles dans un 
logiciel visuel, nous pourrons donc utiliser ce genre de diagramme pour renforcer la 
sémantique de conception des objets visuels. La notation UML sur les diagrammes d'états 
comprend les notions d'état de départ, de sortie, imbriqué, historisé, concurrents... 

Lorsque cela sera nécessaire nous utiliserons la notation UML de synchronisation 
d'événements : 


_ 


Dans le premier cas la notation représente la / 
ev3 


evi  ev2 


conjonction des deux événements evil et ev2 qui 


déclenche l'événement eva. | 


ev4 
Dans le second cas la notation représente | 
l'événement ev4 déclenchant conjointement les 
deux événements evs et ev6. 
ev5  evé 


4, Tableau des actions événementielles 


L’exemple de graphe événementiel précédent correspond à une application qui serait sensible 
à 5 événements notés EVT-1 à EVT-S, et qui exécuterait 3 procédures utilisateur. Nous 
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notons dans un tableau (nommé " fableau des actions événementielles "jles résultats obtenus 
par analyse du graphe précédent, événement par événement. 


Ru 2 
EVT-4 activable 

Appel de procédure 

utilisateur "chargement-1" 

désactivation de l” événement 

EVT-2 


Appel de procédure 
utilisateur "Analyser" 
EVT-2 activable 
EVT-2 désactivé 
EVT-S activable 

EVT-4 désactivé immédiatement 

Appel de procédure utilisateur 

"chargement-2" 


Nous adjoignons à ce tableau une table des états des événements dès le lancement du logiciel 
(elle correspond à l’état initial des objets). Par exemple ici : 


Evtl activé 
Evt2 désactivé 
Evt3 activé 
Evt4 activé 
Evts désactivé 


etc. 


5. Interfaces liées à un graphe événementiel 


construction d’interfaces liées au graphe précédent 
Interface n°1 


=101X*) 


Dans l’exemple de droite, 
(i1,12,13,14,15 )est une permutation sur 
(1,2,3,4,5). 


Ce qui nous donne déjà 5!—120 
interfaces possibles avec ces objets et 


uniquement avec cette topologie. AS 


Enr-D ŒT-5) 


Les bases de l'informatique - programmation - (:6:. 05.09.2004 ) page 466 


La figure précédente montre une IHM (construite avec des objets Delphi) à partir du graphe 
événementiel étudié plus haut. Ci-dessous deux autres structures d’interfaces possibles avec 
les mêmes objets combinés différemment et associés au même graphe événementiel : 


« Pire EX 
4 PAral EX 


Zone 1.1 Zone 2.1 Bouton 1 | Bouton 2 | 
£one 1.2 Zone 2.2 


Bouton 3 | Bouton 4 | 


Interface n°2 Interface n°3 


Pour les choix n°2 et n°3, il y a aussi 120 interfaces possibles… 


6. Avantages du modèle de développement RAD visuel 


L’approche uniquement structurée (privilégiant les fonctions du logiciel) impose d’écrire du 
code long et compliqué en risquant de ne pas aboutir, car 1l faut tout tester afin d’assurer un 
bon fonctionnement de tous les éléments du logiciel. 


L’approche événementielle préfère bâtir un logiciel fondé sur une construction graduelle en 
fonction des besoins de communication entre l’humain et la machine. Dans cette optique, le 


programmeur élabore les fonctions associées à une action de communication en privilégiant le 
dialogue. Ainsi les actions internes du logiciel sont subordonnées au flux du dialogue. 


Avantages liés à la programmation par RAD visuel 


a Jlest possible de construire très rapidement un prototype. 


a Les fonctionnalités de communication sont les guides principaux du développement 
(approche plus vivante et attrayante). 


a L'étudiant est impliqué immédiatement dans le processus de conception - construction. 
L'étudiant acquiert très vite comme naturelle l’attitude de réutilisation en se servant de " 


logiciels en kit " (soit au début des composants visuels ou non, puis par la suite ses propres 
composants). 
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Il n’y a pas de conflit ni d’incohérence avec la démarche structurée : les algorithmes étant 
conçus comme des boîtes noires permettant d’implanter certaines actions, seront réutilisés 
immédiatement. 

La méthodologie objet de COO et de POO reste un facteur d’intégration général des activités 
du programmeur. 


Les actions de communications classiques sont assurées immédiatement par des objets 
standards (composants visuels ou non) réagissant à des événements extérieurs. 

Le RAD fournira des classes d’objets standards non visuels (extensibles si l’étudiant 
augmente sa compétence) gérant les structures de données classiques (Liste, arbre, etc..). 
L’extensibilité permet à l’enseignant de rajouter ses kits personnels d’objets et de les mettre à 
la disposition des étudiants comme des outils standards. 


Modèles de développement avec un RAD visuel objet 


Le développement avec ce genre de produit autorise une logique générale articulée sur la 
combinaison de deux modèles de développement : 


le modèle de la spirale (B.Boehm) en version simplifiée 


Dans le modèle de la spirale la programmation exploratoire est utilisée sous forme de 
prototypes simplifiés cycle après cycle. L'analyse s'améliore au cours de chaque cycle et fixe 
le type de développement pour ce tour de spirale. 


le modèle incrémental 


Il permet de réaliser chaque prototype avec un bloc central au départ, s'enrichissant à chaque 
phase de nouveaux composants et ainsi que de leurs interactions. 
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Associé à un cycle de prototypage dans la spirale, une seule famille de composants est 
développée pour un cycle fixé. 


Ce modèle de développement à l'aide d'objets visuels ou non, fournira en fin de parcours un 
prototype opérationnel qui pourra s'intégrer dans un projet plus général. 


Nous verrons sur des exemples comment ce type d'outil peut procurer aussi des 
avantages au niveau de la programmation défensive. 
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5.5 Les événements avec Delphi 


Plan du chapitre: É 
Programmes événementiels 


Pointeur de méthode 

Affecter un pointeur de méthode 

Un événement est un pointeur de méthode 

Quel est le code engendré 

Exercice-récapitulatif 

Notice méthodologique pour créer un nouvel événement 
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1. Programmes événementiels avec Delphi 


Delphi comme les autres RAD événementiels permet de construire du code qui est exécuté en 
réponse à des événements. Un événement Delphi est une propriété d'un type spécial que nous 
allons examiner plus loin. 


Le code de réaction à un événement particulier est une méthode qui s'appelle un gestionnaire 
de cet événement. 


Un événement est en fait un pointeur vers la méthode qui est chargée de le gérer. Définissons 
la notion de pointeur de méthode qui est utilisée ici, notion largement utilisée en général dans 
les langages objets. 


Pointeur de méthode 


Un pointeur de méthode est une paire de pointeurs (adresses mémoire), le premier 
contient l'adresse d'une méthode et le second une référence à l'objet auquel appartient la 
méthode. 


Schéma ci-après d'un objet Obj1 de classe clA contenant un champ du type pointeur vers la 
méthode meth1 de l'objet Obj2 de classe clB : 


référence de l'objet 


_methi 


Obj;: clA 


(14792 ,14785) j 


pointeur de méthode 


adresse de la méthode 


Pointeur de méthode en Delphi 


Pour pointer la méthode d'une instance d'objet en Delphi, nous devons déclarer un nouveau 
type auquel nous ajoutons à la fin le qualificateur of object . 
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Exemples de types pointeurs de méthode et de variable de type pointeur de méthode : 


type 


ptrMethodel = procedure of object; 
ptrMethode2 = procedure (x : real) of object; 
ptrMethode3 = procedure (x,y: integer; var z:char) of object; 


var 
Proc1 : ptrtMethodel; / pointeur vers une méthode sans paramètre 
Proc? : ptrMethode?; // pointeur vers une méthode à un paramètre real 
Proc3 : ptrMethode3; // pointeur vers une méthode à trois paramètres 2 entiers, 1 char 


Schéma ci-après d'un objet Obj1 de classe clA contenant un champ proc1 du type 
ptrMethodel qui pointe vers la meth1 de l'objet Obj2 de classe clB. On suppose que l'adresse 
mémoire de l'objet est 14785 et l'adresse de la méthode meth1 de l'objet est 14792 : 


référence de l'objet 


Obj;: clA 


procedure ciB.meth1: 
begin 


(14792 , 14785) x . 


pointeur de méthode 


adresse de la méthode meth1 


Il est impératif que la méthode vers laquelle pointe la variable de pointeur de méthode soit du 
type prévu par le type pointeur de méthode, ici la méthode meth1 doit obligatoirement être 
une procédure sans paramètre (compatibilité d'en-tête). 


Schéma ci-après d'un objet Obj1 de classe clA contenant un champ proc? du type 
ptrMethode? qui pointe vers la meth2 de l'objet Obj2 de classe clB. On suppose que l'adresse 
mémoire de l'objet est 14785 et l'adresse de la méthode meth2 de l'objet est 14805 : 


référence de l'objet 


Obj;: clA 


procedure cIB_.meth2(x : real ) ; 
begin 


(14805 , 14785) j end: 


pointeur de méthode 
14905 


adresse de la méthode meth2 
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La remarque précédente sur l'obligation de compatibilité de l'en-tête de la méthode et le type 
pointeur de méthode implique que la méthode meth2 doit nécessairement être une procédure 
à un seul paramètre real. 


Affecter un pointeur de méthode 


Nous venons de voir comment déclarer un type pointeur de méthode et un champ de ce même 
type, nous avons signalé que ce champ doit pointer vers une méthode ayant une en-tête 
compatible avec le type pointeur de méthode, 1l nous reste à connaître le mécanisme qu'utilise 
Delphi pour lier un champ pointeur et une méthode à pointer. 


Types pointeurs de méthodes 


ptrMethodel = procedure of object; 
ptrMethode2 = procedure (x : real) of object; 


champs de pointeurs de méthodes 


Proc1 : ptrMethodel; / pointeur vers une méthode sans paramètre 
Proc? : ptrMethode?; // pointeur vers une méthode à un paramètre real 


Diverses méthodes : 


procedure P1; procedure P2 (x:real); procedure P3 (x:char); procedure P4; 
begin begin begin begin 
end; end; end; end; 


Recensons d'abord les compatibilités d'en-tête qui autoriseront le pointage de la méthode : 
Proci peut pointer vers P1 , P4 qui sont les deux seules méthodes compatibles. 

Proc2 ne peut pointer que vers P2 qui est la seule méthode à un paramètre de type real. 

La liaison (le pointage) s'effectue tout naturellement à travers une affectation : 
L'affectation Procl := P1; indique que Proc1 pointe maintenant vers la méthode P1 et peut 
être utilisé comme un identificateur de procédure ayant la même signature que P1. 
Exemple d'utilisation : 


Proc2 := P2; / liaison du pointeur et de la procédure P2 


Proc2(45.8); / appel de la procédure vers laquelle Proc2 pointe avec passage du paramètre 45.8 


Un événement est un pointeur de méthode 


Nous avons indiqué que les gestionnaires d'événements sont des méthodes, les champs du 
genre événements présents dans les classes Delphi sont en fait des pointeurs de méthode, qui 
peuvent pointer vers des gestionnaires d'événements. 
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Un type d'événement est donc un type pointeur de méthode, Delphi possède plusieurs types 
d'événements par exemple : 


TNotifyEvent = procedure (Sender: TObject) of object; 
TMouseMoveEvent = procedure (Sender: TObject; Shift: TShiftState; X, Y: Integer) of object; 
TKeyPressEvent = procedure (Sender: TObject; var Key: Char) of object; 


etc 


Un événement est donc une propriété de type pointeur de méthode (type événement) : 


property OnClick: TNotifyEvent; // événement click de souris 
property OnMouseMove: TMouseMoveEvent; // événement passage de la souris 
property OnKeyPress: TKeyPressEvent; / événement touche de clavier pressée 


Quel est le code engendré pour gérer un événement ? 


Intéressons nous maintenant au code engendré par un programme simple constitué d'une fiche 
Forml de classe TForml avec un objet Button1 de classe Tbutton déposé sur la fiche : 


object Forml: TForml 
Left = 198 
Top = 109 
Width = 245 
Height = 130 
Caption = 'Forml' 
Color = clBtnFace 
Font.Charset = DEFAULT _CHARSE 
unit Unit1: Font.Color = clWindowText 
Font.Heïight = -11 
Font.Name ='MS Sans Serif' 


interface 


Font.Style = | ] 
OldCreateOrder = False 
PixelsPerInch = 96 
TextHeight = 13 


uses 
Windows, Messages, SysUtils, Variants, Classes, 
Graphics, Controls, Forms, Dialogs, StdCtrls; 


object Buttonl: TButton 


t 
YPe Left = 80 


TFormi1 = class(TForm) 


Buttonl: TButton; 7 A 
private ve a. 
{ Déclarations privées } Ho x 2 \ 
public Caption ='Button1 
{ Déclarations publiques } À Le code source TabOrder = 0 
end; apparent fournit au end 
programmeur. Il 
var Forml: TForml; permet 
l'intervention du 
implementation programmeur sur la 
fiche et sur ses 
{$R *.dfm} composants. 
end. 
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Demandons à Delphi de nous fournir (à partir de l'inspecteur d'objet) les gestionnaires des 3 
événements OnClick, OnMouseMove et OnKeyPress de réaction de l'objet Button1 au click 
de souris, au passage de la souris et à l'appui sur une touche du clavier: 


click de souris 


passage de la souris 
touche clavier pressée 


unit Unitl; 
interface 
uses 


Windows, Messages, SysUtils, Variants, Classes, 
Graphics, Controls, Forms, Dialogs, StdCtrls; 


type 
TFormi = class(TForm) 
Button1: TButton; 
procedure Button1Click (Sender: TObject); 


procedure Button1MouseMove (Sender: TObject; Shift: TShiftState; X,Y: Integer); 
procedure Button1KeyPress (Sender: TObject; var Key: Char); 


private 

{ Déclarations privées } 
public 

{ Déclarations publiques } 
end; 


var Forml: TForml; 
implementation 


procedure TForm1.Button1Click (Sender: TObject); 
begin 


{ Gestionnaire OnClick } 


procedure TForm1.Button1MouseMove (Sender: TObject; Shift: 7 
begin 


, 


{ Gestionnaire OnMouseMove } 


end; 


procedure TForm1.Button1KeyPress (Sender: TObject; var Key: Char): 
begin 


{ Gestionnaire OnKeyPress } 


end; 


end. 
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Delphi engendre un code source visible en pascal objet modifiable et un code intermédiaire 
(que l'on peut voir et éventuellement modifier) : 


a Le code source visible est celui qui nous sert à programmer nos algorithmes, nos classes, 
et les réactions aux événements. 


a Le code intermédiaire est généré au fur et à mesure que nous intervenons visuellement sur 
l'interface et contient l'initialisation de l'interface (affectations de gestionnaires 
d'événements, couleurs des fonds, positions des composants, taille, polices de caractères, 
conteneurs et contenus etc...) 1l sert au compilateur. 


Nous venons de voir que Delphi a généré en code intermédiaire pour nous, les affectations de 
chaque événement à un gestionnaire : 


OnClick = Button1Click 


OnKeyPress = ButtoniKeyPress 
OnMouseMove = Button1MouseMove 


Et il nous a fournit les squelettes vides de chacun des trois gestionnaires : 


procedure TForml1.Button1Click (Sender: TObject); … 
procedure TForml.Button1MouseMove (Sender: TObject; Shift: TShiftState; X,Y: Integer); … 


procedure TForm1.Button1KeyPress (Sender: TObject;, var Key: Char); … 


La dernière étape du processus de programmation de la réaction du Button1i est de 
programmer du code à l'intérieur des squelettes des gestionnaires. 


Lors de l'exécution si nous cliquons avec la souris sur le Button1, un mécanisme 


d'interception et de répartition figuré ci-dessous appelle le gestionnaire de l'événément 
OnClick dont le corps a été programmé : 


procedure Button {Click (Sender: TObject; 


Appel au gestionnaire 
de OnClick it 


message 
Répartition 


L'utilisateur vient de du 
cliquer sur le bouton Application message 
avec la souris | 


Reception du message 


fig : Appel du gestionnaire procedure TForm1.Button1Click (Sender: TObject) sur click de souris 
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Exercice-récapitulatif 


Nous voulons construire une interface permettant la saisie par l’utilisateur de deux entiers et l’autorisant à 
effectuer leur somme et leur produit uniquement lorsque les entiers sont entrés tous les deux. Aucune sécurité 
n’est apportée pour l’instant sur les données. 


«1 Exemple de saisie de calcul 


Entrez un entier 


Voici l'état visuel de l'interface au 
lancement du programme : Somme = 0 


Entrez un entier Produf = 0 
2 zones de saisie | 


2 boutons d'actions 


2 zones d'affichages des résultats Calcul | EFFACER 


«i Exemple de saisie de calcul 


Entrez un entier 
Dès que les deux entiers sont 124 
entrés, le bouton Calcul est activé: Somme = 0 


Entrez un entier Produit = 0 


EFFACER | 


ai Exemple de saisie de calcul 


Lorsque l’on clique sur le bouton Entrez un entier 

Calcul, le bouton EFFACER est 124 

activé et les résultats s'affichent Somme = 156 
dans leurs zones respectives : 


Entrez un entier Produit = 
BE 


3 


| Calcul EFFACER | 


Un clic sur le bouton EFFACER ramène l’interface à l’état initial. 
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Graphe événementiel complet de l'interface 


Avec comme conventions sur les messages : 
X, = exécuter les calculs sur les valeurs entrées. 


X; — exécuter l’effacement des résultats. 


M, = message à l’editl de tout effacer. 


M, = message à l’edit2 de tout effacer. 


Table des actions événementielles associées au graphe 


Changer Calcul activable 
Edit1 (si changer Edit? a eu lieu) 


Changer Calcul activable 
EDIT2 (si changer Edit1 a eu lieu) 


activable 
ALACULE Afficher les résultats 
EFFACER désactivé 
Clic CALCUL désactivé 
EFFACER Message MI 
Message M2 


Table des états initiaux des objets sensibles aux événements 


Edit1 
Edit2 


Buttoncalcul 
Buttoneffacer 


e __ Nous voulons disposer d’un bouton permettant de lancer le calcul lorsque c’est possible et 
d’un bouton permettant de tout effacer. Les deux boutons seront désactivés au départ. 

e Nous choisissons 6 objets visuels : deux TEdit, Edit1 et Edit2 pour la saisie ; deux 
Tbutton, ButtonCalcul et Buttoneffacer pour les changements de plans d’action ; deux 
Tlabel LabelSomme et LabelProduit pour les résultats 


Les bases de l'informatique - programmation - (6: 05.09.2004 ) page. 478 


Les objets visuels Delphi choisis 


Edit1: TEdit; 
Edit2: TEdit; 


LabelSomme: TLabel; } TLabel }. 4140 
LabelProduit: TLabel; Entrez un entier 


ButtonCalcul: TButton; 


Calcul | trez un entier Eaè) She 
Buttoneffacer: TButton; 


EFFACER | Con CODE | 


Construction progressive du gestionnaire d'événement Onchange 


Nous devons réaliser une synchronisation des entrées dans Editl et Edit? : le déverrouillage 
(activation) du bouton ” ButtonCalcul " ne doit avoir lieu que lorsque Editi et Edit2 
contiennent des valeurs. Ces deux objets de classe TEdit, sont sensibles à l’événement 
OnChange qui indique que le contenu du champ text a été modifié, l’action est indiquée dans 
le graphe événementiel sous le vocable " changer ”. 


La synchronisation se fera à l’aide de deux drapeaux binaires (des booléens) qui seront levés 
chacun séparément par les TEdit lors du changement de leur contenu. Le drapeau Som ok est 
levé par l’Editl, le drapeau Prod ok est levé par l’Edit2. 


Implantation : deux champs privés booléens 
Som_ok , Prod_ok : boolean:; 


Le drapeau Som_ok est levé par l’Edit1 lors du changement du contenu de son champ text, 
sur l’apparition de l’événement OnChange, il en est de même pour le drapeau Prod_ ok et 
l’Edit2 : 


Implantation n°1 du gestionnaire de OnChange : 
procedure TForm1.EditiChange(Sender: TObject);| procedure TForm1 .Edit2Change(Sender: TObject); 
begin begin 
Som_ok:=true; // drapeau de Edit1 levé Prod_ok:=true; // drapeau de Edit? levé 
end; end; 


Une méthode privée de test vérifiera que les deux drapeaux ont été levés et lancera 
l’activation du ButtonCalcul. 


procedure TForml1.TestEntrees; 
{les drapeaux sont-ils levés tous les deux ?} 
begin 


if Prod_ok and Som_ok then 
ButtonCalcul.Enabled:=true // si oui: le bouton calcul est activé 
end; 
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Nous devons maintenant tester lorsque nous levons un drapeau si l’autre n’est pas déjà levé. 
Cette opération s’effectue dans les gestionnaires de l’événement OnChange de chacun des 
Editl et Edit2 : 


Implantation n°2 du gestionnaire de OnChange : 


procedure TForm1.EditiChange(Sender: TObject);| procedure TForm1.Edit2Change(Sender: TObject); 
begin begin 


Som_ok:=true; // drapeau de Edit1 levé Prod_ok:=true; // drapeau de Edit? levé 
TestEntrees; TestEntrees; 
end; end; 


Construction des gestionnaires d'événement Onclick 


Nous devons gérer l’événement clic sur le bouton calcul qui doit calculer la somme et le 
produit, placer les résultats dans les deux Tlabels et activer le Buttoneffacer. 


Implantation du gestionnaire de OnClick du ButtonCalcul : 


procedure TForm1.ButtonCalculClick(Sender: TObject); 
var S , P : integer:; 
begin 
S:=strtoint(Edit1.text); / transtypage : string à integer 
P:=strtoint(Edit2.text); / transtypage : string à integer 
LabelSomme.caption:=inttostr(P+S); 
LabelProduit.caption:=inttostr(P*S); 
Buttoneffacer.Enabled:=true // le bouton effacer est activé 
end; 


Nous codons une méthode privée dont le rôle est de réinitialiser l’interface à son état de 
départ indiqué dans la table des états initiaux : 


; Activé procedure TForm1.RAZTout; 
Edit1 begin 


— Buttoneffacer.Enabled:=false; /le bouton effacer se désactive 
Edit2 Activé ButtonCalcul.Enabled:=false; //le bouton calcul se désactive 
LabelSomme.caption:="0"; /’ RAZ valeur somme affichée 
Dre LabelProduit.caption:="0";, // RAZ valeur produit affichée 


Buttoncalcul Edit1.clear; / message M1 
Edit2.clear; / message M2 


Prod_ok:=false; // RAZ drapeau Edir2 
Buttoneffacer | désactivé Som_ok:=false; // RAZ drapeau Edit1 
end; 


Nous devons gérer l’événement click sur le Buttoneffacer qui doit remettre l’interface à son 
état initial (par appel à la procédure RAZTout ) : 


Implantation du gestionnaire de OnClick du Buttoneffacer: 


procedure TForml1.ButtoneffacerClick(Sender: TObject); 
begin 


RAZTout; 
end; 


Les bases de l'informatique - programmation - (6: 05.09.2004 ) page 480 


Au final, lorsque l'application se lance et que l'interface est créée nous devons positionner 
tous les objets à l’état initial (nous choisissons de lancer cette initialisation sur l’événement 
OnCreate de création de la fiche): 


Implantation du gestionnaire de OnCreate de la fiche Forml: 


procedure TForm1.FormCreate(Sender: TObject); 
begin 


RAZTout; 
end; 


S1 nous essayons notre interface nous constatons que nous avons un problème de sécurité à 
deux niveaux dans notre saisie : 


a Le premier niveau est celui des corrections apportées par l’utilisateur (effacement de 
chiffres déjà entrés) et la synchronisation avec l’éventuelle vacuité d’au moins un des 
champs text après une telle modification : en effet l’utilisateur peut effacer tout le contenu 
d’un " Edit " et lancer alors le calcul, provoquant ainsi des erreurs. 


a Le deuxième niveau classique est celui du transtypage incorrect, dans le cas où 
l'utilisateur commet des fautes de frappe et rentre des données autres que des chiffres (des 
lettres ou d’autres caractères du clavier). 


Améliorations de sécurité du premier niveau par plan d’action 


Nous protégeons les calculs dans le logiciel, par un test sur la vacuité du champ text de 
chaque objet de saisie TEdit. Dans le cas favorable où le champ n’est pas vide, on autorise la 
saisie ; dans l’autre cas on désactive systématiquement le ButtonCalcul et l’on abaisse le 
drapeau qui avait été levé lors de l’entrée du premier chiffre, ce qui empêchera toute erreur 
ultérieure. L’utilisateur comprendra de lui-même que tant qu’il n’y a pas de valeur dans les 
entrées, le logiciel ne fera rien et on ne passera donc pas au plan d’action suivant (calcul et 
affichage). Cette amélioration s’effectue dans les gestionnaires d’événement OnChange des 
deux TEdit. 


Implantation n°2 du gestionnaire de OnChange : 


procedure TForm1.EditiChange(Sender: TObject);| procedure TForm1.EditiChange(Sender: TObject); 
begin begin 
if Edit1.text<'" then / champ text non vide ok ! if Edit2.text<' ‘then / champ text non vide ok ! 
begin begin 

Som_ok:=true; Prod_ok:=true; 

TestEntrees; TestEntrees; 


end end 

else else 

begin begin 
ButtonCalcul.enabled:=false; // bouton désactivé ButtonCalcul.enabled:=false; //bouton désactivé 
Som_ok:=false; / drapeau de Editl baissé Prod_ok:=false; / drapeau de Edit2 baissé 

end end 

end; end; 


On remarque que les deux codes précédents sont très proches, ils diffèrent par leTEdit et le 
drapeau auxquels ils s'appliquent. Il est possible de réduire le code redondant en construisant 
par exemple une méthode privée avec deux paramètres. 
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Regroupement du code 


Soit la méthode privée Autorise possédant deux paramètres, le premier est la référence d'un 
des deux TEdit, le second le drapeau booléen associé : 


procedure TForml.Autorise ( Ed : TEdit ; var flag : boolean ); 
begin 
if Ed.text<' ‘then // champ text non vide ok ! 
begin 
flag :=true; 
TestEntrees; 
end 


else 
begin 
ButtonCalcul.enabled:=false; //houton désactivé 
flag:=false; / drapeau de Ed baissé 
end 
end; 


Nouvelle implantation n°2 du gestionnaire de OnChange : 


procedure TForm1.EditiChange(Sender: TObject);| procedure TForm1.Edit2Change(Sender: TObject); 
begin begin 


Autorise ( Editl , Som_ok ); Autorise ( Edit2 , Prod_ok }); 
end; end; 


Code final où tout est regroupé dans la classe TForm1 
unit UFcalcul; 
interface 


uses 
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, ExtCtrls; 


type 
TForm1= class ( TForm ) 
Edit1: TEdit; 
Edit2: TEdit; 
ButtonCalcul: TButton; 
LabelSomme: TLabel; 
LabelProduit: TLabel; 
Buttoneffacer: TButton; 
procedure FormCreate(Sender: TObject); 
procedure Edit1Change(Sender: TObject); 
procedure Edit2Change(Sender: TObject); 
procedure ButtonCalculClick(Sender: TObject); 
procedure ButtoneffacerClick(Sender: TObject); 
private / Déclarations privées } 
Som_ok , Prod_ok : 
procedure TestEntrees; 
procedure RAZTout; 
procedure Autorise ( Ed : TEdit ; var flag : boolean }; 
public / Déclarations publiques } 
end; 
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implementation 
{> Méthodes privées --------------"""" } 
procedure TForml1.TestEntrees; 
{les drapeaux sont-ils levés tous les deux ?} 
begin 

if Prod_ok and Som_ok then 

ButtonCalcul.Enabled:=true // si oui: le bouton calcul est activé 

end; 


procedure TForm1.RAZTout; 

begin 
Buttoneffacer.Enabled:=false; /le bouton effacer se désactive 
ButtonCalcul.Enabled:=false; //le bouton calcul se désactive 
LabelSomme.caption:="0"; // RAZ valeur somme affichée 
LabelProduit.caption:="0"; // RAZ valeur produit affichée 
Edit1.clear; / message M1 
Edit2.clear; // message M2 
Prod_ok:=false; // RAZ drapeau Edit2 
Som_ok:=false; // RAZ drapeau Edit1 

end; 


procedure TForm1.Autorise ( Ed : TEdit ; var flag : boolean ); 
begin 
if Ed.text<'" then // champ text non vide ok ! 
begin 
flag :=true; 
TestEntrees; 
end 
else 
begin 
ButtonCalcul.enabled:=false; //houton désactivé 
flag:=false; / drapeau de Ed baissé 
end 


{> Gestionnaires d'événements ------------------ } 
procedure TForm1.FormCreate(Sender: TObject); 
begin 
RAZTout; 
end; 


procedure TForm1.EditiChange(Sender: TObject); 
begin 

Autorise ( Editl , Som_ok }; 
end; 


procedure TForm1.Edit2Change(Sender: TObject); 
begin 

Autorise ( Edit2 , Prod_ok }; 
end; 


procedure TForm1.ButtonCalculClick(Sender: TObject); 
var S , P : integer; 
begin 
S:=strtoint(Edit1.text); / franstypage : string à integer 
P:=strtoint(Edit2.text); / transtypage : string à integer 
LabelSomme.caption:=inttostr(P+S); 
LabelProduit.caption:=inttostr(P#S); 
Buttoneffacer.Enabled:=true / le bouton effacer est activé 
end; 
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procedure TForml1.ButtoneffacerClick(Sender: TObject); 
begin 

RAZTout; 
end; 


end. 


Un gestionnaire d'événement centralisé grâce au : 
-__polymorphisme d'objet 
-__ pointeur de méthode 


Chaque Edit possède son propre gestionnaire de l'événement OnChange : 


procedure EditiChange(Sender:TObject); 


OnChange 
procedure Edit2Change{Sender:TObject); 


OnChange 


procedure TForm1.EditiChange(Sender: TObject);| procedure TForm1.Edit2Change(Sender: TObject); 
begin begin 


Autorise ( Editi , Som_ok }; Autorise ( Edit2 , Prod_ok }; 
end; end; 


On peut avoir envie de mettre en place un gestionnaire unique de l'événement OnChange, puis 
de le lier à chaque zone de saisie Editi et Edit2 (souvenons-nous qu'un champ d'événement 
est un pointeur de méthode) : 


procedure TexteChange(Sender:TObject); 


OnChange 


OnChange 


Nous définissons d'abord une méthode public par exemple, qui jouera le rôle de gestionnaire 
centralisé d'événement, nous la nommons TexteChange. 
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Cette méthode pour être considérée comme un gestionnaire de l'événement OnChange, doit 
obligatoirement être compatible avec le type de l'événement Onchange. Une consultation de 
la documentation Delphi nous indique que : 


property OnChange: TNotifyEvent; 


L'événement OnChange est du même type que l'événement OnClick ( TnotifyEvent = 
procedure(Sender:Tobject) of object ), donc notre gestionnaire centralisé TexteChange doit avoir 
l'en-tête suivante : 


procedure TexteChange ( Sender : Tobject ); 


Le paramètre Sender est la référence de l'objet qui appelle la méthode qui est passé 
automatiquement lors de l'exécution, en l'occurrence ici lorsque Editl appellera ce 
gestionnaire c'est la référence de Editi qui sera passée comme paramètre, de même lorsqu'il 
s'agira d'un appel de Edit2. 


Implantation du gestionnaire centralisé 


procedure TForm1.TexteChange(Sender: TObject); 
begin 
if Sender is TEdit then 
begin 
if (Sender as TEdit }=Edit1 then .. . . 
Autorise ( (Sender as TEdit }, Som_ok }: Si l'émetteur est Editl on le transtype en TEdit 
else pour pouvoir le passer en premier paramètre à la 
Autorise ( (Sender as TEdit } , Prod_ok }: méthode Autorise sinon c'est Edit2 et l'on fait la 
même opération. 


On teste si l'émetteur Sender est bien un TEdit, 


polymorphisme d'objet : 


end 
end; 


On lie maintenant ce gestionnaire à chacun des champs OnChange de chaque TEdit dès la 
création de la fiche : 


procedure TForm1.FormCreate(Sender: TObject); 
begin 
RAZTout; : 
Edit1.OnChange := TexteChange : chaque champ Onchange pointe vers le même 
Edit2.OnChange := TexteChange ; gestionnaire (méthode) 


end; 


pointeur de méthode 


TForm1= class ( TForm ) 
Editl: TEdit; 
procedure FormCreate(Sender: TObject); 
procedure ButtonCalculClick(Sender: TObject); 
procedure ButtoneffacerClick(Sender: TObject); 
private / Déclarations privées } 
Som_ok , Prod_ok : 
procedure TestEntrees; 
procedure RAZTout; 
procedure Autorise ( Ed : TEdit ; var flag : boolean }; 
public / Déclarations publiques } 
procedure TexteChange(Sender: TObject); 
end; 
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NOTICE METHODOLOGIQUE 


construire un nouvel événement 


Objectif : Nous proposons ici en suivant pas à pas l'enrichissement du code de 
montrer comment implanter un nouvel événement nommé OnTruc dans une classe 
dénotée ClassA. Puis nous appliquerons cette démarche à une pile Lifo qui sera rendu 


sensible à l'empilement et au dépilement, par adjonction de deux événements à la classe. 


Pour construire un nouvel événement dans ClassA : 
Q Il nous faut d'abord définir un type pour l'événement : EventTruc 
Q Il faut ensuite mettre dans ClassA une propriété d'événement : property OnTruc : EventTruc 


Q Il faut créer un champ privé nommé FOnTruc de type EventTruc en lecture et écriture qui servira de 
champ de stockage de la propriété OnTruc. 


type de l'événement : Pointeur de méthode 


EventTruc = procedure (...) of object 


ObjA : ClassA 


sensible & OnTruc 


property publique 


: EventTruc 
lecture 
écriture 


Version-1 du code source 


Unit UDesignEvent ; 


interface 
type 
EventTruc = procedure (Sender:TObject; info:string) of object ; 


ClassA = class 
private 
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FOnTruc : EventTruc ; 
public 
OnTruc : EventTruc read FOnTruc write FOnTruc ; 
end; 


implementation 


end. 


a Il nous faut maintenant construire une méthode qui va déclencher l'événement, nous 
utilisons une procédure surchargeable dynamiquement afin de permettre des 
redéfinitions utlérieures par les descendants. 


ClassA sensible à 
l'événement Onlruc 


DeclencheTruc() 
us. if Assigned(Ontruc) then 


self,...) 


DeclencheTruc() 


Lorsque l'événement se nomme OnXXX, les équipes de développement Borland donnent la fin du nom de 
l'événement OnXXX à la procédure redéfinissable. Ici pour l'événement OnTruc à la place de 
DeclencheTruc, nous la nommerons Truc. 


Version-2 du code source 


Unit UDesignEvent ; 


interface 
type 
EventTruc = procedure (Sender:TObject; info:string) of object ; 
ClassA = class 
private 
FOnTruc : EventTruc ; 
protected 
procedure Truc(s:string); virtual; / surchargeable dynamiquement 
public 
OnTruc : EventTruc read FOnTruc write FOnTruc ; 
end; 


implementation 


procedure ClassA.Truc(s:string); 
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begin 
if Assigned ( FOnTruc ) then 
FOnTruc (self , s) 
end; 


end. 


a Pour terminer, il nous reste à définir un ou plusieurs gestionnaires possibles de 
l'événement OnTruc (ici nous en avons mis quatre), et à en connecter un à la propriété 
OnTruc de l'objet de classe ClassA. 


Nous définissons une classe ClasseUse qui utilise sur un objet de classe ClassA l'événement OnTruc. 


Obj: ClasseUse 
connexion des gestionnaires 


ObjA : ClassA Les gestionnaires 
sensible & OnTruc 


4 gestionnaires possibles pour le 
même événement 


Version-3 du code source 
Unit UDesignEvent ; 


interface 
type EventTruc = procedure (Sender:TObject; info:string) of object ; 


ClassA = class 
private 
FOnTruc : EventTruc ; 
protected 
procedure Truc(s:string); virtual; / surchargeable dynamiquement 
public 
ObjA : ClassA ; 
OnTruc : EventTruc read FOnTruc write FOnTruc ; 
procedure LancerTruc; / Declenche l'événement OnTruc 
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end; 


ClasseUse = class 
public 

procedure method_100(Sender:TObject; info:string); 
procedure method_101(Sender:TObject; info:string); 
procedure method_102(Sender:TObject; info:string); 
procedure method_103(Sender:TObject; info:string); 
procedure principale; 

end; 


implementation 


> ClassA ---------------" } 
procedure ClassA.Truc(s:string); 
begin 
if Assigned ( FOnTruc ) then 
FOnTruc (self , s) 
end; 


procedure Class A.LancerTruc ; 
begin 


Truc ("événement déclenché"); 


end; 
d------> Chase 2e } 
procedure ClasseUse.principale; 
begin 
1e 


ObjA := ClassA.Create ; 
ObjA.OnTruc := method_102 ; / connexion 
Mo 
ObjA.LancerTruc ; // lancement 
end; 


procedure ClasseUse.method_100(Sender:TObject; info:string); 
begin 

Ho 
end; 


procedure ClasseUse.method_101(Sender:TObject; info:string); 
begin 

He 
end; 


procedure ClasseUse.method_102(Sender:TObject; info:string); 
begin 

cc 
end; 


procedure ClasseUse.method_103(Sender:TObject; info:string); 
begin 

0 
end; 


end. 
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Code pratique : une pile Lifo événementielle 


Objectif : Nous livrons une classe de pile lifo héritant d'une Tlist (Un objet Tlist de Delphi, stocke un 
tableau de pointeurs, utilisé ici pour gérer une liste d'objets) et qui est réactive à l'empilement et au dépilement 
d'un objet. Nous suivons la démarche précédente en nous inspirant de son code final pour construire deux 
événements dans la pile lifo et lui permettre de réagir à ces deux événements. 


unit ULifoEvent ; 


Le type de l'événement : type 


interface pointeur de méthode (2 paramètres) 
uses classes, Dialogs ; 


type 
DelegateLifo = procedure ( Sender: TObject ; s :string ) of object ; 


ClassLifo = class (TList) 


private Champs privés stockant la valeur de 
FOnEmpiler : DelegateLifo ; l'événement (pointeur de méthode). 
FOnDepiler : DelegateLifo } 

public 


function Est_Vide : boolean ; 
procedure Empiler (elt : string ) ; 
procedure Depiler ( var elt : string ) ; 
property OnEmpiler : DelegateLifo read FOnEmpiler write FOnEmpiler ; 
property OnDepiler : DelegateLifo read FOnDepiler write FOnDepiler ; 
end; 


. 2 


Evénement OnEmbpiler : 
- pointeur de méthode. 


Evénement OnDepiler : 


ÉTAT - pointeur de méthode. 


public 
procedure EmpilerListener( Sender: TObject ; s :string ) ; 
procedure DepilerListener( Sender: TObject ; s :string ) ; 
constructor Create ; 


procedure main ; Si une méthode dont la signature est celle du type 
end; DelegateLifo est liée (gestionnaire de l'événement 
OnDepiler), le champ FOnDepiler pointe vers elle, 

implementation il est donc non nul. 


Sinon FOnDepiler est nul (non assigné) 
procedure ClassLifo.Depiler( var elt : string ) ; 


begin | L'instruction FOnDepiler ( self ,elt ) sert à appeler 
if not Est_Vide then self = la pile Lifo la méthode vers laquelle FOnDepiler pointe. 
begin 


elt :=string (self First) ; 
self. Delete(O) ; 
self. Pack ; 
self. Capacity := self.Count ; 
if assigned(FOnDepiler) then 
FOnDepiler ( self ,elt ) 
end 
end; 


Si une méthode dont la signature est celle du type 
DelegateLifo est liée (gestionnaire de l'événement 
OnDepiler), le champ FOnEmpiler pointe vers elle, 
il est donc non nul. 

Sinon FOnEmpiler est nul (non assigné) 


procedure ClassLifo.Empiler(elt : string ) ; : . . : 
L'instruction FOnEmpiler ( self ,elt ) sert à appeler 


la méthode vers laquelle FOnEmpiler pointe. 


0 , PChar(elt)) ; 
if assigned(FOnEmpiler) then 
FOnEmpiler ( self ,elt ) 
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function ClassLifo.Est_Vide : boolean ; 
begin 

result := self. Count = 0 ; 
end; 


{ ClassUseLifo } Classe de test créant une pile Lifo 


constructor ClassUseLifo.Create ; 


begin 
fherited: Gestionnaire de l'événement OnDepiler : 
end; signature compatible avec DelegateLifo. 


procedure ClassUseLifo.DepilerListener( Sender: TObject ; s :string ) ; 


begin 
writeln ("On à depile :",s) ; Gestionnaire de l'événement OnEmpiler : 
end; signature compatible avec DelegateLifo. 


procedure ClassUseLifo.EmpilerListener( Sender: TObject ; s :string ) ; 
begin 
writeln ('On a empile : ",s) ; 


end; 
Méthode main de test 


procedure ClassUseLifo.main ; 


var 
pileLifo : ClassLifo ; Instanciation d'une 
ch string ; pile Lifo à tester. 

begin 
pileLifo := ClassLifo.Create ; Affectation de chaque gestionnaire à 
pileLifo.OnEmpiler := EmpilerListener ; } l'événement qu'il est chargé de gérer. 
pileLifo.OnDepiler := DepilerListener ; 


pileLifo.Empiler('[ eau ]') ; 

pileLifo.Empiler('[ terre |) ; ; un 
pileLifoErapilei( Times J') : Empilement de 4 éléments 
pileLifo.Empiler('[ voiture |!) ; 


writeln ('Depilement de la pile : } ; 
while not pileLifo.Est_ Vide do 


begin 
pileLifo.Depiler(ch) ; Dépilement de toute la pile 


writeln (ch) ; 
end; 
writeln (‘Fin du depilement.' ) ; 
readin ; 
end; 


Application console Project2.dpr instanciant 
un objet de ClassUseLifo et lançant le test de 


la pile lifo par invocation de la méthode main. 
.. togram Files Borland Delphi7\Bin' Project 


end. 


program Project?; empile : [ eau 1 


empile : [ terre 1 
{$APPTYPE CONSOLE} empile : [ mer ] 


a empile : [ voiture ] 


[ mer 1] 


; ; ; Depilement de la pile : 
uses SysUtils , UlifoEvent 0 L : = 
> ? ot: n à depile : [ voiture 1 
var execLifo : ClassUseLifo; exécution [ voit ure ] 


begin 
execLifo := ClassUseLifo.Create; 
execLifo.main 


end. On a depile : [I eau 1 
[ eau 1 
Fin du depilement. 


[ terre 1] 
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Exemple événementiel : un éditeur de texte 


1. L'énoncé et les choix 


Nous souhaitons développer rapidement un petit éditeur de texte qui nous permettra : 


de lire du texte à partir d'un fichier sur disque ou sur disquette (ouvrir), 
de taper du texte (nouveau), 

de visualiser le texte entré, 

d’effectuer sur ce texte les opérations classiques de copier/ coller/ couper, 
de le sauvegarder sur disque ou sur disquette (enregistrer). 


Les objets potentiels réagiront à ces événements selon le graphe ci-dessous 


_ "= message fan evéeatine d'une mthate 


L'objet TextEditeur est l’objet central sur lequel agissent tous les autres objets, il contiendra 
le texte à éditer. 

En faisant ressortir les opérations à effectuer, l’utilisation de la notion d’abstraction est 
naturelle. 


Nous envisageons les actions suivantes obtenues par réaction à un événement Click de souris 
(choix des objets du graphe précédent): 


| nouveau (utilise un objet à définir) | 
| couper (utilise un objet à définir) | 
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copier (utilise un objet à définir) 

coller (utilise un objet à définir) 

ouvrir (utilise un objet de dialogue) 
enregistrer (utilise un objet de dialogue) 
quitter (utilise un objet prédéfini Form) 


2. Les objets de composants 


Delphi étant orienté objet nous allons exploiter complètement l'analyse présentée dans le 
graphe événementiel ci-haut en mettant en place quatre objets du genre composants visuels ou 
non visuels de Delphi. 


L'interface choisie 


Formi Fer | X | 


Une fiche (Forml1l) comportant : ES En 
Q Un Tmemo avec deux ascenseurs 


Trois composants non visuels : 
Q TMaïinmenu (une barre de 2 menus) 
Q TopenDialog (pour le chargement de 


fichier) 
Q TSaveDialog (pour la sauvegarde d'un 
texte) 
Le composant TMaiïnmenu(1” menu) L Fichier | EE 
comporte un premier menu Fichier à 5 items Nouveau 
Ouvrir 
EMTEGSTENSOUS.. 
Quitter 4 | 
TMainMenu 
Le compoan Thanment men) 
comporte un deuxième menu Edition à 3 Fichier Edition | 
items. Memol Couper Ctri+x 


Copier Ctrl+C 
Coller Ctri#V 


I-Dx, 


TMainMenu 
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Les menus dans la barre et les sous-menus sont tous des objets de classe Tmenultem qui sont 
gérés à travers le champ Items d'un objet de classe TMainMenu : 


ouper Ctri+x 
opier Ctrl+C 
oller  Cti+V 


TMenultem 


TMainMenu 


TMenultem 


TMenultem 


object MainMenul: TMainMenu 


object fichier1: TMenultem 
Caption = ‘fichier’ 
end 
object editionl: TMenultem 
Caption = 'edition' 
object couperl: TMenultem 
Caption = "couper 
end 
object copier1: TMenultem 
si nie LS Correspondance entre le code caché par 
object coller1: TMenultem } Delphi et l'inclusion des objets de 


Caption = 'coller' Tmenultem dans un TmainMenu. 
end 


end 


Mise en place de la gestion des événements. 


A chacun des items utilisables de chacun des 2 menus, il nous faut associer un gestionnaire 
d'événement qui indique au programme comment il doit réagir lorsque l'utilisateur 
sélectionne un champ de l'un des menus par un click de souris. Nous avons vu que Delphi 
contient le mécanisme d'association des événements à nos gestionnaires. Beaucoup de 
contrôles (classes visuelles)et beaucoup d'autres classes non visuelles comme les TMenultem, 
de Delphi sont sensibles à l’événement de click de souris : property OnClick : TnotifyEvent. 
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Les gestionnaires de l’événement OnClick pour les TMenultem 


Voici les en-têtes des 7 gestionnaires de OnClick automatiquement construits: 


__mmMouet 
procedure Nouveau1Click(Sender: TOR Con 
procedure Ouvrir1Click(Sender: TObject); 


procedure Enregistrersous1Click(Sender: TObject}:———" Î#}î}# DÉPEREURERE 
procedure Quitter1Click(Sender: TObject)>—% Quitter 


procedure Couper1Click(Sender: TObject): 

procedure Copier1Click(Sender: TObiject); 

procedure Coller1Click(Sender: TObject); TT ee 
a Ct+C 


Coller  Ctri+V 


Voici pour chaque gestionnaire le code écrit par le programmeur. 


Le code du gestionnaire Quitter1Click 


procedure TForml.Quitter1Click(Sender: TObject); 
begin 


Close; //écrit par le développeur (fermeture de la fenêtre) 
end; 


Le code du gestionnaire Ouvrir1Click 


procedure TForml.Ouvrir1Click(Sender: TObject); 
begin 
if OpenDialog1.Execute then //écrit par le développeur 
begin 
Enregistrersous 1.enabled:=true; 
TextEditeur.Lines.LoadFromFile(OpenDialog1 .FileName); 
end 
end; 


Le code du gestionnaire Enregistrersous1Click 


procedure TForml1.Enregistrersous 1Click(Sender: TObject); 
begin 
if SaveDialog1.Execute then // écrit par le développeur 
begin 
Enregistrersous1.enabled:=false; 
TextEditeur.Lines.SaveToFile( SaveDialog1.FileName ); 
end 
end; 


Le code du gestionnaire Couper1Click 


procedure TForm1.Couper1Click(Sender: TObject); 
begin 


TextEditeur.CutToClipboard; //écrit par le développeur 
end; 
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Le code du gestionnaire Copier1Click 


procedure TForm1.Copier1Click(Sender: TObject); 
begin 


TextEditeur.CopyToClipboard; //écrit par le développeur 
end; 


Le code du gestionnaire Coller1Click 
procedure TForml1.Coller1Click(Sender: TObject); 
begin 
TextEditeur.PasteFromClipboard; //écrit par le développeur 
end; 


Le code du gestionnaire NouveaulClick 


procedure TForm1.Nouveaul1Click(Sender: TObject); 
begin 


TextEditeur.Clear; &not; écrit par le développeur 
Enregistrersous1.enabled:=true &not; écrit par le développeur 
end; 


Il est à noter que nous avons écrit au total 16 lignes de programme Delphi pour construire 
notre micro-éditeur. Ceci est rendu possible par la réutilisabilité de méthodes déjà intégrées 
dans les objets de Delphi et en fait présentes dans le système Windows. 


Vous pouvez voir la puissance de ce RAD lorsque vous observez par exemple l'instruction qui 
a permis de faire exécuter le "copier" ou le "chargement d'un fichier" : 


TextEditeur.CopyToClipboard; 


La méthode CopyToClipboard s'applique à l'objet TextEditeur qui est de la classe TMemo:; 
cette instruction correspond à un ensemble complexe d'opérations de bas niveau : 

le TMemo autorise une suite complexe d'opérations permettant de sélectionner un texte écrit 
sur plusieurs lignes du TMemo. II les affiche en surbrillance et la méthode 
CopyToClipboard récupère le texte sélectionné puis le recopie enfin dans le presse-papier du 
système. 


TextEditeur.Lines.LoadFromFile(OpenDialog1.FileName); 


Nous n'avons par ailleurs eu aucun code particulier à écrire pour le chargement de fichier 
texte, la méthode LoadFromFile présente dans l'objet Lines (de classe TStrings) effectue 
toutes les actions. 


A titre de travail personnel il est recommandé d'enrichir ce micro-éditeur avec la possibilité de 
changer la police de caractère, la couleur du fond etc. 
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5.6 Programmation défensive 


(les exceptions) 


Plan du chapitre: É 


Introduction 


1.Notions de défense et de protection 


1.1 Outils participant à la programmation défensive 

1.2 Rôle et mode d’action d’une exception 

1.3 Gestion de la protection du code 
Fonctionnement sans incident 
Fonctionnement avec incident 

1.4 Effets dus à la position du bloc except...end 
Fonctionnement sans incident 
Fonctionnement avec incident 

1.5 Interception d’une exception d’une classe donnée 

1.6 Ordre dans l’interception d’une exception 
Interception dans l’ordre de la hiérarchie 
Interception dans l’ordre inverse 


2. Traitement d’un exemple de protections 


2.1 Le code de départ de l’unité 
2.2 Code de la version.1 (premier niveau de sécurité) 
2.3 Code de la version.2 (deuxième niveau de sécurité) 
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Introduction 


Nous allons montrer comment on peut concevoir la programmation défensive en protégeant 
directement le code à l’aide de la notion d’exception (semblable à celle du C++ ou d’Ada). 


L'objectif principal est d’améliorer la qualité de " robustesse " (définie par B.Meyer) d’un 
logiciel. L'utilisation des exceptions avec leur mécanisme intégré, autorise la construction 
rapide et néanmoins efficace de logiciels robustes. 


Rappelons au lecteur que la sécurité d'une application est susceptible d'être mise à mal par 
toute une série de facteurs : 


a les problèmes liés au matériel : par exemple la perte subite d'une connection à 
un port, un disque défectueux. 


a les actions imprévues de l'utilisateur, entrainant par exemple une division par 
Zéro. 


1. Notions de défense et de protection 


A l’occasion de la traduction Algorithme à langage évolué comme pascal, nous avons 
répertorié en plus des actions algorithmiques, des actions de sécurité et des actions 
ergonomiques qui doivent elles aussi être programmées. 


La partie ergonomie est incluse dans la notice consacrée aux interfaces de communication 
logiciel-utilisateur. 

La partie sécurité a déjà été abordée ailleurs, nous regroupons ici ce que nous devons 
connaître. 


Pour obtenir une certaine ” robustesse ” dans nos programmes nous savons déjà que la 
sécurité doit porter au moins sur : 


les domaines de définitions des données, 
les contraintes d’implantation, 

le filtrage des saisies, 

les problèmes de transtypage 


Q 
Q 
Q 
Q 


Toutefois les faiblesses dans un logiciel pendant son exécution, peuvent survenir : lors des 
entrées-sorties, lors de calculs mathématiques interdits (comme la division par zéro), lors de 
fausses manoeuvres de la part de l’utilisateur, ou encore lorsque la connexion à un 
périphérique est inopinément interrompue. 


La programmation défensive est plus une attitude de pensée et de comportement qu’une 
nouvelle méthode. Cette attitude consiste à prévoir que le logiciel sera soumis à des 
défaillances dues à certains paramètres externes ou internes et donc à prévoir une réponse 
adaptée à chaque type de situation. 
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La comparaison des coûts de différents ratios de productivité établie par B.Boehm, montre 
que l’exigence de fiabilité est l’une des plus chères (surcoût de 87%). Cette remarque 
pourrait en apparence nous conduire à croire que ce facteur est donc une affaire de spécialistes 
et ne constitue pas une préoccupation dans un discours d’initiation. Nous allons voir qu’il 
n’en est rien et qu’en fait notre méthode de travail et les outils que nous utilisons concourent à 
une attitude de programmation défensive sans que nous contraignions fortement notre pensée 
en ce sens. 


Nous pensons enfin qu’il est bon d’induire dans l’esprit du développeur en programmation 
visuelle débutant des idées fondées sur des pratiques méthodiques qui lui éviteront l’écueil de 
" l’art indiscipliné " du logiciel, mais qui pourraient lui donner le goût de continuer dans cette 
discipline. 


1.1 Outils participant à la programmation défensive 


Voici cinq secteurs d’activité parmi ceux que nous connaissons, participant à une méthode de 
programmation défensive. 


La modularité 
Le principe du découpage en modules restreint la propagation des effets 
perturbateurs sur d’autres modules à partir d’une erreur survenant dans un module 
donné. 


L’encapsulation 
Associée à la modularité, elle protège les constituants internes d’un module 
(champs et méthodes). 


Les TAD (types abstraïits) 
En fournissant un outil de spécification des données avec des préconditions sur la 
validité des opérateurs, un TAD assure la description des vérifications de 
domaines. 


L'utilisation de méthodes systématiques 
Comme l’algorithmique, la programmation par la syntaxe, les machines abstraites, 
les générateurs d’automates..… ces outils encouragent l’étudiant à s’essayer à une 
programmation sûre. 
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L'utilisation d’un RAD visuel comme Delphi 
Ce genre de système de développement apporte un certains nombres d’avantages 
en la matière : 


e il autorise la mise en œuvre des cinq secteurs précédents d’activité, 


il fournit au programmeur des kits d’objets sécurisés et réutilisables, 


il permet de construire rapidement des interfaces qui participent à 
une meilleure défense du logiciel contre des actions non valides (par 
exemple en utilisant la méthode de séquencement par plans 
d’action). 


A côté de cet éventail d’outils intégrant en général la notion de programmation défensive, 1l 
existe un outil spécifique dédié à ce genre de programmation : les exceptions. 


1.2 Rôle et mode d’action d’une exception 
Rôle d’une exception 


Réservé jusqu'à présent aux spécialistes en Ada, en C++ ou en Java, cet outil est mis dans le 
RAD Delphi à la portée du débutant. Comme son nom l’indique, une exception est chargée de 
signaler un comportement exceptionnel (mais prévu) d’une partie spécifique d’un logiciel. 
Dans les langages de programmation actuels, les exceptions font partie du langage lui-même. 
C’est le cas de Delphi qui intègre les exceptions comme une classe particulière : la classe 
Exception. Cette classe contient un nombre important de classes dérivées. 


Comment agit une exception 


Dès qu’une erreur se produit comme un manque de mémoire , un calcul impossible, un 
fichier inexistant, un transtypage non valide... un objet de la classe adéquate dérivée de la 
classe Exception est instancié. Nous dirons que le logiciel " déclenche une exception ". 


Exemple : soit une saisie d'un entier dans un Tedit nommé Editsaisie. 


Objets visuels : 
Editsaisie: TEdit; 
Editresultat: TEdit; 
Button1: TButton:; 


Actions : 

L'utilisateur entre un entier dans Editsaisie, il clique 
sur le bouton Button1 qui effectue un transtypage 
dans une variable locale " n : integer " puis il se 
désactive et le Tedit Editresultat, change de couleur. 
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Le gestionnaire d'événement clic de Buttonl est alors le suivant : 


procedure TForm1.Button1Clic(Sender: TObject); 
var n:integer; 
begin 

Editresultat.color:=clAqua; 


n:=Strtolnt(Editsaisie.text); 
Editresultat.color:=clyellow:; 
Editresultat.text:= Editsaisie.text; 
Editsaisie.clear ; 

end; 


Une exécution sans incident donne ceci : 


Pi) E4 | 


ES 
en 


ES À CS 


avant clic sur Button! après clic sur Buttonl 


Lors de l’exécution, supposons que nous entrons dans Editsaisie la chaîne " asa12324 " qui 
n’est pas un entier. 

La fonction Strtolnt déclenche une exception et nous envoie un message d’erreur général sur 
l’incident qui vient de se produire : (après clic sur Buttoni Message d’erreur ) 


=I10/x| 


En outre, l’incident a arrêté l’exécution du code dans le gestionnaire Button1Clic. Le code a 
été exécuté normalement jusqu'à l’instruction de transtypage qui a déclenché l’exception. Le 
reste des lignes de code a été ignoré : 
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procedure TFormi.ButtoniClhiciiSender: TObject), 


var n'integer, 
begin cette partie n'a 
— Editresultat.color:=cläqua; pas été exécutée 
— n—SirtolmtEditsaisie text) 
Editresultat. color:=clyellow, 


Editresultat.text:= Editsaisie text, 
Editsaisie. clear ; 
—? Et, 


Si nous voulons que le message soit plus explicite, ou si nous voulons par exemple que 
malgré tout une certaine partie du code s’exécute en fournissant des valeurs par défaut malgré 
l’incident, nous devons gérer nous-mêmes cette exception. 

Afin de pouvoir gérer une exception déclenchée, il nous faut disposer d’un gestionnaire 
d’exception qui permette de traiter tous les types d’exception. 


1.3 Gestion de la protection du code 


Le langage Delphi contient un mécanisme appelé gestionnaire d’exception qui s’insère dans 
les lignes de code là où nous souhaitons assurer une protection. 


yntaxe du gestionnaire : mots clefs (try, except) 


<lignes de code à protéger> 


except 


<lignes de code réagissant à l’exception> 


Principe de fonctionnement d’un tel gestionnaire : 


Dès qu’une exception est déclenchée dans le bloc de lignes compris entre try.…..except, il y a 
déroutement de l’exécution (arrêt d'exécution séquentielle du code) vers la première ligne du 
bloc except...end et l’exécution continue séquentiellement à partir de cet endroit. 

Reprenons l’exemple précédent légèrement modifié dans le code du gestionnaire du clic de 
Button. 


procedure TForm1l.Button1Clic(Sender: TObject); 
var n:integer; 
begin 
Editresultat.color:=clAqua; 
n:=Strtolnt(Editsaisie.text); 


Editresultat.color:=clyellow; 
Editresultat.text:= inttostr(n); 
EÉditsaisie.clear ; 

end; 
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Mettons en place une protection de l’instruction incriminée, tout en conservant l’exécution 
des lignes de code suivantes. Comme la variable " n " n’aura pas de valeur à cause de 
l’incident, nous lui attribuons la valeur zéro par défaut si un incident se produit. 


procedure TForm1.Button1Clic(Sender: TObject); 
var n:integer; 
begin 
try 
Editresultat.color:=clAqua; 
n:=Strtolnt(Editsaisie.text); 
except 


showmessage('tapez un entier (zéro par défaut !"); 
n:=0 

end; 

Editresultat.color:=clyellow; 

Editresultat.text:= inttostr(n); 

Editsaisie.clear ; 

end; 


1.3.1 - Fonctionnement sans incident : 


(Légende : la flèche +; dique l'exécution séquentielle de la ligne de code devant laquelle elle est placée). 


procedure TFomul ButtoniClick{Sender: TObject); 


var tinteger; 
Entrée begin partie non exécutée s'il 
— try n'ya pas d'incident 


— Editresultat.color:=cläqua; 
— =Strtolnt(Editsaisie text); 
except 
showmessagel'tapez un entier (zéro par défaut 1j}; 


n:=0 
end, 
resultat —+ Editresultat color:=clyellowr: 


Fa —— Editresultat.text:= inttostrin); 


—— Editsaisie clear; 
end, 
Les lignes de code sont exécutées séquentiellement sauf le bloc except.….end (qui n’est exécuté qu’en cas 
d’incident). 
1.3.2 - Fonctionnement avec incident : 


Nous entrons dans Editsaisie comme précédemment une valeur non entière. 


E procedure TFomul ButtoniClick{Sender: TObject); 
ea 
Entrée begin partie exécutée 
après le déclenchement de 


Fesa12324 nn 
— Editresultat.color:=cläqua; 


_— =Strtolnt(Editsaisie text); 


resultat Editresultat.color:=clyellow, 
Editresultat.text:= inttostrin); 
Editsaisie.clear ; 
end, 
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Message envoyé par la fonction Showmessage 


|Pexcept02 Ex] dans le bloc except...end. 


tapez un entier (zéro par défaut ! | ï dE. r 
Ensuite le code continue à s’exécuter en 


séquence à partir de n :=0 ;... 


procedure TFomul ButtoniClick{Sender: TObject); 


var ninteger, 
begin partie exécutée 
try après le déclenchement de 


Editresultat .color:=clé qua, 
n=Strtolnt(Editsaisie. text); 
except 

showmmessage(tapez un entier (zéro par défaut l'}; 


resultat —— Editresultat.color=clyellow; 
—+ Editresultat.text:= inttostrin); 
——+ Editsaisie.clear ; 

end, 


En fait dans cet exemple, n'importe quelle exception déclenchée dans le bloc try...except 
déroute vers le bloc except...end. 


1.4 Effets dus à la position du bloc except...end 


Afin de bien comprendre cette notion de déroutement (dont le placement est à la charge du 
programmeur) observons ce qu’apporte une modification de la place du bloc except...end au 
déroulement du code pendant l’exécution. 

Soit, dans le même exemple, le nouveau code dans Button1Clmick où nous avons repoussé le 
bloc except...end à la fin. 


procedure TForm1.Button1Clic(Sender: TObject); 

var n:integer; 

begin 

try 
Editresultat.color:=clAqua; 
n:=Strtolnt(Editsaisie.text); 
Editresultat.color:=clyellow; 


Editresultat.text:= inttostr(n); 
Editsaisie.clear ; 
except 
showmessage('tapez un entier (zéro par défaut !"); 
n:=0 
end; 
end; 


Puis exécutons le programme. 
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1.4.1 - Fonctionnement sans incident : 
Identique au précédent paragraphe, le bloc except...end étant ignoré. 


1.4.2 - Fonctionnement avec incident : 
(Légende : la flèche + dique l'exécution séquentielle de la ligne de code devant laguelle elle est placée). 


procedure TForml.ButtonlClhick(Sender: TObject); 
4 var ninteger, partie non exécutée 
Entrée — begin suite à la levée de 


fesat 2324 — y l'exception 


—— Editresultat. color=cläqua, 
—— n=SttomthiEditsaisie text); 


Editresultat. color:=clyellow, 
Editresultat.text= inttostrin), 


Editsaisie. clear ; 


resultat — cent a | .. 
— Showmessage "tapez un entier (zéro par défaut l°; 
E—_—_—; > 1=0 
— end, 
end, 


le code continue son déroulement dans le bloc except...end en ” sautant ” trois instructions. 


Pexcept03 ___E 


— Showmessage "tapez un entier (zéro par défaut l°; 
— =Ù 
— end, 

end, 


tapez un entier (zéro par défaut | 


Etat final des résultats après traitement de l’exception : 


Entrée les deux Tedit Editresultat et Editsaisie n’ont 
Fesat2324 pas changé puisque les instructions: 
Editresultat.color:-clyellow; 
Editresultat.text:= inttostr(n); 
Editsaisie.clear ; 

n’ont pas été exécutées, par suite du 


déroutement du code. 
resultat 


Nous notons que cette méthode de déroutement du code est très proche du fonctionnement 
d’une machine de Von Neumann. Nous venons de voir comment intercepter une exception 
quelconque sans savoir exactement sa catégorie. Nous pouvons en fait intercepter une 
exception d’une manière encore plus " fine " avec le gestionnaire try...except...end. 

Il nous permet de sélectionner la classe exacte de l’exception et de ne faire fonctionner le 
déroutement du code que pour une exception définie à l’avance. 
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1.5 Interception d’une exception d’une classe donnée 
Diagrammes de syntaxe du gestionnaire : 


<instruction try> : 


(try) liste d'instructions 


<Bloc d’exception> : 


ep) {PES dacrplon En) 


ki gestionnaire d'exception : 


liste d'instructions 


L ete 


<gestionnaire d’exception> : 


(on) identificateur de type classe (do) 


Différentes classes d’exception Delphi 


Ci-dessous la hiérarchie des classes d’exception, qui dérivent toutes de la classe Exception: 


[] EStreamError 
CT] EFCreateError 
[=] TObiect [] EFOpenError 
[Æ] TinterfacedObject [S] EFilerError 
C]EReadError 
LC] Eâbort [] EwiiteError [] EConvertError 
[SJ EOutO Memory [] EClassNotFound [] EäccessViolation 
LT] EOutOfResources [] EMethodNatFound [] EPrivilege 
C]ElnQutError [] Elnvalidimage []EStackOverflow 
[S] ElntError [] EResNotFound [] EControlC 
[]EDivByZero [] EListError [] EVariantError 
[CT] ERangeError [1] EBitsError [] EPropReadOnly 
[] ElntO verflow [] EStringListError CT] EPropwiiteOnly 
[S] EMathE rror [] EComponentError [CT] EExtemalE xception 
[]ElnvalidOp C]EParserError [] EâssertionFailed 
[]EZeroDivide [] ElnvalidO peration [] EâbstractError 
[]EOverflow []EThread [] ElntfCastError 
[] EUnderflow [] ElnvalidGraphic [] ElnvalidContainer 
[] ElnvalidPointer [] ElnvalidGraphicOperation [] Elnvalidinsert 
[] ElnvalidCast CC] EPrinter CT] EPackageError 
[] EConvertError C] EMenuError [1 Ewin32Error 


Exemple d'écriture d'un gestionnaire : 


<lignes de code à protéger> 


except 


On EConvertError do begin 
<lignes de code réagissant à l'exception EConvertError > 
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end ; 
On EintError do begin 

<lignes de code réagissant à l'exception EintError > 
end ; 


else begin 

<lignes de code réagissant à d’autres exceptions > 
end ; 
end ; 


Principe de fonctionnement d’un tel gestionnaire 


Dès qu’une exception est déclenchée dans le bloc de lignes compris entre try.…..except, il y a 
déroutement de l’exécution (arrêt d'exécution séquentielle du code) vers le bloc except...end. 
Le sélecteur de gestionnaire d’exception on...do fonctionne approximativement comme un 
case..of, en n’exécutant que le champ sélectionné. 

Supposons que l’exception levée soit de la classe EintError ; l’instruction try n’exécute alors 
que le code du " bon " gestionnaire en l’occurrence : 


On EintError do begin 


<lignes de code réagissant à l’exception EintError > 
end ; 


Puis l’exécution se poursuit après le end du bloc except...end. 


1.6 Ordre dans l’interception d’une exception 


A la différence d’un "case ..… of" pascal, le choix du sélecteur de gestionnaire (on...do) 
s’effectue séquentiellement dans l’ordre d’écriture des lignes de code. On choisira donc, 
lorsqu'il y a une hiérarchie entre les exceptions à intercepter, de placer le code de leurs 
gestionnaires dans l’ordre inverse de la hiérarchie. 


Exemple : division par zéro dans un calcul en virgule flottante 
EMathError est la classe des exceptions pour les erreurs de calcul. 


[S] EMathError 
[] ElnvalidOp 
[] EZeroDivide 
[] EOverflou 
[] EUnderflou 


EZeroDivide indique la division par zéro dans une telle opération. 


Programmons un calcul à partir d’un bouton : 
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procedure TForm1.Button1Clic(Sender: 
TObject); 
var x,y,Z:real; 
begin 
try 
x:=StrtoFloat(Edit1.text); 
y:=StrtoFloat(Edit2.text); 
Z:=x /Y ; 
Edit3.text:=FloattoStr(z); 
except 


Au départ nous avons edit1.text = 12,875 et edit2.text = 0. Le calcul est erroné car x vaut 
12,85 et y vaut zéro ce qui va induire une erreur de division par zéro dans l’instruction z := x / 


y. 


Observons ce qui se passe lorsque nous interceptons les exceptions EMathError et 
EZeroDivide. 


1.6.1 - Interception dans l’ordre de la hiérarchie : 


La sélection d’exception est programmée dans l’ordre de la hiérarchie des classes : 
EMathError 
| EZeroDivide 


procedure TForm1.Button1Clic(Sender: TObject); 
var x,y,Z:real; 
begin 
try 
x:=StrtoFloat(Edit1.text); 
y:=StrtoFloat(Edit2.text); 


Z:=X [y ; 
Edit3.text:=FloattoStr(z); 
except 
on EMathError do 
Edit3.text:='Erreur générale’; 
on EZeroDivide do 
Edit3.text:='division par zéro'; 
end; 
end; 


EMathError est interceptée en premier. 


1.6.2 - Interception dans l’ordre inverse : 
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La sélection d’exception est programmée dans l’ordre inverse de la hiérarchie des classes. 


procedure TForm1.Button1Clic(Sender: TObject); 
var x,y,Z:real; 
begin 
try 
x:=StrtoFloat(Edit1.text); 
y:=StrtoFloat(Edit2.text); 


Z:=X [y ; 
Edit3.text:=FloattoStr(z); 
except 
on EZeroDivide do 
Edit3.text:='division par zéro'; 
on EMathError do 
Edit3.text:='Erreur générale’; 
end; 
end; 


C’est EZeroDivide qui est interceptée en premier. 


2. Traitement d’un exemple de protections 


Reprenons comme base le premier exemple étudié dans le chapitre sur les interfaces. 
Supposons que nous voulons élargir notre interface de calcul aux opérations entières : 
Mutiplication, Division, Addition, Soustraction, Quotient, Reste. 

Nous limiterons nos entiers au type Smallint Delphi identique au type integer du pascal 
(Smallint = -32768..32767, signé sur 16 bits). 


Interface retenue 


Opérande n°1 : Editnbr1 Choix opération 


Mutiplication 
opération 


Division 
Editnbr2 


Editnbr1: TEdit; 


Addition Editnbr?2: TEdit; 


Soustraction 


Het Editmessage: TEdit; 


Reste Editresult: TEdit; 
—————— ListBoxOperation: TListBox; 
Résultat de l'opération : ButtonCalcul: TBitBtn; 


US lAncerncaleu 
+ 
(Editresuh ) Button Calcul 


Labeltypoperat: TLabel; 


2.1 Le code de départ de l’unité 
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Champ privé de la classe Tforml : 
Toper:array[0..5]of string; 


implementation 


Le tableau Toper contient les symboles des opérateurs entiers, il est initialisé lors de 
l’activation de la fiche 


procedure TForml.FormActivate(Sender: TObject); 
begin 
Toper{[0]:="*"; Toper[1]:=""; 


Toper{[2]:="+#'; Toper[3]:="-'; 
Toper[4]:=" div '; Toper{5]:=' mod '; 
end; 


L'utilisateur choisit par sélection dans le ListBoxOperation l’opération qu’il veut effectuer ; 
l'étiquette Labeltypoperat affiche le symbole associé : 


procedure TForm1.ListBoxOperationClic(Sender: TObject); 
begin 

Labeltypoperat.caption:=Toper[ListBoxOperation.ItemIndex]; 
end; 


Les deux Edit de saisie Editnbrl et Editnbr? sont sensibles à l’événement OnChange qui 
permet de déverrouiller le bouton de calcul : 


procedure TForm1.EditnbrlChange ( Sender : procedure TForm1.Editnbr2Change ( Sender : 
TObject); TObject); 
begin begin 
ButtonCalcul.enabled:=true; ButtonCalcul.enabled:=true; 
end; end; 


Une fois que les entiers sont entrés et le genre d’opération sélectionné, le ButtonCalcul lance 
le calcul sur un clic de l’utilisateur : 


procedure TForm1.ButtonCalculClic(Sender: TObject); 
var op1l,op2,result:smallint; 
begin 
ButtonCalcul.enabled:=false; 
opl:=strtoint(Editnbr1.text); 
op2:=strtoint(Editnbr?.text); 
case ListBoxOperation.Itemindex of 
0: result:=opl * op2; 
1: result:=trunc(opl1 / op2); 
2: result:=op1 + op2; 
3: result:=opl - op2; 
4: result:=opl1 div op2; 
5: result:=opl mod op2; 
end; 
Editresult.text:=inttostr(result); 
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Editmessage.text:=inttostr(op1)+Toper[ListBoxOperation.Itemindex] 
+' 'Hnttostr(op2)+'= ‘+Editresult.text; 


end; 


A ce stade la saisie n’est pas encore sécurisée. Afin que le lecteur puisse retrouver les 
éléments déjà traités dans le chapitre sur les interfaces, nous reprenons comme premier niveau 
de sécurité le même genre de programmation : synchronisation des 3 objets de saisie Editnbr1, 
Editnbr? et ListBoxOperation, puis programmation par plans d’action. 


2.2 Code de la version.I (premier niveau de sécurité) 


Champs privés de la classe Tforml1: 
operl,oper2,operat:boolean; //les 3 drapeaux 
Toper:array[0..5]of string; 


implementation 


e Le tableau Toper contient les symboles des opérateurs entiers, il est initialisé lors de 
l’activation de la fiche (pas d’ajout de code ni de changement). 

e Ajout de la méthode RAZtout positionnant l’interface à son état initial (correspondant à la 
table des états initiaux) : 


procedure TForm1.RAZTout; 

begin 
ButtonCalcul.enabled:=false; 
Editnbr1.clear; 
Editnbr2.clear; 
Editresult.clear; 
Editmessage.clear; 
operl:=false; 
oper2:=false; 
operat:=false; 

end; 


Adjonction de la méthode TestEntrees chargée de lancer l’activation deButtonCalcul si les 
trois drapeaux sont tous levés : 


procedure TForm1.TestEntrees; 
begin 


if oper1 and oper?2 and operat then 
ButtonCalcul.enabled:=true 
end; 


L'utilisateur choisit par sélection dans le ListBoxOperation l’opération qu’il veut effectuer, 
l’étiquette Labeltypoperat affiche le symbole associé. Adjonction dans le code du drapeau et 
du test : 
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procedure TForm1.ListBoxOperationClic(Sender: TObject); 
begin 
operat:=true; 


TestEntrees; 
Labeltypoperat.caption:=Toper[ListBoxOperation.[temIndex]; 
end; 


Les deux Edit de saisie Editnbr1 et Editnbr? sont sensibles à l’événement OnChange ; voici 
l’ajout du code de plans d’action dans les gestionnaires de cet événement : 


procedure TForml1.Editnbr1Change(Sender: TObject); 
begin 
if Editnbr1.text<>" then begin 
operl:=true; 
TestEntrees; 
end 
else begin 
ButtonCalcul.enabled:=false; 
operl:=false; / drapeau de Editnbr1 baissé 
end 
end; 


procedure TForm1.Editnbrl2Change(Sender: TObject); 
begin 
if Editnbr2.text<>" then begin 
oper2:=true; 
TestEntrees,; 
end 
else begin 
ButtonCalcul.enabled:=false; 
oper2:=false; // drapeau de Editnbr2 baissé 
end 
end; 


Le code du plan d’action associé au ButtonCalcul reste strictement le même. 


Nous proposons dans le paragraphe qui suit, un complément de sécurité apporté par des 
interceptions d’exception. 


2.3 Code de la version.2 (deuxième niveau de sécurité) 


Tout le code de la version.1 reste identique dans la version.2, les adjonctions sont uniquement 
dans le gestionnaire du ButtonCalcul. Nous lançons les levées d’exception lorsque les 
incidents ont lieu. Nous avons ajouté une méthode signe qui renvoie +1 ou -1 selon le signe 
de l’entier d’entrée et d’une constante d’entier maximum: 


const Maxint-32767; 
function signe(n:smallint):smallint; 
begin 
if n>0 then signe:=1 
else if n<O then signe:=-1 
else signe:=0 
end; 
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Le code est protégé par les exceptions suivantes : 


procedure TForm1.ButtonCalculClic(Sender: TObject); 
var op1l,op2;result:smallint; 
begin 
ButtonCalcul.enabled:=false; 
try 
opl:=strtoint(Editnbr1.text); 
except 
on ERangeËrror do 
if Editnbr1.text| 1]="-' then 
opl:=-Maxint 
else op1:=Maxint; 
on EConvertError do op1:=Maxint; 
end; 
try 
op2:=strtoint(Editnbr?.text); 
except 
on EConvertError do op2:=Maxint; 
on ERangeËrror do 
if Editnbr2.text|1]='-' then 
op2:=-Maxint 
else op2:=Maxint; 
end; 


try 
case ListBoxOperation.ItemIndex of 
0: result:=opl * op2; 
1: result:=trunc(opl1 / op2); 
2: result:=op1 + op2; 
3: result:=op1 - op2; 
4: result:=opl div op2; 
5: result:=op1 mod op2; 
end; 
except 
on EDivByZero do 
if ListBoxOperation.Itemindex=4 then 
result:=signe(op1)*Maxint 
else result:=opl; 
on EZeroDivide do 
result:=signe(opl)*Maxint; 
on ElntOverFlow do 
result:=signe(op1)*signe(op2)*Maxint; 
end; 


Editresult.text:=inttostr(result); 

Editmessage.text:=inttostr(op1)+Toper[ListBoxOperation.Itemindex] 
+' 'Hnttostr(op2)+'= ‘+Editresult.text; 

end; 


Le lecteur modifiera les choix de valeurs par défaut dans les gestionnaires d’exception. Dans 
l’exemple plus haut, ces choix ne sont qu’indicatifs et servent à montrer que l’on peut, soit 
arrêter un calcul, soit le continuer avec une valeur de remplacement après signalement de 
l’erreur. Il s’assurera par lui-même que la conjonction entre les plans d’action et les 
exceptions est un système de programmation défensive efficace. 
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Créer et lancer ses propres exceptions 


a Jlest possible de construire de nouvelle classe d'exceptions personnalisées en héritant 


d'une des classes de Delphi mentionnées plus haut, ou à minima de la classe de base 
Exception.(cette classe contient une propriété public property Message: string, qui 


contient en type string le texte à afficher dans la boîte de dialogue des exceptions quand 


l'exception est déclenchée). 


a Jlest aussi possible de lancer une exception personnalisée (comme si c'était une exception 


propre à Delphi) à n'importe quel endroit dans le code d'une méthode d'une classe en 


instanciant un objet d'exception personnalisé et en le préfixant du mot clef raise. 


a Le mécanisme général d'interception des exceptions à travers des gestionnaires 
d'exceptions try...except s'applique à tous les types d'exceptions y compris les exceptions 


personnalisées. 


Création d'une nouvelle classe 


Type 
MonExcept = class (Exception) 


End; 


MonExcept hérite par construction de la propriété public 


Message de sa mère. 


Lancer une MonExcept 


méthode class A. Truc 


Lancer une 
HonExcept 
avec le message 
"salut" 


objet de classe MonExcept 


Type 
MonExcept = class (Exception) 


End; 


Procedure classA.Truc; 
begin 


raise MonExcept.Create ('salut' ); 


end; 


intercepter une MonExcept 


méthode classB.Meth 


intercepter 
une MonExcept 


objet de classe MonExcept 


MonExcept = class (Exception)... end; 


Procedure classB.Meth; 
begin 


try... // code à protéger 
except on MonExcept do begin 
.…… / code de réaction à l'exception 
end; 
end; 
end; 
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Exercices chapitre 5 


Ex-1 : Il est demandé de construire une classe de pile lifo ClassLifo héritant d'une Tlist (Un objet Tlist de 
Delphi, stocke un tableau de pointeurs, utilisé ici pour gérer une liste d'objets) et qui est réactive à l'empilement 
et au dépilement d'un objet. Nous proposons de suivre la démarche de la notice méthodologique du cours en nous 
inspirant de son code final pour construire deux événements dans la pile lifo et lui permettre de réagir à ces deux 
événements. 


Ex-2 : Nous souhaitons développer rapidement un petit éditeur de texte qui nous permettra : 


de lire du texte à partir d'un fichier sur disque ou sur disquette (ouvrir), 
de taper du texte (nouveau), 

de visualiser le texte entré, 

d’effectuer sur ce texte les opérations classiques de copier/ coller/ couper, 
de le sauvegarder sur disque ou sur disquette (enregistrer). 


Ex-3 : Nous reprenons la classe déjà construite ClassLifo de pile lifo héritant d'une Tlist réactive à l'empilement 
et au dépilement d'un objet, il est demandé de la rendre plus robuste en lui permettant lorsque la pile est vide de 
lancer une exception dépilement impossible. 


Ex-4 : On définit la structure de données de liste chaînée double, qui est une liste chaînée pouvant se parcourir 
dans les deux sens, chaque maillon de la liste est lié à son suivant et à son précédent sauf les maillons situés aux 


extrémités de la liste; (al, ... , an ) sont les données de la liste : 


4— 
+. 


Implanter en delphi la classe TListeDble représentant une telle liste chaînée double et TcellDble un maillon de la 
liste (un maillon est donc un objet de calesse TcellDble), l'information du maillon est une chaîne de caractères. 


TCellDble = class 
public 
info:string; 
constructor Créer (avant , apres: TCellDble; 
elt:string); 
procedure InsererAvant (cell: TCellDble); 
procedure InsererApres (cell: TCellDble); 
private 
next: TCellDble; 
prec:TCellDble; 
end; 


Les méthodes InsererAvant et InsererApres réalisent 
l'insertion (avant l'objet ou après l'objet) 


TlisteDble =class 
public 
constructor Create; 
destructor Liberer; 
procedure AjouterLeft (elt:string); 
procedure AjouterRight (elt:string); 
procedure InsererLeft (rang:integer;elt:string); 
procedure InsererRight (rang:integer;elt:string); 
procedure SupprimerLeft (rang:integer); 
procedure SupprimerRight (rang:integer); 
function ElementFromLeft (rang:integer):string; 
function ElementFromRight (rang:integer):string; 
function IndexFromLeftOf (elt:string):integer; 
function IndexFromRightOf (elt:string):integer; 
function Tete: TCellDble; 
function Fin:TCellDble; 
function Longueur : integer; 
procedure Clear; 
function ParcourirLeft:string; 
private 

head , tail : TCellDble; 

end; 
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On propose pour simplifier l'écriture des algorithmes de parcours de la liste de mettre deux sentinelles head et 
tail bornant les deux "bouts" de la liste ( cellules ne contenant de données significatives) : 


4— +. 
LÉ 
head tail 


Spécifications des méthodes à implanter : 


constructor Create; 


Crée une liste vide : 


head tail 


destructor Liberer; 


Libère la mémoire utilisée par la liste. 


procedure AjouterLeft (elt : string); 


Ajoute la donnée elt: string après head. 


procedure AjouterRight (elt : string); 


Ajoute la donnée elt: string avant tail. 


procedure InsererLeft ( rang:integer ; elt:string ); 


Insère la donnée elt: string au rang : integer , rang 
compté à partir de head (parcours à gauche). 


procedure InsererRight (rang:integer ; elt:string ); 


Insère la donnée elt: string au rang : integer , rang 
compté à partir de tail (parcours à droite). 


procedure SupprimerLeft (rang:integer); 


Supprime la donnée de rang : integer , comptée à partir 
de head (parcours à gauche). 


procedure SupprimerRight (rang:integer); 


Supprime la donnée de rang : integer , comptée à partir 
de tail (parcours à droite). 


function ElementFromLeft (rang:integer):string; 


Renvoie la donnée de rang : integer , comptée à partir 
de head (parcours à gauche). 


function ElementFromRight (rang:integer):string; 


Renvoie la donnée de rang : integer , comptée à partir 
de tail (parcours à droite). 


function IndexFromLeftOf (elt : string):integer; 


Renvoie le rang de la position de la donnée elt : string 
compté à partir de head (parcours à gauche). 


function IndexFromRightOf (elt : string):integer; 


Renvoie le rang de la position de la donnée elt: string 
compté à partir de tail (parcours à droite). 


function Tete: TCellDble; 


Renvoie une référence sur head. 


function Fin: TCellDble; 


Renvoie une référence sur tail. 


function Longueur : integer; 


Fournit le nombre d'éléments utiles de la liste. 


procedure Clear; 


Remet la liste à vide : 


head tail 


function ParcourirLeft : string; 


Parcours des chaînes de la liste de head à tail en les 
concaténant entre elles et renvoie la chaîne unique 
obtenue. 


Ex-5 : On définit la hiérarchie suivante dans les figures géometriques : 


parallélogramme 


quatre côtés. 
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Un quadrilatère est une figure (A,B,C,D) possédant 
Un parallélogramme est un quadrilatère dont les côtés 
opposés sont parallèles et les angles opposés égaux. 


Un rectangle est un parallélogramme dont tous les 
angles ont la même mesure : 90° 


Un carré est un rectangle dont tous les côtés sont égaux. 
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Il est demandé d'implanter en Delphi la hiérarchie de classe selon les diagrammes UML ci-après : 


quadhrilatere parallelogramme 


: cotes : angles 
: cotes : angles 
: cotes éri : angles 
: cotes : angles 


Æ fficheängles(….) Æ âffichengles(...) 
Æ âfficheCotes(.….] Æ create(...) 


FI createl...) Æ Propänales( 
Æ PropCotes(...] Æ PropCotes! 


Æ PropCotes 


Spécifications des méthodes à implanter 


type cotes = string; Les noms des côtés ou des sous forme de string angles ( côtés 
angles = string; :"AB", "CD", … ou angles : "ABC", "BCD",...). 

function PropAngles (x:angles) : string; Renvoie dans une string les propriétés d'un angle x : angles. 

function PropCotes (x:cotes) : string; Renvoie dans une string les propriétés d'un côté x : cotes. 

procedure AfficheCotes (List : TlistBox); | Affiche dans un TlistBox les propriétés des 4 côtés. 

procedure AfficheAngles (List : TlistBox); | Affiche dans un TlistBox les propriétés des 4 angles. 


Il est demandé de construire une interface visuelle de test d'un objet de classe quadrilatère instancié à la demande 
selon l'une des trois classes filles (exemple ci-dessous d'une instanciation d'un quadrilatère en carré): 


7° Polymorphisme à l'aide de la surcharge de méthode 


Carré 


Côtés 
àB parallèle à CD et 8B=CD=BC 


EC parallèle à D4 et BC=D4=CD 
CD parallèle à 4B et CD=4B-D4 


Dé parallèle à BC et DA=BC=8B D&B = BCD = 90° 


[ Var Figure : quadrilatere; [ Var Figure : quadrilatere; quadrilatere; 


Figure := carre.create; 


Quadrilatère | parallelogramme | rectangle | 
Figure := quadrllatere.create; Figure := parallelogramme.create: Ï 


Figure := rectangle.create; 
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Ex-6 : Vous aurez à utiliser la classe TTimer qui encapsule les fonctions de timer de l'API Windows, on 
rappelle les propriétés utiles que cette classe contient : 


property Enabled: Boolean; // Détermine si le timer répond aux événements timer. 

property Interval: Cardinal; // Détermine l'intervalle de temps, exprimé en millisecondes, s'écoulant avant que le 
composant timer génère un autre événement OnTimer. 

property OnTimer: TNotifyEvent; / Se produit quand le temps spécifié par la propriété Interval s'est écoulé. 


unit UClassclickMemo; 
/ classe TMemoFlash 


interface 
uses stdctrls, extctrls, Graphics, classes, controls; 


type 
TMemoFlash = class (...) 
public 
private 
end; 
implementation 


end. 


Questions : 


Construire une classe visuelle complète TMemoFlash héritée des TMemo qui clignote 10 fois (il changera de 
couleur jaune-bleu, par intermittence de 100ms entre chaque flash) lorsque l'utilisateur clique avec la souris dans 
le composant. Un TMemoFlash doit avoir automatiquement comme parent son propriétaire et lors de sa création 
il affichera l'adresse mémoire de la fenêtre de son parent et celle de sa propre fenêtre. 


Ex-7 : construire une IHM de filtrage d'un texte entré au clavier dans un TEdit et recopié dans un TMemo une 
fois filtré : 


Texte entré avant filtrage : (appuyez sur la DS _ Ke . vie 
touche entrée pour terminer] dans le TEdit : EditSaisie. 


FU" Ed mldl:MLA:üE:; Ldl k:1KFir| 


Texte obtenu après filtrage : 


Texte recopié une fois filtré 
dans le TEdit : EditFiltrage. 


Le filtrage consiste à ne conserver dans EditFiltrage que les lettres majuscules et minuscules, et à exclure tout 
autre caractère lors de la recopie du texte entré dans EditSaisie. 


Le filtrage doit s'effectuer à la volée (c'est à dire au fur et à mesure que l'on tape du texte au clavier dans 
EditSaisie) et lorsque l'utilisateur appui sur la touche entrée du clavier le texte qui a été filtré doit être rangé dans 
un TMemo nommé MemoApresFiltrage. Prévoir deux versions possibles selon que l'utilisateur est autorisé à 
utiliser la touche d'effacement arrière (backspace) ou non dans la saisie du texte et utiliser l'événement 
OnKeypress pour effectuer le filtrage à la volée. 
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Ex-1 Code solution pratique : une pile Lifo événementielle 


unit ULifoEvent ; 


Le type de l'événement : type 


interface pointeur de méthode (2 paramètres) 
uses classes, Dialogs ; 


type 
DelegateLifo = procedure ( Sender: TObject ; s :string ) of object ; 


ClassLifo = class (TList) 


private Champs privés stockant la valeur de 
FOnEmpiler : DelegateLifo ; l'événement (pointeur de méthode). 
FOnDepiler : DelegateLifo i 

public : . 
function Est_Vide : boolean ; Evénement OnEmpiler ; 
procedure Empiler (elt : string ) ; - pointeur de méthode. 


procedure Depiler ( var elt : string ) ; 
property OnEmpiler : DelegateLifo read FOnEmpiler write FOnEmpiler ; 
property OnDepiler : DelegateLifo read FOnDepiler write FOnDepiler ; 
end; 
. Evénement OnDepiler : 
ClassUseLifo = class : 4 
public 
procedure EmpilerListener( Sender: TObject ; s :string ) ; 
procedure DepilerListener( Sender: TObject ; s :string ) ; 
constructor Create ; 


procedure main ; Si une méthode dont la signature est celle du type 
end; DelegateLifo est liée (gestionnaire de l'événement 
OnDepiler), le champ FOnDepiler pointe vers elle, 
implementation il est donc non nul. 
Sinon FOnDepiler est nul (non assigné) 


- pointeur de méthode. 


procedure ClassLifo.Depiler( var elt : string ) ; 


begin L'instruction FOnDepiler ( self ,elt ) sert à appeler 
if not Est_Vide then self = la pile Lifo la méthode vers laquelle FOnDepiler pointe. 
begin 


elt :=string (self First) ; 
self. Delete(0) ; 
self. Pack ; 


self. Capacity := self.Count : 5 . _ 
if assigned(FOnDepiler) then Si une méthode dont la signature est celle du type 
FOnDepiler ( self ,elt ) DelegateLifo est liée (gestionnaire de l'événement 
OnDepiler), le champ FOnEmpiler pointe vers elle, 
end; il est donc non nul. 
Sinon FOnEmpiler est nul (non assigné) 


L'instruction FOnEmpiler ( self ,elt ) sert à appeler 
self InserttO . PChartelt}) : la méthode vers laquelle FOnEmpiler pointe. 

if assigned(FOnEmpiler) then 
FOnEmpiler ( self ,elt ) 
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function ClassLifo.Est_Vide : boolean ; 
begin 

result := self. Count = 0 ; 
end; 


{ ClassUseLifo } Classe de test créant une pile Lifo 


constructor ClassUseLifo.Create ; 


begin 
fherited: Gestionnaire de l'événement OnDepiler : 
end; signature compatible avec DelegateLifo. 


procedure ClassUseLifo.DepilerListener( Sender: TObject ; s :string ) ; 


begin 
writeln ("On à depile :",s) ; Gestionnaire de l'événement OnEmpiler : 
end; signature compatible avec DelegateLifo. 


procedure ClassUseLifo.EmpilerListener( Sender: TObject ; s :string ) ; 
begin 
writeln ('On a empile : ",s) ; 


end; 
: Méthode main de test 


procedure ClassUseLifo.main ; 


var 
pileLifo : ClassLifo ; Instanciation d'une 
ch string ; pile Lifo à tester. 

begin 
pileLifo := ClassLifo.Create ; Affectation de chaque gestionnaire à 
pileLifo.OnEmpiler := EmpilerListener ; } l'événement qu'il est chargé de gérer. 
pileLifo.OnDepiler := DepilerListener ; 


pileLifo.Empiler('[ eau ]') ; 

pileLifo.Empiler('[ terre |) ; ; un 
pileLifoErapilei( Times J') : Empilement de 4 éléments 
pileLifo.Empiler('[ voiture |!) ; 


writeln ('Depilement de la pile : } ; 
while not pileLifo.Est_ Vide do 


begin 
pileLifo.Depiler(ch) ; Dépilement de toute la pile 


writeln (ch) ; 
end; 
writeln (‘Fin du depilement.' ) ; 
readin ; 
end; 


Application console Project2.dpr instanciant 
un objet de ClassUseLifo et lançant le test de 


la pile lifo par invocation de la méthode main. 
.. togram Files Borland Delphi7\Bin' Project 


end. 


program Project?; empile : [ eau 1 


empile : [ terre 1 
{$APPTYPE CONSOLE} empile : [ mer ] 


a empile : [ voiture ] 


[ mer 1] 


; ; ; Depilement de la pile : 
uses SysUtils , UlifoEvent 0 L : = 
> ? ot: n à depile : [ voiture 1 
var execLifo : ClassUseLifo; exécution [ voit ure ] 


begin 
execLifo := ClassUseLifo.Create; 
execLifo.main 


end. On a depile : [I eau 1 
[ eau 1 
Fin du depilement. 


[ terre 1] 
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Ex-2 Solution détaillée : un éditeur de texte 


1. Les choix à partir de l'énoncé 


Les objets potentiels réagiront à ces événements selon le graphe ci-dessous 


—"" __} message par evcution d'une méthode 


L'objet TextEditeur est l’objet central sur lequel agissent tous les autres objets, il contiendra le texte à éditer. 
En faisant ressortir les opérations à effectuer, l’utilisation de la notion d’abstraction est naturelle. 


Nous envisageons les actions suivantes obtenues par réaction à un événement Click de souris (choix des objets 
du graphe précédent): 


nouveau (utilise un objet à définir) 
couper (utilise un objet à définir) 

copier (utilise un objet à définir) 

coller (utilise un objet à définir) 

ouvrir (utilise un objet de dialogue) 
enregistrer (utilise un objet de dialogue) 
quitter (utilise un objet prédéfini Form) 
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2. Les objets de composants 


Delphi étant orienté objet nous allons exploiter complètement l'analyse présentée dans le graphe événementiel ci- 
haut en mettant en place quatre objets du genre composants visuels ou non visuels de Delphi. 


L'interface choisie 


Formi [fer | X | 


Une fiche (Forml) comportant : 
Q Un Tmemo avec deux ascenseurs 


Fichier Edition 


Trois composants non visuels : 
Q TMainmenu (une barre de 2 menus) 
Q TopenDialog (pour le chargement de 


fichier) 
Q TSaveDialog (pour la sauvegarde d'un 
texte) 
Le composant TMaiïnmenu(1” menu) L Fichier | É 
comporte un premier menu Fichier à 5 items Nouveau 
Ouvrir 
EMTEGISTENSOUS. 
Quitter = | 
TMainMenu 
Le composant TMainmenu (2° menu) 
comporte un deuxième menu Edition à 3 Fichier [Edition | 
items. Memol Couper Ctri+x 


Copier Ctrl+C 
Coller  Ctri+W EC 
TMainMenu 


Les menus dans la barre et les sous-menus sont tous des objets de classe Tmenultem qui sont gérés à travers le 
champ Items d'un objet de classe TMainMenu : 
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I-Dx 


TMenultem 


TMenultem 


TMainMenu 


TMenultem 


object MainMenul: TMainMenu 


object fichier1: TMenultem 
Caption = ‘fichier’ 
end 
object editionl: TMenultem 
Caption = 'edition' 
object couperl: TMenultem 
Caption = "couper 
end 
object copier1: TMenultem 
si Sn Correspondance entre le code caché par 
object coller1: TMenultem | Delphi et l'inclusion des objets de 


Caption = 'coller' Tmenultem dans un TmainMenu. 
end 


end 


Mise en place de la gestion des événements. 


A chacun des items utilisables de chacun des 2 menus, il nous faut associer un gestionnaire d'événement qui 
indique au programme comment il doit réagir lorsque l'utilisateur sélectionne un champ de l'un des menus par un 
click de souris. Nous avons vu que Delphi contient le mécanisme d'association des événements à nos 
gestionnaires. Beaucoup de contrôles (classes visuelles)et beaucoup d'autres classes non visuelles comme les 
TMenultem, de Delphi sont sensibles à l’événement. de click de souris : property OnClick : TnotifyEvent. 


Les gestionnaires de l’événement OnClick pour les TMenultem 


Voici les en-têtes des 7 gestionnaires de OnClick automatiquement construits : 
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___mmMouet 
procedure Nouveau1Click(Sender: D RE Hi 
procedure Ouvrir1Click(Sender: TObject); D 
procedure Enregistrersous1Click(Sender: TObject): CETTE 


procedure Quitter1Click(Sender: TObject)>—#% Quitte 


procedure Couper1Click(Sender: TObject): 

procedure Copier1Click(Sender: TObiject); 

procedure Coller1Click(Sender: TObject); TT Eure 
a Ctr+C 


Coller  Ctri+V 


Voici pour chaque gestionnaire le code écrit par le programmeur. 


Le code du gestionnaire Quitter1Click 
procedure TForml.Quitter1Click(Sender: TObject); 
begin 
Close; //écrit par le développeur (fermeture de la fenêtre) 
end; 


Le code du gestionnaire Ouvrir1Click 


procedure TForml.Ouvrir1Click(Sender: TObject); 
begin 
if OpenDialog1.Execute then //écrit par le développeur 
begin 
Enregistrersous1.enabled:=true; 
TextEditeur.Lines.LoadFromFile(OpenDialog1 .FileName); 
end 
end; 


Le code du gestionnaire Enregistrersous1Click 


procedure TForml1.Enregistrersous 1Click(Sender: TObject); 
begin 
if SaveDialog1.Execute then // écrit par le développeur 
begin 
Enregistrersous1.enabled:=false; 
TextEditeur.Lines.SaveToFile( SaveDialog1.FileName ); 
end 
end; 


Le code du gestionnaire Couper1Click 


procedure TForm1.Couper1Click(Sender: TObject); 
begin 


TextEditeur.CutToClipboard; //écrit par le développeur 
end; 
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Le code du gestionnaire Copier1Click 


procedure TForm1.Copier1Click(Sender: TObject); 
begin 


TextEditeur.CopyToClipboard; //écrit par le développeur 
end; 


Le code du gestionnaire Coller1Click 
procedure TForml1.Coller1Click(Sender: TObject); 
begin 
TextEditeur.PasteFromClipboard; //écrit par le développeur 
end; 


Le code du gestionnaire NouveaulClick 


procedure TForm1.Nouveaul1Click(Sender: TObject); 
begin 


TextEditeur.Clear; &not; écrit par le développeur 
Enregistrersous1.enabled:=true &not; écrit par le développeur 
end; 


Il est à noter que nous avons écrit au total 16 lignes de programme Delphi pour construire notre micro-éditeur. 
Ceci est rendu possible par la réutilisabilité de méthodes déjà intégrées dans les objets de Delphi et en fait 
présentes dans le système Windows. 


Vous pouvez voir la puissance de ce RAD lorsque vous observez par exemple l'instruction qui a permis de faire 
exécuter le "copier" ou le "chargement d'un fichier" : 


TextEditeur.CopyToClipboard; 


La méthode CopyToClipboard s'applique à l'objet TextEditeur qui est de la classe TMemo; cette instruction 
correspond à un ensemble complexe d'opérations de bas niveau : 

le TMemo autorise une suite complexe d'opérations permettant de sélectionner un texte écrit sur plusieurs lignes 
du TMemo. Il les affiche en surbrillance et la méthode CopyToClipboard récupère le texte sélectionné puis le 
recopie enfin dans le presse-papier du système. 


TextEditeur.Lines.LoadFromFile(OpenDialog1.FileName); 


Nous n'avons par ailleurs eu aucun code particulier à écrire pour le chargement de fichier texte, la méthode 
LoadFromFile présente dans l'objet Lines (de classe TStrings) effectue toutes les actions. 


A titre de travail personnel il est recommandé d'enrichir ce micro-éditeur avec la possibilité de changer la police 
de caractère, la couleur du fond etc. 
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Ex-3 Code solution pratique : une pile Lifo avec exception 


Création d'une nouvelle classe 


PileVideException = class (Exception) 
end; 


Lancer une PileVideException 


procedure ClassLifo.Depiler( var elt : string ) ; 


begin 
if not Est_Vide then 
begin 
end 
else raise PileVideException.Create (Impossible de dépiler: la pile est vide’) 
end; 
Code complet de la pile 
La cl E i la unit : 
ni DL: a classe —— est dans la unit 
ysUtils 


interface 
uses classes, Dialogs, SysUtils ; 


type 
DelegateLifo = procedure ( Sender: TObject ; s :string ) of object ; 


PileVideException = class (Exception) 
end; 

La classe d'exception personnalisée : 
ClassLifo = class (TList) PileVideException 


private 
FOnEmpiler : DelegateLifo ; 
FOnDepiler : DelegateLifo ; 
public 
function Est_Vide : boolean ; 
procedure Empiler (elt : string ) ; 


procedure Depiler ( var elt : string ) ; 
property OnEmpiler : DelegateLifo read FOnEmpiler write FOnEmpiler ; 


property OnDepiler : DelegateLifo read FOnDepiler write FOnDepiler ; 


end; 


ClassUseLifo = class 


public 
procedure EmpilerListener( Sender: TObject ; s :string ) ; 


procedure DepilerListener( Sender: TObject ; s :string ) ; 


constructor Create ; 
procedure main ; 
end; 


implementation 
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procedure ClassLifo.Depiler( var elt : string ) ; 
begin 
if not Est_Vide then 
begin 
elt :=string (self First) ; 
self. Delete(0) ; 
self. Pack ; 
self.Capacity := self.Count ; 
if assigned(FOnDepiler) then 
FOnDepiler ( self ,elt ) 
end 
else raise PileVideException.Create (Impossible de dépiler: la pile est vide’) 
end; 
; | | Instanciation d'un objet de type : 
procedure ClassLifo.Empiler(elt : string ) ; PileVideException 


begin Et lancement de cet objet d'exception. 


self.Insert(0 , PChar(elt)) ; 
if assigned(FOnEmpiler) then 
FOnEmpiler ( self ,elt ) 
end; 


function ClassLifo.Est_Vide : boolean ; 
begin 

result := self.Count = 0 ; 
end; 


{ ClassUseLifo } 


constructor ClassUseLifo.Create ; 
begin 

inherited; 
end; 


procedure ClassUseLifo.DepilerListener( Sender: TObject ; s :string ) ; 
begin 

writeln ('On a depile : ",s) ; 
end; 


procedure ClassUseLifo.EmpilerListener( Sender: TObject ; s :string ) ; 
begin 

writeln ('On a empile : ",s) ; 
end; 


procedure ClassUseLifo.main ; 
var 
pileLifo : ClassLifo ; 
ch :string ; 
begin 
pileLifo := ClassLifo.Create ; 
pileLifo.OnEmpiler := EmpilerListener ; 
pileLifo.OnDepiler := DepilerListener ; 
pileLifo.Empiler('[ eau ]') ; 
pileLifo.Empiler('[ terre |) ; 
pileLifo.Empiler('[ mer |) ; 
pileLifo.Empiler('[ voiture |!) ; 
writeln ('Depilement de la pile :" ) ; 
while not pileLifo.Est_ Vide do 
begin 
pileLifo.Depiler(ch) ; 
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writeln (ch) ; 
end; 

writeln ('Fin du depilement. ) ; 
Ty 

pileLifo.Depiler(ch) ; 

writeln (ch) ; 
except on Ex : PileVideException do begi 

writeln (Ex.Message ) ; 
end; 


On tente de dépiler alors que la pile a 
été entièrement vidée ! 


Interception d'un objet Ex de type : 
PileVideException 
Et gestion de son Message. 


end; 
readin ; 
end; 


end. 


Application console Project2.dpr instanciant 
un objet de ClassUseLifo et lançant le test de 
la pile lifo par invocation de la méthode main. 


| c\ C:\Program Files\.Borland'Delphi7\Bin\Project2:exe 
program Project2; omvile : | oau | 


a 
a empile : [ terre ]1 

a empile : [ mer 1 

a empile : [ voiture ] 


{SAPPTYPE CONSOLE} 


: : , Depilement de la pile : 
uses SysUtils , UlifoEvent — On a depile : [L voiture 1 
var execLifo : ClassUseLifo;> exécution [ voiture 1 
begin On à depile : [ mer 1] 


execLifo := ClassUseLifo.Create; [ mer 1] 


execLifo.main nn sopote : [ terre 1] 


end. On a depile : [ eau 1 
[ eau 1] 
Fin du depilement. 
Impossible de düpiler: la pile est vide 
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Ex-4 Code solution pratique : liste chaînée double 


unit UDbIListChn; 
interface 
type TListeDble=class 
public 
TCellDble = class constructor Create; 
public destructor Liberer; 
info:string; procedure AjouterLeft(elt:string); 
constructor Creer(avant,apres:TCellDble;elt:string); | procedure AjouterRight(elt:string); 
procedure InsererAvant(cell:TCellDble); procedure InsererLeft(rang:integer;elt:string); 
procedure InsererApres(cell:TCellDble); procedure InsererRight(rang:integer;elt:string); 
private procedure SupprimerLeft(rang:integer); 
next: TCellDble; procedure SupprimerRight(rang:integer); 
prec:TCellDble; function ElementFromLeft(rang:integer):string; 
end; function ElementFromRight(rang:integer):string; 
function IndexFromLeftOf(elt:string):integer; 
function IndexFromRightOf(elt:string):integer; 
function Tete: TCellDble; 
function Hin:TCellDble; 
function Longueur:integer; 
procedure Clear; 
function ParcourirLeft:string; 
private 
head,tail: TCellDble; 
Long:integer; 
function CellFromLeftAt(rang:integer): TCellDble; 
function CellFromRightAt(rang:integer):TCellDble; 
end; 
implementation 
{ TCellDble } 


constructor TCellDble.Créer (avant,apres:TCellDble; 
elt:string ); 
begin 
self.next:=apres; 
self.prec:=avant; 
self.info:=elt; 
end; 


procedure TCellDble.InsererApres(cell: TCellDble); 
var celINext:TCellDble; 

begin 

celINext:= cell.next; 

self.next:=cellNext; 

cell.next:=self; 

cellNext.prec:=self; 

self.prec:=cell 
end; 


procedure TCellDble.InsererAvant(cell:TCellDble); 
var cellPrec:TCellDble; 
begin 
cellPrec:= cell.prec; 
self.prec:=cellPrec; 
cell.prec:=self; 
cellPrec.next:=self; 
self.next:=cell 
end; 
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constructor TListeDble.Create; / TListeDble } function TListeDble.IndexFromRightOf(elt: string) 
begin integer; 
head:=TCellDble.Créer (nil,nil,"**#); var i,index:integer; 
tail:=TCellDble.Créer (nil,nil,'###'); L:TCellDble; 
head.next:=tail; begin 
tail.prec:=head; index:=0; 
Long:=0; 
end; 


L:=self.tail; 
for i:=1 to long+1 do begin 


if L.info=elt then 
destructor TListeDble.Liberer; break 
begin else 
self.Clear; begin 
self.head.Free; L:=L.prec; 
self.tail.Free; index :=index+1 
end; end 
end; 
function TListeDble.ElementFromLeft(rang: integer): | if index>long then 
string; index :=0; 
var L.Loc:TCellDble; result:=index 
compte:integer; end; 
begin 


if (rang<=Long)and(rang>0) then 


procedure TListeDble.InsererLeft(rang: integer; 
result:=CellFromLeftAt(rang).info 


elt: string); 
else var Loc:TCellDble; 
result:="?" begin 
end; if (rang<=Long)and(rang>0) then 
begin 
function TListeDble.ElementFromRight(rang: 
integer): string; 


Loc:=TCellDble.Creer(nil,nil,elt)}; 


Loc.InsererAvant(CellFromLeftAt(rang)); 
var L,Loc:TCellDble; Long:=Long+|]; 
compte:integer; end 
begin end; 
if (rang<=Long)and(rang>0) then 
result:=CellFromRightAt(rang).info procedure TListeDble.InsererRight(rang: integer; elt: 
else string); 
result:="?" var Loc:TCellDble; 
end; begin 
if (rang<=Long)and(rang>0) then 
function TListeDble.IndexFromLeftOf(elt: string): begin 
integer; Loc:=TCellDble.Creer(nil,nil,elt); 
var i,index:integer; Loc.InsererApres(CellFromRightAt(rang)); 
L:TCellDble; Long:=Long+l; 
begin end 
index:=0; end; 
L:=self.head; 


for i:=1 to long+1 do begin procedure TListeDble.SupprimerLeft(rang: integer); 
if L.info=elt then 


var Loc,Lprec,Lnext:TCellDble; 
break begin 
else if (rang<=Long)and(rang>0) then 
begin begin 
L:=L.next; Loc:=CellFromLeftAt(rang); 
index:=index+1 Lnext:=Loc.next; 
end 
end; 


Lprec:=Loc.prec; 
Lnext.prec:=Lprec; 
if index>long then 


Lprec.next:=Lnext; 
index:=0; Loc.Free; 
result:=index Long:=Long-1 
end; end 
end; 
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var Loc,Lprec,Lnext:TCellDble; 
begin 
if (rang<=Long)and(rang>0) then 
begin 
rang:=long-rang+l; 
self. SupprimerLeft(rang) 
end 
end; 
function TListeDble.Fin: TCellDble; 
begin 
result:=self.tail 
end; 


function TListeDble.Tete: TCellDble; 
begin 

result:=self.head; 

end; 


procedure TListeDble.Clear; 
var L,Loc:TCellDble; 
begin 
if Long>0 then 
begin 
L:=self.head; 
while Assigned(L) do begin 
Loc:=L; 
L:=L.next; 
if Loc<>head)and(Loc<>tail)then 
//on n'efface pas la tête et la fin 
begin 
Loc.Free ; 
end 
end; 
head.next:=tail; 
tail.prec:=head; 
Long:=0; 
end 
end; 


function TListeDble.Longueur: integer; 
begin 

result:=Long 

end; 


function TListeDble.ParcourirLeft:string; 
var L:TCellDble; 
sortie:string; 

begin 

L:=self.head; 

sortie:="; 

while Assigned(L) do begin 
sortie:=sortie+L.info; 
L:=L.next; 

end; 

result:=sortie 

end; 


procedure TListeDble.SupprimerRight(rang: integer); 


procedure TListeDble.AjouterLeft(elt: string); 
var L,Loc:TCellDble; 

begin 

L:=self.head; 
Loc:=TCellDble.Creer(L,L.next,elt); 
L.next.prec:=Loc; 

L.next:=Loc; 

Long:=Long+l; 
end; 


procedure TListeDble.AjouterRight(elt: string); 
var L,Loc:TCellDble; 
begin 
L:=self.tail; 
Loc:=TCellDble.Creer(L.prec.L.elt); 
L.prec.next:=Loc; 
L.prec:=Loc; 
Long:=Long+1; 
end; 


function TListeDble.CellFromLeftAt(rang: integer): 
TCellDble; 


var L,Loc:TCellDble; 
compte:integer; 
begin 

if (rang <=Long)and(rang>0) then 
begin 

L:=self.head; 

for compte:=1 to rang+1 do begin 
/la tete compte pour une cellule 


Loc:=L; 
L:=L.next; 
end; 
result:=Loc 
end 
else 
result:=nil 
end; 


function TListeDble.CellFromRightAt(rang: integer): 
TCellDble; 


var L,Loc:TCellDble; 
compte:integer; 

begin 

if (rang<=Long)and(rang>0) then 
begin 

L:=self.tail; 

for compte:=1 to rang+1 do begin 
/la fin compte pour une cellule 


Loc:=L; 
L:=L.prec; 
end; 
result:=Loc 
end 
else 
result:=nil 
end; 


end. / fin unit UDblListChn 
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Ex-5 Code solution pratique : hiérarchie de quadrilatères 


unit UClassQuadrilat; 


interface 
uses stdctrls; 


type 
cotes=string; 
angles=string; 


quadrilatere=class 
private 
AB,BC,CD,DA:cotes; 
public 
function PropCotes (x:cotes):string; virtual; 
//--statique car elle sert à tous : 
procedure AfficheCotes (List: TlistBox); 
procedure AfficheAngles (List:TlistBox); virtual; 
constructor create; virtual; 

end; 


Parallelogramme = class (quadrilatere) 
private 
ABC,BCD,CDA,DAB:angles; 

public 
function PropCotes(x:cotes):string;override; 
function PropAngles(x:angles):string; virtual; 
procedure AfficheAngles(List:TlistBox);override; 
constructor createsoverride; 

end; 


rectangles = class (parallelogramme) 
/1-- rectangle est déjà une function existante en Delphi! 
public 

function PropAngles(x:angles):string;override; 
end; 


carre = class (rectangles) 

public 

function PropCotes(x:cotes):string;soverride; 
end; 


implementation 


HUHIIIIIII/ CLASSE QUADRILATERE ///H III 
constructor quadrilatere.create; 

begin 

AB:='AB;'; 

BC:='BC'; 

CD:='CD'; 

DA:=DA; 

end; 


function quadrilatere.PropCotes(x:cotes):string; 
begin 

result:=x+" : quelconque" 

end; 


procedure quadrilatere.AfficheCotes(List:TlistBox); 
begin 

List.Clear; 

List.Items.Add(PropCotes(AB)); 
List.Items.Add(PropCotes(BC)); 
List.Items.Add(PropCotes(CD)); 
List.Items.Add(PropCotes(DA)); 

end; 


procedure quadrilatere.AfficheAngles(List:TlistBox); 
begin 

List.Clear; 

List.Items.Add('angles quelconques") 

end; 


HIT CLASSE PARALLELOGRAMME HIHI 
constructor parallelogramme.create; 

begin 

inherited; 

ABC:='ABC'; 

BCD:='BCD'; 

CDA:='CDA'; 

DAB:='DAB;'; 

end; 


function parallelogramme.PropCotes(x:cotes):string; 
begin 
if x='AB' then 

result:=x+" parallèle à CD et AB=CD' 
else 

if x= BC' then 

result:=x+" parallèle à DA et BC=DA' 
else 

if x='CD' then 

result:=x+' parallèle à AB et CD=AB' 
else 

if x='DA' then 

result:=x+" parallèle à BC et DA=BC" 

end; 
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// CLASSE PARALLELOGRAMME (suite) // 
function parallelogramme.PropAngles 


(x:angles):string; 

begin 

if x='ABC' then 

result:=' ABC = CDA' 

else 

if x='BCD' then 

result:=' BCD = DAB' 

else 


if x='CDA' then 
result:= CDA = ABC 
else 
if x= DAB' then 
result:= DAB = BCD' 
end; 


procedure parallelogramme.AfficheAngles 
(List: TlistBox); 
begin 
List.Clear; 
List.Items.Add(PropAngles(ABC)); 
List.Items.Add(PropAngles(BCD)); 
List.Items.Add(PropAngles(CDA)); 
List.Items.Add(PropAngles(DAB)); 
end; 


HUIT CLASSE RECTANGLE HI 
function rectangles.PropAngles(x:angles):string; 
var s:string; 

begin 

s:=inherited PropAngles(x); 

result:=s+' = 90° 

end; 


HUIT CLASSE CARRE //// HI 
function carre.PropCotes(x:cotes):string; 
var s:string; 

begin 


if (x='AB;) then 
result:=s+'=BC" 
else 
if(x='bc')then 
result:=s+'=CD' 
else 
if(x='cd')then 
result:=s+'=DA' 
else 
if(x="da') then 
result:=s+'=AB' 
end; 


end. 


s:=inherited PropCotes(x); {celui de parallélogramme: 
première classe ancêtre où il est surchargé ou défini } 


Exemples d'affichages obtenus pour un objet quadrilatère instancié dans chaque type : 


Quadrilatère 


D : quelconque 


Côtés 
àB parallèle à CD et 4B=CD 
EC parallèle à D4 et BC=D4, 
CD parallèle à 4B et CD=4B 
Dé parallèle à BC et DÉ=BC 


àB parallèle à CD et 4B=CD 
EC parallèle à DA et BC=D4 
CD parallèle à AB et CD=4B 
Dé parallèle à BC et DÉ=BC 


Côtés 
8àB parallèle à CD et 4B=CD=BC 
EC parallèle à Dâ et BC=D4=CD 
CD parallèle à 4B et CD=4B=D4 
Dé parallèle à BC et DÉ=BC=8B 
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Ex-6 Code solution pratique : un TMemoFlash qui clignote 


Une unité d'IHM qui instancie un TmemoFlash lorsque l'on clique sur le bouton Button! : 


L'un Memories T=IE 


adresse Ouner = 984654 
adresse Memo = 395396 


unit UClassclickMemo; 
interface 


uses 

StdCtris,ExtCtris, 

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, 
Dialogs; 


type 
TFormi1 = class(TForm) 
Button1: TButton; 
procedure Button1Click(Sender: TObject); 
private 
{ Private declarations } 
public 
{ Public declarations } 
end; 


TMemoFlash=class(T Memo) 
private 
Tempo:TTimer; 
Timing:integer; 
procedure flashMemo(Sender : TObject); 
procedure ClickMemo(Sender : TObject); 
public 
constructor Create(AOwner: TComponent); 
destructor Destroy; 
end; 


var 
Forml: TForml; 


implementation 


{$R *.dfm} 

constructor TMemoFlash.Create(AOwner: TComponent); 

begin 

inherited; 

self. Parent:=TWinControl(AOwner); 

self. Lines. Append('adresse Owner = '#+inttostr((AOwner as TWincontrol).Handle)); 
self. Lines. Append('adresse Memo = ‘+inttostr(self. Handle)); 
Tempo:=TTimer.Create(AOwner); 
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Tempo.Enabled:=false; 
Tempo.lnterval:=100; 
Tempo.OnTimer:= flashMemo; 
self.OnClick:= ClickMemo; 
end; 


destructor TMemoFlash.Destroy; 
begin 

Tempo.Free; 

inherited; 

end; 


procedure TMemoFlash.flashMemo(Sender : TObject); 
begin 
Timing:=Timing+1; 
if Timing<10 then 
if self.color=clyellow then 
self.color:=claqua 
else 
self.color:=clyellow 
else 
tempo.enabled:=false 
end; 


procedure TMemoFlash.ClickMemo(Sender : TObject); 
begin 

Timing:=0; 

Tempo.Enabled:=true; 

end; 


procedure TForm1.Button1Click(Sender: TObject); 
var x:TMemoFlash; 


begin 
x:=TMemoFlash.Create(self); 
end; 
end. 
Ex-7 Code solution pratique : Filtrage avec KeyPress 
unit UKeyPress; 


[permet le filtrage de caractères en mode clavier à partir d'un TEdit 
//(effacement possible seulement à la fin du texte entré) 
interface 


uses 
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, 
StdCtris; 


type 

TForm1 = class(TForm) 
EditSaisie: TEdit; 
MemoAbpresFiltrage: TMemo; 
EditFiltre: TEdit; 

Labell: TLabel; 

Label2: TLabel; 
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Label3: TLabel; 
procedure EditSaisieKeyPress(Sender: TObject; var Key: Char); 
procedure EditSaisieClick(Sender: TObject); 
procedure FormCreate(Sender: TObject); 
private 
{ Déclarations privées } 
public 
{ Déclarations publiques } 
LeTexte:string; /contient le texte entré au clavier 
procedure TexteSansBackSp(var Entree:string;car:char); 
procedure TexteAvecBackSp(var Entree:string;car:char); 
end; 


var 
Forml: TForml; 


implementation 


{$R *.dfm)} 


procedure TForml1.TexteSansBackSp(var Entree:string;car:char); 
//ne traite pas le backspace 
begin 
if car<>#13 then 
begin 
if car in ['a'..7']+['A'..'7'] then 
begin 
Entree:=Entree+car; 
EditFiltre.Text:=Entree 
end 
end 
else 
begin 
MemoApresFiltrage.Lines.Add(Entree); 
Entree:="; 
EditSaisie.Text:=" 
end 
end; 


Texte stocké après saisie et filtrage : 


Texte entré avant filtrage : (appuyez sur la 
touche entrée pour terminer) 


ismüs"sdis kk  gfhjGUY :1$d Fi 


Texte obtenu après filtrage : 


procedure TForml1.TexteAvecBackSp(var Entree:string;car:char); 
//traitement du backspace à partir de la fin du texte 
begin 
if (ord(car)=8)and(length(EditSaisie.Text)<>0) then 
if EditSaisie.Text[length(EditSaisie.Text)] in ['a'..'z']+['A".'Z"] then 
begin 
delete(Entree,length(Entree), 1); //on efface le dernier caractère 
EditFiltre.Text:=Entree Jon recopie le nouveau texte 
end; 
TexteSansBackSp(Entree,car) 
end; 


procedure TForml1 .EditSaisieKeyPress(Sender: TObject; var Key: Char); 
[filtrage des lettres non accentuées seulement 

begin 

TexteSansBackSp(LeTexte,Key); 

/TexteAvecBackSp(LeTexte, Key); 

end; 
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procedure TForml .EditSaisieClick(Sender: TObject); 

begin 

EditSaisie.SelStart:= length(EditSaisie.text) //replace systématiquement le curseur à la fin 
end; 


procedure TForml1.FormCreate(Sender: TObject); 
begin 

EditSaisie.SetFocus 

end; 


End. 
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Chapitre 6 : Utiliser des grammaires 


pour programmer 


6.1.Programmation avec les grammaires de type 2 


° programmation par les grammaires 
e C-grammaire et automate à pile de mémoire 


6.2.Automates et grammaires de type 3 


e automates pour les grammaires de type 3 

° implantation d'un automate d'état fini en pascal 
déterministe à partir des règles 

déterministe à partir de sa table des transitions 
non-déterministe à partir des règles 

automate pour les identificateurs 

automate pour les constantes numériques 


6.3.Projet d'interpréteur de micro-langage 


e la grammaire du micro-langage 
° construction de l'analyseur 
e construction de l'interpréteur 


6.4.Projet d'indentateur de code Delphi 


e spécifications 
e architecture 
e implantation 
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6.1 Programmation avec des 
C-grammaires 


Plan du chapitre: É 


1. Programmation par les grammaires 


1.1 Méthode pratique de programmation avec un langage récursif 
1.2 Application de la méthode : un mini-français 


2. C-grammaire et automate à pile de mémoire 


2.1 Définition d’un automate à pile 
2.2 Algorithme de fonctionnement d’un automate à pile 
2.3 Programme Pascal d’un automate à pile 
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1. Programmation par les grammaires ( programme en Delphi et Java) 


D'un point de vue pratique, les grammaires sont un outil abstrait puissant. Nous avons vu 
qu’elles permettaient de décrire des langages de quatre catégories. Elles servent aussi : 


a soit à générer des phrases dans le langage engendré par la grammaire (en ce sens elles 
permettent la programmation), 

a soit à analyser un énoncé quelconque pour savoir s’il appartient ou non au langage 
engendré par la grammaire (en ce sens elles permettent la construction des analyseurs et 
des compilateurs). 


Nous adoptons ici le point de vue " mode génération " d’une grammaire afin de s’en servir 
comme d’un outil de spécification sur les mots du langage engendré par cette grammaire. On 
appelle aussi cette démarche programmation par la syntaxe. 

Nous nous restreindrons au C-grammaires et aux grammaires d’états finis. 

Soit G = (Vx,Vr,S.R), une telle grammaire et L(G) le langage engendré par G. 

Objectif : Nous voulons construire un programme qui nous exhibe sur l’écran des mots du 
langage L(G). 

1.1 Méthode pratique de programmation avec un langage récursif 


G=(Vx,ViS,R) > traduction en programme pratique en langage X générateur de mots. 


La grammaire G est supposée ne pas contenir de règle récursive gauche ( du genre À — Aa ), 
sinon il faut essayer de la changer ou abandonner. 


1° Tous les éléments du vocabulaire auxiliaire VX deviennent les noms d’un bloc-procédure du programme. 


2° Le vocabulaire terminal V- est décrit soit par un type prédéfini du langage X s’il est simple, sinon par une 
structure de donnée et un TAD. 


3° Toutes les règles de G sont traduites de cette manière : 


3.1° le symbole de V, de la partie Gauche de la règle indique le nom du bloc-procédure que l’on va implanter. 
3.2° la partie droite d’une règle correspond à l’implémentation du corps du bloc-procédure, pour chaque 
symbole « de cette partie droite si c’est : 

Q un élément de Vr, il est traduit par une écriture immédiate de sa valeur (généralement un écrire(æ) 
traduit dans le langage X). 

Q un élément de V\, il est traduit par un appel au bloc-procédure du même nom que lui. 


4° Le bloc-procédure représentant l’axiome S est appelé dans le programme principal. Chaque appel de S 
fournira un mot du langage L(G). 
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Afin de bien persuader le lecteur de la non dépendance de la méthode vis à vis du langage 


nous construisons l'exemple en parallèle en Delphi et en Java. 


Exemple fictif : 
grammaire Traduction en Delphi Traduction en Java 

G — ( VX VS, R) 
Vk={S,A,B} Vx — procedure S ; VX — void S( ); 
Vr={ab} Vr — Type Vt= char; | Vr — char; 
Axiome : S procedure À ; void A ) ; 
Règles : procedure B ; void B( ) : 
k:S — aAbBb 


La règle k est traduite par l’implantation du corps du bloc-procédure associé à l’axiome S 


(partie gauche): 


règle Traduction en Delphi Traduction en Java 

procedure S ; void S(){ 

begin 
writeln(‘a’) ; System.out.printin('a'); 
A; A() ; 

ES SAR writeln(‘b?) ; oo 

writeln(‘b?) ; 

end; } 


Le lecteur comprend ici le pourquoi de la contrainte de règles non récursives gauches (du 


genre À — À a }, le bloc-procédure s’écrirait alors : 


règle Traduction en Delphi Traduction en Java 
procedure A ; void A() 
begin { 
A—AGQ A ; A); 
end ; } 


Ce qui conduirait le programme à un empilement récursif infini du bloc-procédure A (limité 
par la saturation de la pile d’exécution de la machine avec production d'une exception de 
débordement de pile). 


1.2 Application de la méthode : un mini-français 
Etant donné G une grammaire d’un sous-ensemble du français dénommé mini-fr. 


G = (Vx, Vi, S.R) 

Vr ={le, un, chat, chien, aime, poursuit, malicieusement, 
joyeusement, gentil, noir, blanc, beau, " . '} 

Vy = { (phrase), (GN), (GV), (Art), (Nom), (Adj), (Adv), (verbe) } 


Axiome : (phrase ) 
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Règles : 

phrase }—{ GN )}{ GV ){ GN ). 

GN )—(Art )( Adj }( Nom) 

GN })—( Art )}({ Nom )( Adj) 

GV }—( verbe ) | { verbe )( Adv ) 
Art )— le | un 

Nom }— chien | chat 

verbe )— aime | poursuit 


0 
TS 


Adj }— blanc | noir | gentil | beau 


KORICOM IRON ICT ECOMNON RES 
SHARP PS 


Adv )— malicieusement | joyeusement 


Traduisons à l’aide de la méthode précédente, cette grammaire G en un programme Delphi 
générant des phrases de L(G). 


À) les procédures du programme 


Chaque élément de VX est associé à une procédure : 


{(phrase), (GN), (GV), (Art), (Nom), (Adj), (Adv), (verbe)} 


Vn Traduction en Delphi Traduction en Java 
procedure phrase; void phrase) 
procedure GN; void GN({) 

Vy = {(phrase), (GN), (cv), |Procedure GV; void GV() 

(Art), (Nom), (Adi), (Adv), procedure Art; voie Art () 

{verbe)} procedure Nom; void Nom) 
procedure Adj; void Adj{) 
procedure Adv; void Adv() 
procedure verbe; void verbe) 


B) les types de données associés à Vr 


Nous utilisons la structure de tableau de chaînes, commode à cause de sa capacité d’accès 
direct pour stocker les éléments de Vr. Toutefois, au lieu de ne prendre qu’un seul tableau de 
chaînes pour Vr tout entier, nous partitionnons Vr en 5 sous-ensembles disjoints : 


Vr = nom LU tadjectif LU tarticle U tverbe LU tadverbe 
Où : 


tnom={ chat, chien } tadjectif={ blanc, noir, gentil, beau } 
tarticle ={ le, un } tverbe ={ aime, poursuit } 
tadverbe={ malicieusement, joyeusement } 


Spécification d’implantation en Delphi : 


Ces cinq ensembles sont donc représentés en Delphi chacun par un tableau de chaînes. Nous 
définissons le type mot comme le type général, puis cinq tableaux de type mot. 


const 
Maxnbmot=4; / nombre maximal de mots dans un tableau 
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type 
mot = array[1..Maxnbmot]Jof string; 


champs 
tnom, tadjectif, tarticle ,tverbe, tadverbe : mot; 


Nous construisons une classe que nous nommons Gener_fr qui est chargée de construire et 
d'afficher une phrase du langage mini-fr : 


Tous les champs seront privés la seule méthode publique est la méthode phrase qui traduit 
l'axiome de la grammaire et qui lance le processus de génération et bienentendu le 
constructeur d'objet de la classe qui est obligatoirement publique. 


Etat de la classe à ce niveau de construction : 


const 

Maxnbmot=4; / nombre maximal de mots dans un tableau 
type 

mot = array[1..MaxnbmotJof string; 


Gener_fr = class 
private 
tnom, tadjectif, tarticle, tverbe, tadverbe : mot; 
procedure GN; 
procedure GV; 
procedure Art; 
procedure Nom; 
procedure Adj; 
procedure Adv; 
procedure verbe; 
public 
constructor Creer; / constructeur d'objet 
procedure phrase; / axiome de la grammaire 
end; 


Spécification d’implantation en Java : Les spécifications sont les mêmes qu'en Delphi 
Etat de la classe Java à ce niveau de construction : 


class Gener_fr { 
final int Maxnbmot=4; // nombre maximal de mots dans un tableau 
private String| | nom ; 
private String] | tadjectif ; 
private String] | tarticle ; 
private String] | tverbe ; 
private String] | tadverbe ; 
private void GN (){ } 


private void GV (){ } 

private void Art (){ } 

private void Nom (){ } 

private void Adj (){ } 

private void Adv (){ } 

private void verbe (){ } 

public void phrase (){ }/axiome de la grammaire 
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©) Initialisation des données associées à Vr 


Un ensemble de méthodes de chargement est élaboré afin d’initialiser les contenus des 
différents tableaux, ce qui permet de changer aisément leur contenu, voici dans la classe 


Gener_fr les méthodes Delphi associées : 


procedure Gener_fr.initnom; 
begin 

tnom![1]:='chat'; 
tnom{2]:='chien'; 

end; 


procedure Gener_fr.initadjectif; 
begin 
tadjectif[1]:='beau'; 


tadjectif[2]:='gentil'; 
tadjectif[3]:='noir'; 
tadjectif[4]:='blanc'; 
end; 
procedure Gener_fr.initadverbe; 
begin 

tadverbel1 |:='malicieusement'; 
tadverbe[2]:='joyeusement'; 
end; 


Ces cinq méthodes sont appelées dans une méthode générale d’initialisation du vocabulaire 


Vr tout entier. 


procedure Gener_fr.initabl; 
begin 

initnom; 

initarticle; 

initverbe; 

initadjectif 
end; 


Initialisation des contenus en Java : 
void initnom ( ) 


ï 

tnom[0] ="chat"; 
tnom[1] = "chien"; 
} 

void initadjectif ( ) 


{ 

tadjectif[0] = "beau"; 
tadjectif[1] = "gentil"; 
tadjectif[2] = "noir"; 
tadjectif[3] = "blanc"; 
} 


void initadverbe ( ) 


{ 
tadverbe[0] 
tadverbel1] 


} 


"malicieusement"; 
"joyeusement"; 
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procedure Gener_fr.initverbe; 
begin 

tverbe[1]:='poursuit'; 
tverbe[2]:='aime"; 

end; 


procedure Gener_fr.initarticle; 
begin 

tarticle[1]:='le'; 
tarticle[2]:='un'; 

end; 


void initverbe ( ) 

ï 

tverbe[0] = "poursuit"; 
tverbe[1] = "aime"; 


} 


void initarticle ( ) 


tarticle[0] = "le"; 
tarticle[1] = "un"; ‘# 
Java 
void initabl ( ){ 

inithom ( }); 

initarticle ( ); 

initverbe ( ); 

initadjectif ( ); 

initadverbe ( }; 


- ( rév. 05.09.2004 ) 


Nous avons besoin d’une fonction de tirage aléatoire lorsqu'il se présente un choix à faire 
entre plusieurs règles dérivant du même élément de Vx , comme dans la règle suivante : 


règle 4 :( GV )—{ verbe) | { verbe) ( Adv) 
où nous trouvons deux cas de dérivation possible pour le groupe verbal GV : 


soit < verbe >, 
soit < verbe > < Ady > 


Le programme devra procéder à un choix aléatoire entre l’une ou l’autre des dérivations 
possibles. 


Nous construisons une méthode Alea qui reçoit en entrée un entier indiquant le nombre n de 
choix possibles et qui renvoie une valeur aléatoire comprise entre 1 et n. 


Une implantation possible: 


Delphi Java 
private Random ObjAlea = new Random(); 


function Gener_fr.Alea(n:integer):integer; 


begin ; : 
es » | int Alea (int n) { 
: — := trunc(random*100)mod n+1; return ObjAlea.nextInt(n): 


} 


D) Traduction de chacune des règles de G 


Nous traduisons en employant la méthode proposée règle par règle. 
REGLE 


1 : { phrase )—{( GN }{ GV }{ GN ). 


Nous construisons le corps de la méthode phrase qui est la partie gauche de la règle. Les 
instructions correspondent aux appels des procédures GN, GV. 


Delphi Java 

procedure Gener_fr.phrase; void phrase () 
begin 

GN; GN (): 

GV; GV (); 

GN; GN (): 

writeln(".) System.out.printin(".") ; 
end; } 

REGLE 


2 : { GN)—{ Art )( Adj )( Nom) 

3 : { GN)—( Art )( Nom )( Adj) 

Nous traitons ensemble ces deux règles car elles correspondent à la même procédure de 
génération du groupe nominal GN. 
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Ici nous avons un tirage aléatoire à faire pour choisir laquelle des deux dérivations le 
programme utilisera. 


Delphi Java 

procedure Gener_fr.GN; void GN () 
begin { 
if Alea(2)=1 then / pour règle 3 if (Alea(2) ==1) // pour règle 3 
begin { 

Aït; Aït (); 

Nom; Nom ); 

Adj Adj (}; 
end 
else // pour règle 2 else // pour règle 2 
begin { 

Aït; Aït (); 

Adj; Adj (); 

Nom Nom }; 
end } 
end ; } 

REGLE 


4 : ( GV }—( verbe } | { verbe }( Adv ) 


Dans ce cas nous avons aussi à faire procéder à un tirage aléatoire afin de choisir soit : 


la dérivation { GV )—{ verbe ) 
ou bien la dérivation { G7 }>({ verbe }{ Adv ) 


Delphi Java 
procedure Gener_fr.GV; void GV () 
begin { 
if Alea(2)=1 then / règle: < verbe > if (Alea(2) ==1) / règle: < verbe > 
Verbe Verbe ( ); 
else // règl:e < verbe >< Adv >. else // règl:e < verbe >< Adv >. 
begin { 
Verbe; Verbe ( }; 
Adv Adv ( }; 
end } 
end; } 


Les règles suivantes étant toutes des règles terminales, elles sont donc traitées comme le 
propose la méthode : chaque règle terminale est traduite par un writeln(a). Lorsqu'il y a 
plusieurs choix possibles, là aussi nous procédons à un tirage aléatoire afin d’emprunter l’une 
des dérivations potentielles. 


REGLE 
: ( Art }= le | un 
Nom )— chien | chat 
verbe )— aime | poursuit 
Adj }— blanc | noir | gentil beau 


Adv )— malicieusement | joyeusement 
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Delphi Java 

procedure Gener_fr.Art; void Art () 

begin { 

write( tarticle[ Alea(2)].'' ) System.out.print(tarticle[ Alea(2)]+' " ) ; 
end; } 

procedure Gener_fr.Adj; void Adj () 

begin { 

write(tadjectif[ Alea(4)];' ") System.out.print(tadjectif [Alea(4)]+'" ); 
end; 
procedure Gener_fr. Verbe; void Verbe ( ) 
begin { 

write(tverbe[Alea(2)];' ") System.out.print(tverbe [Alea(2)]+'" ); 
end; } 

procedure Gener_fr.Nom; void Nom ( ) 

begin { 

write(tnom|[Alea(2)];'") System.out.print(tnom [Alea(2)]+'" ); 
end; } 
procedure Gener_fr.Adv; void Adv() 
begin { 

write(tadverbe[Alea(2)];' System.out.print(tadverbe [Alea(2)]+'" ); 
end; } 


Le programme principal se bornera à appeler la procédure phrase (l’axiome de la grammaire) 
à chaque fois que nous voulons engendrer une phrase. Ci-dessous dans le tableau de gauche 
nous listons la classe Gener_fr Delphi comportant toutes les méthodes précédentes et le 
programme d'instanciation d'un objet de cette classe permettant la génération aléatoire de 
phrases. A l'identique dans le tableau de droite, nous listons la classe Gener_ fr Java, puis une 
autre classe principale générant une suite de phrases aléatoires : 


Classe Delphi Classe Java 
unit UclassGenerFr; import java.util. Random; 
interface class Gener_fr 
const Maxnbmot=4; { 
type mot=array|[1..MaxnbmotJof string; final int Maxnbmot=4; 
private String[ ] tnom = new String[Maxnbmot]; 
Gener_fr = class private String[ ] tadjectif = new String[Maxnbmot]; 
private private String. ] tarticle = new String[Maxnbmot]; 
tnom,tadjectif,tarticle,tverbe,tadverbe: mot; private String[ ] tverbe = new String[Maxnbmot]; 
procedure initnom; private String[ ] tadverbe = new String[Maxnbmot]; 
procedure initverbe; private Random ObjAlea = new Random(); 
procedure initadverbe; public Gener_fr( ) 
procedure initadjectif; 
procedure initarticle; initabl ( }; 
procedure initabl; } 
function Alea(n:integer):integer; private void initnom () 
procedure Article; { 
procedure Nom; tnom{0] ="chat"; 
procedure Adjectif; tnom[1] = "chien"; 
procedure Adverbe; } 
procedure Verbe; private void initadjectif ( ) 
procedure fin; { 
procedure Grp_Nom; tadjectif[0] = "beau"; 
procedure Grp_Verbal; tadjectif[1] = "gentil"; 
public tadjectif[2] = "noir"; 
constructor Creer; tadjectif[3] = "blanc"; 
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procedure phrase; 
end; 


implementation 


procedure Gener_fr.initnom; begin 
tnom{1]:='chat'; 

tnom{2]:='chien'; 

end; 


procedure Gener_fr.initverbe; begin 
tverbe[1]:='poursuit'; 
tverbe[2]:='aime"; 

end; 


procedure Gener_fr.initadverbe; begin 
tadverbe[1]:='malicieusement'; 
tadverbe[2]:='joyeusement'; 

end; 


procedure Gener_fr.initadjectif; begin 
tadjectif[ 
tadjectif[ 
tadjectif[ 
end; 


='pentil; 
hors 
:='blanc'; 


£ © D 


procedure Gener_fr.initarticle; begin 
tarticle[1]:='le'; 

tarticle[2]:='un'; 

end; 


procedure Gener_fr.initabl; begin 
Randomize; 

initnom; 

initarticle; 

initverbe; 

initadverbe; 

initadjectif 

end; 


function Gener_fr.Alea(n:integer):integer; 
begin 

Alea:=random(n)+1; 

end; 


procedure Gener_fr.Article; begin 
write(tarticle[Alea(2)],'") 
end; 


procedure Gener_fr.Nom; begin 
write(tnom{Alea(2)],'") 
end; 


procedure Gener_fr.Adjectif; begin 
write(tadjectif[Alea(4)];,'") 
end; 


procedure Gener_fr.Adverbe; begin 
write(tadverbe[Alea(2)],'" 
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} 

private void initadverbe ( ) 

{ 

tadverbe[0] = "malicieusement"; 
tadverbe[1] = "joyeusement"; 
} 

private void initverbe ( ) 

{ 

tverbe[0] = "poursuit"; 
tverbe[1] = "aime" 

} 

private void initarticle ( ) 

{ 

tarticle[0] = "le"; 

tarticle[1] = "un"; 

} 

private void initabl () 

{ 


initnom ( }; 
initarticle ( ); 
initverbe ( ); 
initadjectif ( ); 
initadverbe ( }; 


} 


int Alea(int n) 


return ObjAlea .nextInt(n); 


} 
private void GN () 


{ 
if (Alea(2) ==1) // pour règle 3 


{ 

Art (); 
Nom ( }); 
Adi (); 


else // pour règle 2 


{ 

Art (); 
Adi (); 
Nom ( ); 
} 


} 
private void GV () 


if (Alea(2) ==1) // règle: < verbe > 
Verbe ( }; 
else // règle: < verbe > < Adv > 


{ 

Verbe ( }; 
Adv ( ); 

} 


} 
private void Art () 


{ 
System.out.print(tarticle[ Alea(2)]+'" ) ; 


} 
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end; 


procedure Gener_fr.Verbe; begin 
write(tverbe[ Alea(2)], ") 
end; 


procedure Gener_fr.fin; begin 
writeln(.) 
end; 


procedure Gener_fr.Grp_Nom; begin 
if Alea(2)=1 then 
begin 
Article; 
Nom; 
Adjectif 
end 
else 
begin 
Article; 
Adjectif; 
Nom 
end 


end; 
procedure Gener_fr.Grp_Verbal; begin 
if Alea(2)=1 then 
Verbe 
else 
begin 
Verbe; 
Adverbe 
end 
end; 


procedure Gener_fr.phrase; begin 
Grp_Nom; 

Grp_Verbal; 

Grp_Nom; 

fin 

end; 


constructor Gener_fr.Creer; begin 
initabl; 


end; 


end. 


private void Nom () 


{ 


System.out.print(tnom{[Alea(2)]+'" ); 


} 


private void Adj () 


{ 
System.out.print(tadjectif[ Alea(4)]+' " ) ; 


} 


private void Adv () 
{ 


System.out.print(tadverbe[Alea(2)[+'" ); 


} 


private void Verbe () 


{ 
System.out.print(tverbe[ Alea(2)]+'" ); 


} 


private void fin () 
{ 
System.out.printin(".') ; 


} 


public void phrase( } // axiome de la grammaire 


{ 
GN(); 
GV(); 
GN(); 
fin (); 


} 


} 


Utiliser la classe Delphi 


Utiliser la classe Java 


program ProjGenerFr; 
{$APPTYPE CONSOLE} 


uses 

SysUtils, 

UclassGenerFr in 'UclassGenerFr.pas'; 
var 

miniFr:Gener_fr; 

i:integer; 


{ 


public class UtiliseGenerFr 


public static void main(String[] args) 
{ 


Gener_fr miniFr = new Gener_fr(); 
for(int i=0;i<1031++) 
miniFr.phrase( ); 
} 
} 
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begin 
miniFr:=Gener_fr.Creer; 
for i:=1 to 20 do 
miniFr.phrase; 


mo Délpi Jaya 


chien gentil aime joyeusement le beau chien . 
chien noir aime un chat gentil . 

blanc chien aime le chien gentil . 

beau chat poursuit joyeusement un chien noir . 
chat blanc aime le gentil chat . 

chien beau aime malicieusement un chien gentil . 
noir chat poursuit le beau chien . 

chien blanc aime joyeusement un chien blanc . 
noir chat aime un blanc chien . 

chat noir aime le gentil chat . 

gentil chien aime un blanc chien . 

chat noir aime joyeusement un chien blanc . 
chien blanc aime un blanc chat . 

noir chat poursuit un gentil chat . 

chien blanc aime malicieusement un noir chien . 
blanc chien aime le noir chat . 

gentil chat poursuit le chien gentil . 

chien blanc poursuit joyeusement un chat blanc . 
beau chat aime un chien beau . 

chat blanc aime joyeusement le chien gentil . 


2. C-grammaires et automates à pile de mémoire 


Une C-grammaire est une grammaire de type 2 dans la classification de Chomsky. 


Nous adoptons maintenant l’autre point de vue, " mode analyse " d’une grammaire, pour s’en 
servir comme d’un outil de spécification sur la reconnaissance des mots du langage engendré 
par cette grammaire. Cette partie est appelée l’analyse syntaxique. 


Dans le cas d’une grammaire de type 3, ce sont les automates d’états finis qui résolvent le 
problème. Comme ils sont faciles à faire construire par un débutant, nous les avons détaillés 
dans un paragraphe qui leur est consacré spécifiquement. Dans le cas où G est de type 2 sans 
être de type 3, nous allons esquisser la solution du problème en utilisant les automates à pile 
sans fournir de méthodes générales sur leur construction systématique. L’écriture des 
analyseurs à pile fait partie d’un cours sur la compilation qu’il n’est donc pas question de 
développer auprès du débutant. Il est toutefois possible de montrer dans le cadre d'une solide 
initiation sur des exemples bien choisis et simples que l’on peut programmer de tels 
analyseurs. 


Nous retiendrons le côté formateur du principe général de la reconnaissance des mots d’un 
langage par un ordinateur, aussi bien par les automates d’états finis que par les automates à 
pile. Nous trouverons aussi une application pratique et intéressante de tels automates dans le 
filtrage des données. Enfin, lorsque nous élaborerons des interfaces, la reconnaissance de 
dialogues simples avec l’utilisateur sera une aide à la convivialité de nos logiciels. 
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2.1 Définition d’un automate à pile 


Un automate à pile est caractérisé par la donnée de six éléments : 


A=(Vr,E, q,F,u, V) 
Où : 
E= ensemble des états (card E est fini) 
qd € E (q0 , est appelé l’état initial). 
EC F(F, est appelé l’ensemble des états finaux). 
Vr =Vocabulaire terminal, contient l’élément #. 


V, = Vocabulaire de la pile, contient toujours 2 éléments spéciaux (notés @ et Nil ). 


O € V, (symbole initial de pile) et Nil e V, 


u:Vr*xEx V,=E x Vp’ * (est appelé fonction de transition de À ) 
avec : Vp’*=(VpÙ{# })*( monoïde sur Vp LU {#}) 


Une transition (ou encore règle de transition) a donc la forme suivante : 


u: (ai, qi, à) — p(a;, qi, à) = (qK ; Xn) 


Nous trouvons dans ces automates, une pile (du type pile LIFO) dans laquelle l’automate va 
ranger des symboles pendant son analyse. 


2.2 Algorithme de fonctionnement d’un automate à pile 


En pratique, afin de simplifier les programmes à écrire, nous définirons et utilisons par la suite 
un vocabulaire de pile V, normalisé ainsi : 


V= Vr=Vr U{#}U{(E,Nil} 


Intérêt de la notion d’automate : 


C’est la fonction de transition qui est l’élément central d'un automate, elle doit être définie de 
manière à permettre d’analyser un mot de Vr*, et aussi de décider de l’appartenance ou 
non d’un mot à un certain langage. Ce langage d’appartenance est appelé le langage reconnu 
par l’automate. 


Nous construisons notre automate à pile comme étant un dispositif physique muni : 


a d’une bande d’entrée (de papier, ou magnétique par exemple) composée de cases ne 
pouvant contenir chacune qu’un seul symbole de Vr à la fois, 


a d'une autre bande de pile composée de cases ne pouvant contenir chacune qu’un seul 
symbole de V, à la fois, 
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a de deux têtes de lecture ou écriture de symboles : 


a l'une de lecture capable de reconnaître des éléments du vocabulaire terminal Vr dans 
chaque case de la bande d'entrée, et possédant plusieurs états. La tête de lecture se 
déplace de gauche à droite d’une case à la fois, 


a l'autre tête de lecture/écriture capable de lire ou d'écrire des éléments du vocabulaire 
de pile V, dans chaque case de la bande de pile, cette tête se déplace dans les deux 
sens, mais d'une seule case à la fois. 


fig - un automate à pile 


a Les règles de transitions spécifient la manipulation de la bande d'entrée et de la pile de 
l'automate. 


L’algorithme de fonctionnement d'un tel automate est le suivant : 


On fournit un mot que l’on écrit symbole par symbole de gauche à droite dans chaque case de 
l’automate (par exemple avec Vr ={a,b} le mot aaaaabbbbb): 


L’automate est mis à l’état initial qo , sa tête de lecture d'entrée est positionnée sur la première 
case à gauche de la bande d'entrée(1” symbole du mot à reconnaître), la pile est initialisée 


avec le symbole © au sommet : 


a La tête de lecture se déplace par examen des règles de transition de l’automate en y 
rajoutant l’examen du sommet de la pile. Le triplet (a;, qi) enclenche le processus de 
recherche d’une transition possible dans la partie gauche de la liste des règles de 
transitions de j1 (il y a recherche de la transition pi : (aj, qi, &) — …… ). 
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Supposons que la case contienne le symbole 
a; que la tête soit à l’état qi, et que le sommet qi. 


de pile ait pour valeur ©. 


a La transition (a;, qi, &) — (qK, Xn) signifie que l’automate peut passer de l’état qi à 
l’état qx à condition que le mot d’entrée débute par la chaîne préfixe a; élément de Vr* 
(notons que la chaîne a; peut être réduite par sa définition à un seul élément de Vr , ce qui 
est généralement le cas pratique) et que la chaîne à de Vp se trouve en sommet de pile. Le 
résultat de la transition fait que le symbole a; est lu et donc reconnu, que la tête d'entrée 
pointe vers le symbole suivant de la bande d'entrée, que le sommet de la pile a été 
remplacé par la chaîne x, (donc l'élément x, a été empilé à la pile), que l'état de l'automate 
a changé et qu'il vaut maitenant q. , enfin que la tête de pile pointe sur le nouveau sommet 


a La transition (a, qi, «) — (qu, Nil ) signifie pour l’automate de ne rien faire dans la 
pile. Le résultat de la transition fait que l'état de l'automate passe de qji à qk et que la tête 
d'entrée pointe sur le symbole suivant de la bande d'entrée : 


Q Ja transition (a; qi, B) — (x, # ) signifie effacer l’actuel sommet de pile et pointer sur 
l’élément d’avant dans la pile (ce qui revient à dépiler la pile). Le résultat de la transition 
fait que l'état de l'automate passe de qi à qr et que la tête d'entrée pointe sur le symbole 
suivant de la bande d'entrée : 
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Pt 


a Le mot est reconnu si l’automate rencontre une règle de transition de la forme 
(4, qi, ©) — (qr, Nil ), où qr est un état final. L'automate s’arrête alors. 


a Si la recherche de la transition u : (ai, qi, à) — 
l'auomate bloque : le mot n'est pas reconnu. 


Exemple : 


E= {e0,e1,e2} 

ee E (e0, état initial) 
F ={e2} (F, état final e2) 
Vr= {a,b#} 

V,= {a,b.,#,@,Nil} 


Règles de transitions: 
(a,e0, o)—(e0,a) 
(a,e0,a)—(e0,a) 
(b,e0,a)—(el,#) 
(b,el,a)—(el,#) 
(#, el, ©) — (e2, Nil) 


Fonctionnement sur un exemple: reconnaissance du mot aaabbb : 


(8,8,,w)—+(e,, a) (8e, a) —+{e,, 8) 


ÉICIEN IE ÉICIEN IE 


ut 
_ 
el 
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GTS PIPIEIe] (SISISIUI0IDTe,  (SISTS DIUI0 Te] 


He 


(w[aTa ar | DEEE 
(a,8,,8) —+4{es, a) (be,,a) —+e,,#1 (be,,a) —+4(e,,*) 


GTS TS IPIET#] ÉICIEN ALLIE 
NAEER MER 
{be j' a) —(e *) (+,e ,®) —+(8;, Nil } 


/ 


Propriété : 


Un langage est un C-langage (engendré par une C-grammaire) ssi il est 


accepté par un automate à pile. 


L’automate précédent reconnaît le C-langage L suivant : 


L = {a"b'}(a...ab...b,n symboles a concaténés à n symboles b, n < 1) sur l’alphabet Vr={a,b} 
dont une C-grammaire G est : 


Vr={a,b} 
Vy={S,A} 
Axiome: S 
Règles : 
1:$S — aSb 
2:$S — ab 


2.3 Programme Delphi d’une classe d'automate à pile 


Nous utilisons une classe de pile Lifo ClassLifo événementielle, déjà définie auparavant pour 
représenter la pile de l'automate. Afin que la pile Lifo de l'automate gère facilement des 
éléments de type string, au lieu de la faire dériver du type List de Delphi, nous proposons de 
la dériver du type TStringList qui est une classe de liste de chaînes : 


ClassLifo = class (TStringList) procedure Depiler (var elt : string ) ; 
private procedure EffacerPile; 
FOnEmpiler : DelegateLifo ; procedure AfficherPile; 
FOnDepiler : DelegateLifo ; property Sommet:string read getSommet; 
function getSommet:string; property OnEmpiler : DelegateLifo read FOnEmpiler 
public write FOnEmpiler ; 
strPile:string; property OnDepiler : DelegateLifo read FOnDepiler 
function Est_Vide : boolean ; write FOnDepiler ; 
procedure Empiler (elt : string ) ; end; 
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Nous construisons une classe abstraite d'automate à pile AutomateAbstr qui implante toutes 
fonctionnalités d'un automate à pile, mais garde abstraite et virtuelle la méthode transition 
qui contient les règles de transitions de l'automate, ceci afin de déléguer son implementation à 
chaque classe d'automate particulier. Chaque classe fille héritant de AutomateAbstr 
redéfinira la méthode virtuelle transition. 


RE 


ClassLifo 


— FOnDepiler : DelegateLifo 

FOnEmpiler : DelegateLifo Le 
OnDepier EI Fmot : string 
Æ OnEmpiler 

Sommet 

strPile : string 


getSommet(...] 
äfficherPile(...) 
Depiler(.….] 
M EffacerPile(.….] 
Empiler(.….) 
el Est_Vide[...] 


Æ transition(...] 


Code complet de la classe pile de l'automate 


unit ULifoEvent ; 


interface 
uses classes,Dialogs, SysUtils ; 


type 
DelegateLifo = procedure ( Sender: TObject ; s :string )of object ; 


PileVideException = class (Exception) 
end; 


ClassLifo = class (TStringList) 
private 
FOnEmpiler : DelegateLifo ; 
FOnDepiler : DelegateLifo ; 
function getSommet :string; 


public 

strPile:string; 

function Est _ Vide : boolean ; 
procedure Empiler (elt : string ) ; 
procedure Depiler (var elt : string ) ; 


procedure EffacerPile; 
procedure AfficherPile; 
property Sommet:string read getSommet; 
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property OnEmpiler 
property OnDepiler 
end; 


implementation 


procedure ClassLifo.AfficherPile; 
var i:integer; 
begin 
if self.count<>0 then 
for i:=0 to self.Count-1 do 
write(self.Stringsfi],'" ‘); 
writeln 
end; 


procedure 
begin 
if not 
begin 
elt :=self.Strings[O] ; 
strPile:="'"'; 
self.Delete(0) ; 


Est_Vide then 


if assigned(FOnDepiler) then 
FOnDepiler ( self ,elt ) 

end 

else 


raise pilevideexception.create 
end; 


procedure ClassLifo.Empiler(elt 
begin 
self.Insert (0 , elt) ; 
if assigned(FOnEmpiler) then 
FOnEmpiler ( self ,elt ) 
end; 


procedure ClassLifo.EffacerPile; 
begin 
self.Clear; 
end; 
function ClassLifo.Est Vide 
begin 
result 
end; 


self.Count Ô0..£ 


function ClassLifo.getSommet: 

begin 
result 
end; 


self.Strings[(0] 


end. 


ClassLifo.Depiler (var elt 


DelegateLifo read FOnEmpiler write FOnEmpiler; 
DelegateLifo read FonDepiler write FOnDepiler; 


string ) ; 


("impossible de dépiler: pile vide' 


String). 7? 


boolean ; 


SCI; 


) 


Code complet des classes AutomateAbstr 
et AutomatePile 


unit UAutomPile; 
interface 


uses ULifoEvent; 
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type 
etat=-1..20; 
Vt=char; 
Vp=char; 


AutomateAbstr=class 
private 
EtatFinal:1..20; 
Fmot:string; 
pile:ClassLifo; 
procedure setMot (s:string); 
function getMot:string; 
procedure init _ pile; 
protected 
procedure transition(ai:Vt;qj:etat;alpha:Vp; var qk:etat; 
var beta:vp); virtual; abstract; 
public 
property Mot:string read getmot write setMot; 
procedure Analyser; 
constructor Create(fin:integer); 
destructor Destroy;override; 
end; 
AutomatePile=class (AutomateAbstr) 
protected 
procedure transition(ai:Vt;qj:etat;alpha:Vp; var qk:etat; 
var beta:vp); override; 


end; 
implementation 

1---— AutGmatéABStE ———-? 
const 

omega="'s$"'; 

non=-1; 

knil="'Q@'; 


constructor AutomateAbstr.Create(fin:integer); 
begin 
pile:=ClassLifo.Create; 
self.init pile; 
if fin in [1..20] then 
EtatFinal:=fin 


else 
EtatFinal:=20; 
Fmot:="#"; 
end; 


destructor AutomateAbstr.Destroy; 
begin 

pile.Free; 

inherited; 

end; 


function AutomateAbstr.getMot: string; 
begin 

result := Fmot; 
end; 


procedure AutomateAbstr.setMot(s: string); 
var long:integer; 
begin 
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long:=length(s); 
if long<>0 then 
begin 
if s[longl]l<>'#' then 
EFmot:=s+"#'; 
end 
else 
fmot:="#'; 
end; 


procedure AutomateAbstr.init pile; 
begin 

pile.EffacerPile; 

pile.Empiler (omega) ; 

end; 


procedure AutomateAbstr.Analyser; 
var 
g'etat; 
numcar:integer; 
carPile:Vp; 
Ss:SÉring: 
begin 
q:=0; 
numcar:=1l; 
init pile; 
while (q<>non)and(q<>EtatFinal) do 
begin 
transition (Fmot [numcar],q,pile.Sommet[1],q,carPile); 
pile.AfficherPile; 
numcar:=numcar+l; 
if carPile='#" then 
pile.Depiler(s) 
else 
if (carpile='a')or(carpile='b') then 
pile.Empiler(carPile); 
end; 
if (q=etatfinal)and(carpile=knil) then 
writeln('chaine reconnue !') 


else 

writeln('blocage, chaine non reconnue !') 
end; 
{———-— AutomatePile ———-} 


procedure AutomatePile.transition(ai:Vt;qj:etat;alpha:Vp; 
var qk:etat; 
var beta:vpj); 
begin 
write(t(".;als2.";";qj22;","t,alphaf2, "+ 6) 
if (ai='a')and(qj=0)and(alpha=omega) then 
begin 
qk:=0;{ règle ; (a,e0,$) -->(e0,a) } 
beta:="'a" 
end 
else 
if (ai='a')and(qj=0)and(alpha='a') then 
begin 
qk:=0; { règle ; (a,e0,a) -->(e0,a) } 
beta:="'a 
end 
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else 
if (ai='b')and(qj=0)and(alpha='a') then 
begin 
qk:=1l; { règle ; (b,e0,a) -->(el,#) } 
beta:="'#! 
end 
else 
if (ai='b')and(qj=1)and(alpha='a') then 
begin 
qk:=l; { règle ; (b,el,a) -->(el,#) } 
beta:="'#! 
end 
else 
if (ai='#')and(qj=1l)and(alpha=omega) then 
begin 
qk:=EtatFinal; { règle ; (#,e1l,$) -->(e2,Nil) } 
beta:=KNil 
end 
else 
begin {blocage dans tous les autres cas} 
qk:=non; 
beta:=KNil 
end; 
write('--(',qk:2,',',beta,') pile="'); 
end; 
end. 
Programme utilisant la classe Automate 
program ProjAutomPile; 
Exécution de ce programme sur l'exemple aaaaabaabb : 
{$APPTYPE CONSOLE} 
Den 
uses a r& 
SysUtils, a2——< B.a2 


a)--( B,a) 
a)—--( B,a) 
a)——-< 1,4) 
a)—--< 1, 
a)——< 1,4) 
a)—-—-< 1, 
a)——-< 1,#) 
$)>—--< 2,R) 
haine reconnue 


UAutomPile in 'UAutomPile.pas'; 
var Automate: AutomatePile; 


begin 
Automate:=AutomatePile.Create(2); 
Automate.Mot:='aaaaabbbbb'; 
Automate.Analyser; 
readin; 
end. 


ra à à à À à à 4 
9 à à à à v 


6 
6 
g 
a 
6 
6 
1 
1 
1 
1 
1 


La construction générale et systématique de tous ces automates à pile dépasse le cadre de ce 
document, il est conseillé de poursuivre dans les ouvrages signalés dans la bibliographie. 
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6.2 Automates et grammaires 
de type 3 


Plan du chapitre: É 


1. Automate pour les grammaires de type 3 


1.1 Automates d’états finis déterministes ou non 
1.2 Algorithme de fonctionnement d’un AEFD 

1.3 Utilisation d’un AFF en reconnaissance de mots 
1.4 Graphe d’un automate déterministe ou non 

1.5 Matrice de transition : dans le cas déterministe 


2. Grammaires et automates 


2.1 Automate associé à une K-grammaire 
2.2 Grammaire associée à un Automate 


3. Implantation d'une classe AEFD en Delphi 


3.1 Fonction de transition à partir des règles 

3.2 Fonction de transition à partir de la matrice 

3.3 Exemple : les identificateurs pascal-like 
e Détermination d’une grammaire Gja adéquate 
e Construction de l’automate associé à Gia 
e Programme associé à l’automate 

3.4 Exemple : les constantes numériques 
e Détermination d’une grammaire G« adéquate 
e Construction de l’automate associé à Gcte 
e Programme associé à l’automate 
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1. Automates d'états finis pour les grammaires de type 3 


Dans ce chapitre, le point de vue adopté est celui de l’implantation pratique des notions 
proposées en pascal. La reconnaissance automatique et méthodique est très aisément 
accessible dans le cas des grammaires de type 3 à travers les automates d’états finis. Nous 
fournissons les éléments théoriques appuyés sur des exemples pratiques. 


1.1 Automates d'états finis déterministes ou non 


Définition 


C'est. un Ouimenpler À = (5° cn, 1,1.) Où 
V. : vocabulaire terminal de A. 
E : ensemble des états de À ; E = {os ir... n } 


X € E est dénommé état initial de A. 
FCE : F est l’ensemble des états finaux de A. 
H:EXVr DE , une fonction de transition de A. 


Définition 


Un automate À, À = (V:,E,,F/u1), est dit déterministe, si sa 
fonction de transition p est une vraie fonction au sens 


mathématique. Ce qui revient à dire qu’un couple de E x V, n’a 
qu’une seule image par y dans E. 


Intérêt de la notion d’automate d'états finis 


Comme pour les automates à pile, c’est la fonction de transition qui est l’élément central de 
l’automate A. Elle doit être définie de manière à permettre d’analyser un mot de Vr , et aussi 
de décider de l’appartenance ou non d’un mot à un certain langage. Ce langage 
d’appartenance est appelé le langage reconnu par l’automate. 


Exemple : 


Soit un automate possédant Il existe trois règles ayant la même partie gauche ( qi, a; ), 
parmi ses règles, les trois ce qui revient à dire que le couple ( qi, a; ) a trois images 
suivantes : distinctes, donc l'automate est non déterministe. 


(qi, a) 
(qi, à) — 


(qi, à) 


Par la suite, pour des raisons de simplification pratique, nous considérerons les Automates 
d'Etats Finis normalisés que nous nommerons AËEF, en posant : 
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F= { qr } un seul état final 
Vr=VrÜU!{# } on ajoute dans Vr un symbole terminal de fin de mot #, le même pour tous les 


AEEF. 
1.2 Fonctionnement pratique d’un AEF : 
Nous construisons notre AEF comme étant un dispositif physique muni : 


a d’une bande d’entrée (de papier, ou magnétique par exemple) composée de cases ne 
pouvant contenir chacune qu’un seul symbole de Vr à la fois, 


a d'une seule tête de lecture de symobles capable de reconnaître des éléments du vocabulaire 
terminal Vr dans chaque case de la bande d'entrée, et possédant plusieurs états. La tête 
de lecture se déplace de gauche à droite d’une case à la fois, 


fig - un automate d'états finis 


a Les règles de transitions spécifient la manipulation de la bande d'entrée de l'automate. 


L’algorithme de fonctionnement d'un AEF : 


L'algorithme est très semblable à celui d'un automate à pile (en fait on peut considérer qu'il 
s'agit d'un cas particulier d'automate à pile dans lequel on n'effectue jamais d'action dans la 
pile), on fournit un mot que l’on écrit symbole par symbole de gauche à droite dans chaque 
case de l’automate (par exemple avec Vr ={a,b} le mot aaaaabbbbb): 


L’automate est mis à l’état initial qo , sa tête de lecture d'entrée est positionnée sur la première 
case à gauche de la bande d'entrée(1” symbole du mot à reconnaître) : 


a La tête de lecture se déplace par examen des règles de transition de. Le couple (a;, qji) 
enclenche le processus de recherche d’une transition possible dans la partie gauche de la 
liste des règles de transitions de u (il y a recherche de la transition ui : (a, qi) — .…….). 
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Supposons que la case contienne le symbole 


a; que la tête soit à l’état qi (&) 


a La transition ( qi,a;) — q signifie que l’automate peut passer de l’état qi à l’état qx à 
condition que le mot d’entrée débute par la chaîne préfixe a; élément de Vr* (notons que 
la chaîne a; peut être réduite par sa définition à un seul élément de Vr , ce qui est 
généralement le cas pratique. Le résultat de la transition fait que le symbole a; est lu et 
donc reconnu, que la tête d'entrée pointe vers le symbole suivant de la bande d'entrée : 


Fm 


a Le mot est reconnu si l’automate rencontre une règle de transition de la forme 
(qi,aj) — qr ou bien (qi, #) — qr où qr est un état final. L'automate s’arrête alors. 


a Sil’AËF ne trouve pas de règle de transition commençant par ( q;, ai), c’est à dire que le 
couple ( q;, ai) n’a pas d’image par la fonction de transition u, on dit alors que l’automate 
bloque : le mot n’est pas reconnu comme appartenant au langage. 


1.3 Utilisation d’un AEËF en reconnaissance de mots 


Soit la grammaire G:; déjà étudiée précédemment dont le langage engendré est celui des mots 
de la forme ab? . 
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grammaire G: 


Soit l’automate A, : 


L(G;)={a"b?/n<l)et(p<1)} 
Gi: Vx = {S,A} 


Vr= {ab} 

E= {qo,q,qf } 
u:(qo,a)— qo 
u:(q,a)— qi 
u:(q,.b)— qi 
u:(q,b)— qr 


(A, est non déterministe ) 


(ci0,8) ——? go = 


afstsfsls 
(u,b)—"qu = 


( æ, b ) —* £ 
règle 4— l’AEF s'arrête, 
le mot aaabb est reconnu ! 


Nous remarquons que dans le cas de cet AËF, il nous a fallu aller ” voir ” un symbole plus 
loin, afin de déterminer la bonne règle de transition pour mener jusqu’au bout l’analyse. 


On peut montrer que tout AEF non déterministe peut se ramener à un AËF déterministe 
équivalent. Nous admettons ce résultat et c’est pourquoi nous ne considérerons par la suite 


que les AFF déterministes (notés AEFD). 


Voici à titre d’exemple un AEFD équivalent à l’AEF A, précédent : 


Soit l'AEFD A: reconnaissant le langage L={ a"b? / (n < 1) et (p < 1) }, nous aurons donc 
deux automates reconnaissant le langage L(l'un est déterministe, l'autre est non déterministe), 
ci-dessous un tableau comparatif de ces deux automates d'états finis : 


AËF A, non déterministe 


AËEF A, déterministe 


Vr= {ab} Vr={a,b#} 

E = {qdo, qu, qf } E = {do,q1; q,qf } 
u:(qo,a)— qo u:(q.a)— q 
u:(q,a)— q Hi: (Cd, b) "du 
u:(q,b)— qi u:(q,a)— 
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u:(q,b)— q u:(q,b)— q 
u:(m,#)— qr 


Voici la reconnaissance automatique du mot a°b? par l'automate AEFD A, : 
(da) qu 

( qi, à ) > qi 

( qi, 4 ) > di 

(q,b)— q 

(gb) 

(q,#)— qr mot reconnu ! 


1.4 Graphe d’un automate déterministe ou non 


C’est un graphe orienté, représentant la suite des transitions de l’automate comme suit : 


a; 
(q;, ai) — q est représentée par l’arc à 2 sommets : q Q. 
j k 

Exemples du graphe des deux AËF précédents : 
graphe de A: : graphe de A: : 

a b b 

do 

d dj df£ do di 2 df£ 


Que l’AËF soit déterministe ou non, il est toujours possible de lui associer un tel graphe. 
Exemple : reconnaître des chiffres 


Voici un Automate d'Etats Finis Déterministe qui reconnaît : 
- les constantes chiffrées terminées par un #, 


AEFD représenté par son graphe AEFD représenté par ses règles 


( do, chiffre) — qi 
(qi, chiffre) — qi 


chiffre chiffre (q,#)— qe 
(qi,+)— q 
( q, chiffre ) — q 
(q,#)— dr 
q où ( do, chiffre ) représente un notation pour les 10 
f couples : (4,0 ),..., (do, 9) 
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On peut voir à travers ce dernier exemple, le schéma général d’un analyseur lexical qui constitue la première 
étape d’un compilateur. Il suffit dès que le symbole a été reconnu donc à partir d’un état final qç de repartir à 
l’état do. 


LS Matrice de transition : dans le cas déterministe 

On représente la fonction de transition par une matrice M dont les cellules sont toutes des 
états de l’AEF (ensemble E), où les colonnes contiennent les éléments de Vr (symboles 
terminaux), les lignes contiennent les états (éléments de E sauf l’état final qp). 

La règle ( q;, a) — q est stockée de la façon suivante M(1,j)= qr où : 

la ligne j correspond à l’état q; 


la colonne 1 correspond au symbole a; 


Exemple : la matrice des transitions de A: 


AEFD A2 représenté par son graphe AEFD A2 représenté par sa matrice 


la fonction de 


tra mn , 


Utilisation pratique de la matrice des transitions 


Dénommons Mat{1,j] l’état valide de coordonnées (1,j) dans la matrice des transitions d’un 
AEFD. Un schéma d’algorithme de reconnaissance par l’AEFD est très simple à décrire : 


EE CRC 

Symlu < premier symbole du mot ; 
tantque Etat # q; Faire 

Etat <—Mat[Etat,Symlu] ; 


Symlu <—-Symbole suivant 
Fintant ; 


2. Automates et grammaires de type 3 


Il existe une correspondance bijective entre les K-grammaires (grammaires de type-3) et les AEF. Cette 
correspondance est la base sur laquelle nous systématisons l’implantation d’un AEFD. En voici une construction 
pratique. 
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2.1 Automate associé à une K-grammaire 


Soit G une K-grammaire , G = (Vx, Vr,S,R) 


On cherche l’AEF A, A = (Vr, E, do, qr, L ), tel que A reconnaisse G. 


Soit la construction suivante de l'AEF A : 


Grammaire G 


Vr 


AFF A associé 


Vr = Vr U {#} 


Chaque élément de V, est un q; de E 


E = Vy U {qe} 


A toute règle terminale de G de la 
forme À, — a 


on associe la règle de transition 
(q;, ax) — qe 


S est l'axiome de G 


A toute règle non terminale de G de 
la forme À, —a.A, 


on associe la règle de transition 
(q;, a.) — q 


L’automate A ainsi construit reconnaît le langage engendré par G. 


Remarque : 


L’automate A, reconnaissant le langage {a”b? /(n < 1)et(p< 1) } associé à la 


grammaire G: (cf. plus haut) a été construit selon cette méthode. 


Exemple 


: soit G une K-grammaire suivante et Aut l’automate associé par le procédé bijectif précédent 


G K-grammaire 


Aut automate associé 


G = (Vx, VrS,R) 
Vr={a,b,c,#} 
Vx={S,A,B} 
Axiome : S 
Règles de G : 


1:$—as$S 1 
2:$—bA 2 
3 : A — bB 3 
4:B—cB 4 
5:B—# 5 


Aut = (Vr, E, do, qr, lu) 

Vr =Vr 

S est assSOCIé à : Go 

A est asSOCIé à : qi 

B est associé à : qr 

: $ — as est associé à :( do, a ) — Go 

: S — bA est associé à :( do, b ) — qi 
: À — DB est associé à :( qi, b ) — q2 
: B — cB est associé à :( q2, c ) — q2 
: B — # est associé à :( q2, # ) — qr 


Etudions maintenant la construction réciproque d'une K-grammaire à partir d'un AEF. 
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2.2 Grammaire associée à un Automate 


Soit l’AEF Aut, tel que A =( Vr.E, do, rl ) 
On cherche G = (Vx,Vr,S,R) une K-grammaire du langage reconnu par cet automate. 


AEF A ut > > Grammaire G associée 


Ve Vr = Vr 

E VN=E-{qr} 

CA Axiome : do 

si q; < qralors pour (qj, a) qi on construit : [ r : q; — aq; ] dans G 
si q; = qralors pour (qj, ax) — qr on construit : [ r : q; — à | dans G 


Exemple : soit l’automate Aut reconnaissant le langage {a°b”c? / n < 0 et p <0} et G une grammaire associée 


Aut automate G K-grammaire associée 


Vr={a,b,c,#} S remplace qo On pose : Vr= { a, b,c,# } 
A remplace qi On pose : Vk=!{S,A,B } 


E = {qo.qr, q.qf } 
B remplace q Axiome : S 


transitions : règles : 

()(qa)—qo {les a" ] 1:S — aS remplace ( do, a ) — do 
(2) (do, b)— qi 2 : S — bA remplace ( do, b ) — qi 
(G)(q,b)—q [leb] 3: À — bB remplace ( q1, b ) — q 
(@)(q,c)—q llesc] 4: B — cB remplace ( q, € ) — q 
(5) (2 #) — qr 5 : B — # remplace ( q, #) — qr 


La grammaire G de type 3 associée par la méthode précédente est celle que nous avons déjà 
vue dans l’exemple précédent. 


1. Implantation d’une classe d'AEFD en Delphi 


Nous proposons deux constructions différentes de la fonction de transition d’un AEFD soit en 
utilisant directement les règles de transition, soit à partir de la matrice de transition. 


3.1 Fonction de transition à partir des règles 


Méthodologie 
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Toute règle est de la forme (q;, ax) — qi, donc nous pourrons prendre comme 
modèle d’implantation de la fonction de transition une méthode function d'une 
classe que nous nommerons AutomateËEF, dont voici ci-dessous une écriture 


fictive pour une seule règle. 


function AutomateEF.transition(q:T_etat;car: Vt):T_etat ; 


begin 
if (q= qi)and(car= ax) then q:= q; {la règle (q; ax) — qi} 
else .… 

end ; 


Toutes les autres règles sont implantées dans la méthode transition de la même façon. 


L’appel de la méthode transition se fera à travers un objet AEFD de classe AutomateEr : 


EtatApres := AEFD.transition(q;, à) ; {{a fonction renvoie l’état qi} 


Exemple : morceaux de code 


la méthode transition de l’automate déterministe A, : 


(reconnaissant le langage ab? ) 


d dj 42 df£ 
const Implementation 
imposs=- |; 
fin=20; function AutomateEF.transition(q:T_etat;car: Vt):T_etat; 
finmot="'#"; {par les règles de transition :} 
type begin 
T_etat=imposs..fin; if (q=0)and(car='a') then q:=1 /(q0,a) — q1} 
Vt=char; 


AutomateEF = class 

q:T_etat; 

mot:string; 

function transition(q:T_etat;car:Vt):T_etat; 
end; 


else if (q=1)and(car='a") then q:=1 {(q1,a) — q1} 
else if (q=1)and(car="b") then q:=2 {(q1,b) — q2} 
else if (q=2)and(car="b") then q:=2 {(q2,b) — q2} 
else if (q=2)and(car=finmot) then q:=fin {(q2,#) — qf} 
else q:=imposs,; {blocage, le caractère n'est pas dans Vi} 
result :=q 

end; 


Appel de la méthode transition dans le programme principal : 


{Analyse} 


numcar:=|; 

etat:—0; 

while (etat<>imposs)and(etat<>fin) do 
begin 


Symsuiv(numcar,symlu), {fournit dans symlu le symbole suivant} 


etat:= AEFDtransition(etat,symlu); 
end; 


Les bases de l'informatique - programmation 


- ( rév. 05.09.2004 ) page 570 


Comme l’automate est déterministe, il est possible de procéder différemment en utilisant sa 
matrice de transition, ce qui est un bon exemple d’application d'utilisation de la notion de 
matrice dans un programme. 


3.2 Fonction de transition à partir de la matrice 


Méthodologie 


Une autre écriture d’un même AEFD est obtenue (lorsque cela est possible en 
place mémoire) à partir d’un tableau Delphi (dénoté table) représentant la 
matrice des transitions de l’automate. Nous utilisons le même modèle 
d’implantation de la fonction de transition que dans le cas d'une description 
par règles ( méthode function d'une classe AutomateEF). 


Version réduite initiale du code : morceaux de code 


const 

imposs=- |; AutomateEF = class 

fin=20; 

finmot="#"; q:T_etat; 

type mot:string; 

T_etat=imposs..fin; table:T_transition; {matrice des transitions } 
Vt=char; 

T_transition=array[T_etat,char] of T_etat; end; 


Il est nécessaire d’initialiser la matrice table avec les valeurs de départ de l’AEFD. Une 
méthode init_table pourra se charger de ce travail. Dans ce cas, la méthode transition est 
très simple à écrire, elle se résume à parcourir la matrice des transitions accessible comme 
champ de la classe : 


Version augmentée du code : morceaux de code 


AutomateEF = class begin /init table} 
q:T_etat; for i:=imposs to fin do 
mot:string; for j:=0 to 255 do 
table:T_transition; {matrice des transitions} Chargementde(table) 
procedure init_table; | …… 
function transition(q:T_etat;car: Vt):T_etat; end, /init_table} 

end; 

function AutomateEF transition(q:T_etat;car:Vt):T_etat; 
implementation {par la table de transition :} 

begin 
procedure AutomateEF.init_table; q := table[q,car]; 
{initialisation de la table des transitions} result := q; 

end; 

var 
iT_etat; 

j:0..255; 
k:char; 
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L’appel de la méthode transition se fait comme dans le cas précédent, à travers un objet 


AEED de classe AutomateEEF : 


EtatApres := AEFD.transition(q;, à) ; {{a fonction renvoie l’état qi} 


Exemple : le même automate (reconnaissant le langage a" ) 
Nous reprenons l’automate du paragraphe précédent, mais en l’implantant grâce à sa table de transition. 


morceaux de code 


la méthode transition de l’automate déterministe A, : 


(reconnaissant le langage ab? ) 


const 
imposs=- | ; 
fin=20; 
finmot="#"; 

type 
T_etat=imposs..fin; 
Vt=char; 


AutomateEF= class 
private 
EtatFinal : T_etat; 
Fmot:string; 
table:T_transition; {matrice des transitions} 
procedure init_table; 
function transition(q:T_etat;car:Vt):T_etat; 
end; 


Implementation 


procedure AutomateEF.init_table; 
{initialisation de la table des transitions} 
var 

iT_etat; 

j:0..255; 

k:char; 


begin /init_table} 
for i:=imposs to fin do 
for j:=0 to 255 do 
table[i,chr(j)]:=imposs; 
{par défaut tout est non reconnu} 
table[0,’a’]:=1; 
table[1,’a’]:=1; 
table] 1 ,”b°]:=2; 
table[2,”b°]:=2; 
table[2,finmot]:=EtatFinal 
end; /init_table} 


function AutomateEF.transition(q:T_etat;car: Vt):T_etat; 
{par la table de transition :} 


begin 
q := table[q,car|; 
result := q; 

end; 


Appel de la méthode transition dans le programme principal : 


{Analyse} 


numcar:=|; 

etat:=0; 

while (etat<>imposs)and(etat<>fin) do 
begin 


Symsuiv(numcar,symlu), {fournit dans symlu le symbole suivant} 


etat:= AFFD.transition(etat,symlu); 
end; 
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La unit Delphi contenant une classe abstraite d'automate et une classe fille d'AEF 
Reconnaissant le langage a°b? 


Unit UautomEF; 


interface 
const 
imposs=- |; 
fin=20; 
finmot="#"; 
type 
T_etat=imposs..fin; 
Vt=char; 
T_transition=array[T_etat,char] of T_etat; 


AutomateAbstr = class 
private 
Fmot:string; 
table:T_transition; {matrice des transitions } 
procedure setMot(s:string); 
function getMot:string; 
function transition(q:T_etat;car:Vt):T_etat; 
procedure Symsuiv (n: integer; var car:Vt); 
protected 
EtatFinal : T_etat; 
procedure init_table; virtual; abstract; 
public 
property Mot:string read getmot write setMot; 
procedure Analyser; 
constructor Create(fin:integer); 
end; 


AutomateEF=class(Automate Abstr) 
protected 
procedure init_table; override; 
end; 


Implementation 
{--- AutomateAbstr ---} 
constructor AutomateAbstr.Create(fin:integer); 
begin 
if fin in [1..20] then 
EtatFinal:=fin 
else 
EtatFinal:=20; 
EFmot:="#"; 
init_table; 
end; 


function AutomateAbstr.getMot: string; 


procedure AutomateAbstr.setMot(s: string); 
var long : integer; 
begin 
long:=length(s); 
iflong<>O then begin 
if s[long]<>'#' then 


Fmot:=s+'#"; 
end 
else 
Fmot := '#'; 
end; 


function AutomateAbstr.transition(q:T_etat;car: Vt):T_etat; 
{par la table de transition :} 


begin 
q := table[q,car|; 
result := q; 

end; 


procedure AutomateAbstr.Analyser; 
var 


etat : T_etat; numocar : integer; 
s: string; symlu : Vt; 
begin 
numcar:=|; 
etat:=0; 
while (etat<>imposs)and(etat<> EtatFinal) do 
begin 


Symsuiv (numcar , symlu); 
numcar:= numcar+ |]; 
{fournit dans symlu le symbole suivant} 
etat:= self.transition(etat,symlu); 
end; 
if etat =etatfinal then 
writeln('chaine reconnue !) 
else 
writeln(‘blocage, chaine non reconnue !") 
end; 
{--- AutomateEF ---} 
procedure AutomateËEF .init_table; 
{initialisation de la table des transitions} 
var iT_etat; j:0..255; k:char; 
begin 
for i:=imposs to fin do 
for j:=0 to 255 do 
table[i,chr(j)]:=imposs; 
{par défaut tout est non reconnu} 


begin table[0, “a: =]; 

result := Fmot; table[1,’a’]: . 
end; table[ 1 ,b’]:= 

table[2,”b°]:= 

procedure Symsuiv (n: integer; var car:Vt); table[2, inmol= EtatFinal; 
begin end; 
car := Fmot[n]; end. 
end; 
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Programme utilisant la classe AutomateEF 
Reconnaissant le langage L = { a" b’/(n<l)et(p<1)} 


program ProjAutomEF; 
{$APPTYPE CONSOLE} 


uses 

SysUtils, 

UAutomE?F in 'UAutomEF.pas'; 
var AEFD:AutomateEF; 


begin 
AEFD:= AutomateEF.Create(3); 
AEFD.Mot:='aaaaabbbbb"; 
AEFD.Analyser; 
readin; 

end. 


Exécution de ce programme sur l'exemple aaaaabbbbb : 


(< BH, a)—} 
€ 1, :a2—?} 
a)——} 
a)—-} 
a)——} 
b}—-}> 
b}—-}> 
b)>——} 
b}—-}> 
b>)—} 
#>——2> 
haïine reconnue 


NO NS NO NO NO bob bb fab pe 
© NS NS NO NO NO bb bb bek fe fe 


Mon Ne OU ST € 


\4 
4 
€ 
4 
4 
\4 
€ 
\4 
€ 
c 


Exécution de ce programme sur l'exemple aaaaabbabb : 
a)—-} 
a)—-} 
a)——} 
a)—-} 
a)——} 
b}—-> 


MAS 


b>—-} 
a)——} -1 
age, chaine non reconnue ‘? 


 TAANANAAA 


Nous remarquons dans ce dernier paragraphe, que nous avons mis en place un procédé 
général qui permet de construire méthodiquement en Delphi une classe d'AEFD, uniquement 
en changeant le contenu de la méthode init_table. Nous avons en fait mis au point un 
générateur manuel de programme Delphi pour AEFD. 


Par la suite, nous utiliserons ce procédé à chaque fois que nous aurons à programmer un 
AEFD. Nous n’aurons seulement qu’à déclarer une nouvelle classe héritant de AutomateAbstr 
et implémenter par redéfinition sa méthode init_table : 


AutomateEEF = class ( AutomateAbstr ) 
protected 

procedure init_table; override; 
end; 


Implementation 


(* --- AutomateEF 
Reconnaissant le langage L={ a" /(n<1)et(p<1)} 
-=*) 
procedure AutomateËEF.init_table; 
{initialisation de la table des transitions} 
var iT_etat; j:0..255; k:char; 
begin 
for i:=imposs to fin do 
for j:=0 to 255 do 
table[i,chr(j)]:=imposs; 
{par défaut tout est non reconnu} 
table[0,’a’]:=1; 
table[1,’a’]:=1; 
table[ 1 ,”b°]:=2; 
table[2,”b°]:=2; 
table[2,finmot]:= EtatFinal; 
end; 
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Nous terminons ce chapitre en détaillant complètement deux exercices de construction de 
programmes selon la méthode qui vient d’être décrite. Le lecteur pourra en inventer d’autres 
basés sur la même idée. 


3.3 Exemple : les identificateurs pascal-like 


On donne des diagrammes syntaxiques de construction des identificateurs Pascal : 
identificateur : 


Construisons un programme Delphi reconnaissant de tels identificateurs, en utilisant le 
procédé de génération manuelle avec la classe abstraite AutomateAbstr définie au paragraphe 
précédent. 


Méthode de travail adoptée 
e Détermination d’une grammaire G adéquate. 
e Construction de l’automate AEFD associé à G. 
e Programme Delphi associé à l’automate construit. 


Détermination d’une grammaire G;4 adéquate 


Nous remarquons d’abord qu’il y a une grammaire de type 3 engendrant ces identificateurs : 
Soient à considérer les ensembles : 

Lettre = { a, b,..., z }. //les 26 lettres de l'alphabet 

Chiffre = { 0, 1,..,9 }.//les 10 chiffres 

Vr = Chiffre L Lettre LU {#}. 

VX = { (identificateur) , A } 

Posons Gia = (Vr, Vw, (identificateur) , Règles ) une grammaire où 

Axiome : {identificateur) 


Règles : 

(identificateur) — a [b|...[z A 
A — a [b|...[z A 

A —011|...19 A 

A = # 


La grammaire Gä est de type 3 déterministe. 
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Construction de l’automate associé à G:ia 


Afin de réduire le nombre de lignes de texte, nous adoptons les conventions d'écriture suivantes : 


( q ,Lettre ) — q;i, représente l'ensemble des 26 règles : 


(a) aq; 
(ak 2) qi 
( x, Chiffre) — q;, représente l’ensemble des 10 règles : 
C0) — qi 
COIET 


Etats associés aux éléments de Vx: 
(identificateur) < do 

(A) & qi 

Etat initial = do 

Etat final = qrs 


Vocabulaire terminal de l’automate : 
Vr = Vrt {#} = Chiffre LU Lettre LU {#} 


Règles de l’automate associé à Ga : 
( do, Lettre ) — q1/ 26 règles 

( qi , Lettre ) — q1/ 26 règles 

( qi , Chiffre ) — q1/ 10 règles 


(q,#)— qr 


Soit un total de 63 règles. 


Graphe de l’automate : 


Matrice de transitions de l’automate: 


Programme associé à l’automate 


Nous héritons de la classe AutomateAbstr. Nous n’avons que la méthode init_table à redéfinir 


AutomateEF = class ( AutomateAbstr ) 
protected 

procedure init_table; override; 
end; 


implementation 


procedure AutomateEF.init_table; 
{initialisation de la table des transitions} 
var iT_etat; j:0..255; x:char; 
begin 
for i:=imposs to fin do 
for j:=0 to 255 do 
table[i,chr(j)]:=imposs; 


for x:='a' to ‘7 do 
begin 
table[0,x]:=1; 
table[1,x]:=1; 
end; 
for x:='0' to '9' do 
table[1,x]:=1; { (gl,chiffre) — q1 } 
table[1,finmot]:= EtatFinal; { (q1,#) — qf } 
end; 


{ (q0,lettre) — q1l } 
{ (qL,lettre) — q1l } 
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Programme utilisant la classe AutomateEF 
Reconnaissant le langage des identificateurs 


Exécution de ce programme sur l'identificateur prix2 : 
p>—--} 


r)—-—}» 
; . 1)2——> 
program ProjAutomEF; 4 
22--}> 
{SAPPTYPE CONSOLE} = 2) 
haine reconnue 
uses 
SysUtils, 
UAutomEF in 'UAutomEF.pas'; 
var AEFD:AutomateEF; u)——2 
(4 1)—--> 
. 4»—-—}> 
begin b>——> 
AEFD:= AutomateEF.Create(2); c)—--}» 
AEFD.Mot:= 'v14bcd73' ; _—. 
AEFD.Analyser; 335 
readin; #H>——> 
end. haine reconnue 


3.4 Exemple : les constantes numériques 


On donne des diagrammes syntaxiques de construction des constantes décimales positives 
Pascal-like : 
constante : 


Construisons un programme Delphi reconnaissant de telles constantes en utilisant le procédé 
de génération manuelle. 


Méthode de travail adoptée :(identique à la précédente) 
e Détermination d’une grammaire G adéquate. 
e Construction de l’automate AEFD associé à G. 
e Programme pascal associé à l’automate construit. 


Détermination d’une grammaire GK adéquate 
Reconnaissons d’abord qu’il y a une grammaire de type 3 engendrant ces identificateurs. 


Soient les ensembles : 

EnsChiffre = { 0, 1,..., 9 }. // les 10 chiffres 

Vr = EnsChiffre 

VX = { (constante), À, B } 

Posons Gcte = (Vr, Vx,< constante ) , Règles ) une grammaire où 
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Axiome : (constante) 
Règles : 

(constante) — 0 |1]...[9 A 
A—011]..[9 A 

A — E 

A — B 

B—011|...19 B 

BE 


La grammaire G« est de type 3 déterministe. 


Construction de l’automate associé à Gte 


Afin de réduire le nombre de lignes de texte, nous adoptons les mêmes conventions d'écriture que celles de 


l'exemple précédent: 


(qu, Chiffre) — qi, représente l’ensemble des 10 règles : 


(q,0) — q; 


Etats associés aux éléments de Vx: 
(constante)  qo 

(A) q 

(B)& q 

Etat initial = qo 

Etat final = qrs 


Vocabulaire terminal de l’automate : 


Vr = VrU {#} = Chiffre U {#} 


Règles de l’automate associé à Gt : 
( do, Chiffre) — q1// 10 règles 

( qi , Chiffre ) — q1// 10 règles 

( qi # ) > Qf 


( qi se ) —> q2 
( q , Chiffre ) — q2/ 10 règles 
(q.,#)— qfr 


Soit un total de 33 règles. 


Graphe de l’automate : 


Matrice de transitions de l’automate: 


Programme associé à l’automate 


Nous héritons de la classe AutomateAbstr. Comme dans l'exercice précédent , nous n’avons que la méthode 


init_table à redéfinir 
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AutomateEEF = class ( AutomateAbstr ) 
protected 

procedure init_table; override; 
end; 


implementation 


procedure AutomateEF init_table; 
{initialisation de la table des transitions} 


for x:='0' to 9' do 

begin 
table[0,x]:=1; { (q0,chiffre) — q1 } 
table[1,x]:=1; { (g1,chiffre) — q1 } 
table[2,x]:=2; { (q2,chiffre) — q2 } 

end; 

table[1,'"]:=2; { (q1,'.!) — 2 } 


table[1,finmot]:= EtatFinal; { (q1,#) — qf } 
table[2,finmot]:= EtatFinal; { (q2,#) — qf } 
end; 


var iT_etat; j:0..255; x:char; 
begin 
for i:=imposs to fin do 
for j:=0 to 255 do 
table[i,chr(j)]:=imposs; 


Programme utilisant la classe AutomateEF 
Reconnaissant le langage des constantes numériques 


Exécution de ce programme sur l'exemple 145 : 


program ProjAutomEF; 


{$APPTYPE CONSOLE} 
uses 
SysUtils, 1) —> 
UAutomEEF in 'UAutomEF.pas'; 43) 
var AEFD:AutomateEF; 5L»>—-> 
.)——} 
begin Fe  < 


82——}> 
AEFD:= AutomateEF.Create(3); 


#>——> 
AEFD.Mot:= 145.78 ; haine reconnue ? 
AEFD.Analyser; 
readin; 
end. 


Le lecteur aura pu se convaincre de la facilité d’utilisation d’un tel générateur manuel. II lui 
est conseillé de réécrire un programme personnel fondé sur ces idées. Le polymorphisme 
dynamique de méthode a montré son utilité dans ces exemples. 


Nous appliquons dans le chapitre suivant cette connaissance toute neuve à un petit projet de 
construction d’un interpréteur pour un langage analysable par grammaire de type 3. Nous 
verrons comment utiliser le graphe d’un automate dans le but de programmer les décisions 
d'interprétation. Là aussi, le lecteur pourra aisément adapter la méthodologie à d’autres 
exemples semblables construits sur des K-grammaires. 
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6.3 classe d'interpréteur d'un 
langage de type 3 


Objectif : Construction et utilisation d'une classe d'interpréteur d’un langage sans 
constantes, généré par une grammaire de type 3. 


ENONCE : 


On donne la Grammaire G suivante : 


VX = { (prog), (bloc), {égal}, (suitel), (suite2), (membre droit}, (plus), (suite3) , (moins) , (mult) , (div) } 


A PL RE PS CR PU RS RE 
Axiome : (prog.) 

Règles : 

{prog.) — { (bloc) 

(bloc) — } 

(bloc) — açégal) | bégal) |...| z(égal) 

(bloc) — L(suitel) | E(suitel) 

(suitel) — a(suite2) | b(suite2) |...| z(suite2) 


(suite2) — ; (bloc) 
(égal) — = (membre droit) 


{membre droit) — a(moins) | b(moins) |...| z(moins) 
{membre droit) — a(plus) | E(plus) |...| z(plus) 
{membre droit) — a(mult) | b(mult) |...| z(mult) 
{membre droit) — a(div) | b(div) |...| z(div) 
{membre droit) — a(reste) | b(reste) |...| z(reste) 


(moins) — = (suite3) | ; (bloc) 

(plus) — + (suite3) | ; (bloc) 

{mult) — * (suite3) | >; (bloc) 

(div) — {suite3) | ; (bloc) 

(reste) — % (suite3) | 3; (bloc) 

(suite3) — a(suite2) | b(suite2) |...| z(suite2) 


Questions : 


1°) Construire une classe interpréteur de L(G). On donne la sémantique suivante : 
(les spécifications sont fournies en langage algorithmique) 


Lx correspond à lire(x) 

Ex correspond à ecrire(x) 

x = y correspond à x &not; y 

a,b....,z correspondent à des variables contenant des entiers relatifs 


+ correspond à l’opérateur d’addition sur les entiers relatifs. 

- correspond à l’opérateur de soustraction sur les entiers relatifs. 

* correspond à l’opérateur de multiplication sur les entiers relatifs. 

/ correspond à l’opérateur de quotient euclidien sur les entiers relatifs. 
% correspond à l’opérateur de reste euclidien sur les entiers relatifs. 
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On utilisera une mémoire centrale dans laquelle se trouveront les variables (dans un tableau) 
et une autre table contenant les noms des variables et leur adresse en mémoire centrale (fable 
des symboles). 


2°) Construire une IHM de calculatrice programmable fondée sur la classe précédente 
d'interpréteur du langage L(G). calculatrice dans laquelle l'utilisateur peut entrer des lignes de 
programmes en L(G) et les exécuter. 


UNE SOLUTION AU PROBLEME PROPOSE 


Spécifications de base du logiciel 


1°) Construction d'un analyseur du langage L(G). 
2°) Construction d'un interpréteur du langage L(G). 
3°) Le programme console d'interpréteur. 

4°) Construction de 2 classes. 


Démarche adoptée : 

Nous adoptons la méthodologie de développement de l'algorithme d'interprétation évoquée au 
chapitre précédent (construction d'un analyseur puis de l'interpréteur associé), en l'adaptant 
au langage L(G). Ensuite nous construirons une classe fondée sur cet algorithme. 


1°) Construction d’un analyseur du langage L(G) 
Nous remarquons que la grammaire G est une grammaire de type 3 déterministe(d’état fini). 


En appliquant le principe de correspondance entre grammaires de type 3 et automates d’états 
finis, nous construisons l’AEFD associé qui sera un analyseur du langage engendré par G. 


correspondance entre les éléments de VX et les états de l’automate : 
<prog.7 Go 

<suite2>  q3 

<plus> & qé idem pour <moins>, <mult>, <div> et <reste> 
<bloc> & qi 

<egal>  q4 

<suite3>  q7 

<suitel>  q2 

<membre droit> & qs 


Soit l'AEFD A, A=(Vr,E, do, dr, Li) 

E = { do, qi, q, q3, qu, qs, dé, q7, qfr } 

état initial : do 

état final : qr 

ARS PU PR EE NS PR A À 


Nous poserons pour simplifier : 
Lettre = {‘a’, ‘b”,.., ‘z’}, 
Operat —_ { ‘+ ; cR° ; 7 . ‘p ; ‘4° . 
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Afin de réduire le nombre de lignes de texte nous adoptons la convention d'écriture suivante : 


(dk a ) — qj 
( dk ,b ) 2 di 
(q , Lettre ) — q; 
représente l’ensemble des 26 règles (k,Z) — qi 
(dk +) — qi 
(a, Operat) — q; Éd 
représente l’ensemble des 5 règles Cod 
( k » / ) — di 
(qk,%) — di 


Nous obtenons alors un AEFD dont nous donnons les règles et le graphe. 


Règles de transitions de y 


Graphe de l'’automate A 


(Cd; {) — qd 

(di, }) > dr 

( qi, Lettre) — q4 
(qi, L) — 
(a, E) — 

( d, Lettre) — q; 
(q3, 5) —> 

(4 =) — q;s 

( qs, Lettre ) — q 
(de 5) —> 

(qe, Operat ) — q7 
( qy, Lettre) — q; 


=} Go 


2E 


Lettre 


Lettre Ge 


Te at 


Employons la démarche conseillée dans le cours pour construire la matrice de transition de 
l'analyseur AEFD, grâce à la méthode init_table de la classe implantant l'automate : 


const 
imposs=-l; fin=20; finmot="#"; table[0;'{"]:=1 
type table[1 '}"]:=fin; 
T_etat=imposs..fin; for k:='a' to 'z' do 
Vt=char; begin 
T_transition=array[T_etat,char] of T_etat; table[1,k]:=4; 
table[2,k]:=3; 
AutomateEEF = class ( AutomateAbstr ) table[5,k]:=6; 
protected table[7,k]:=3; 
procedure init_table; override; end; 
end; table[1 ,'E']:=2; 
table[1 ,'L']:=2; 
implementation table[3,";]: n. 
table[4,'="]:=5; 
procedure AutomateEF.init_table; table[6,'+']: a 
{initialisation de la table des transitions} table[6,'*']:=7; 
var iT_etat; j:0..255; k:char; table[6,'-']: .. 
begin table[6,'%']:=7; 
for i:=imposs to fin do table[6,/']:=7; 
for j:=0 to 255 do table[6,';']:=1; 
table[i,chr(j)]:=imposs; end; 
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Programme d'analyseur utilisant la classe AutomateEF 
Reconnaissant le langage L(G) 


© 
L 


program ProjAutomEF; 
{$APPTYPE CONSOLE} 


uses 

SysUtils, 

UAutomEF in 'UAutomEF.pas'; 
var AEFD:AutomateEF; 


begin 
AEFD:= AutomateEF.Create(8); 
AEFD.Mot:= '{La;Lb;Ea;a=b*c:; }'; 
AEFD.Analyser; 
readin; 

end. 
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Exécution de ce programme sur le mot: {La;Lb;Ea;a=b*c;} 


2°) Construction d’un interpréteur à p 


Rappelons les spécifications proposées par l’énoncé : 


artir de l’'AEFD 


Lx correspond à lire(x) 
Ex correspond à ecrire(x) 


X = y correspond à x <— y 
a,b...., Z correspondent à des variables entiers relatifs 


+ correspond à l’opérateur d’addition sur les 
entiers relatifs. 

- correspond à l’opérateur de soustraction sur les 
entiers relatifs. 

* correspond à l’opérateur de multiplication sur les 
entiers relatifs. 

/ correspond à l’opérateur de quotient euclidien sur 
les entiers relatifs. 

% correspond à l’opérateur de reste euclidien sur 
les entiers relatifs. 


Le mécanisme d’accès est simple 


représentation de : 


a=-54 


SRE] 
si 


Tab [a] 


[Table des symboles! 
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Spécifications opérationnelles 


L’énoncé nous propose une spécification d’implantation en Delphi pour la mémoire 
centrale (nous la dénommons MemC}et la table des symboles (nous la dénommons 
TabSymb). 


Le tableau TabSymb est indexé directement sur les caractères (ce qui évite la construction 
d’une fonction de codage). Chaque cellule TabSymb{[‘a’], TabSymb{‘b’]..., 
TabSymb|°7’], contient un nombre qui est l’adresse adr (numéro de case dans MemC) de 
la variable a, b...,z. 


A partir de ce numéro de case adr, la cellule MemC{adr] du tableau MemC contient la 
valeur numérique de la variable d’adresse adr. 


Implantation Delphi de ces spécifications de données 


const 
adresse=0..maxadresse; 


type 

Symbole=char; 

T_mem=array|adresse] of integer; 
T_symb=array[Symbole]of adresse; 

var 

MemC:T_mem; / la mémoire centrale 
TabSymb:T_symb; // la table des symboles 


Spécifications d’implantation pour les instructions 
En partant des spécifications de données précédentes, nous pouvons proposer une 
implantation de chacune des instruction du langage L(G). 


Nous noterons par la suite, = la relation de traduction en pseudo Delphi. 


Nous avons utilisé trois métasymboles x,y et z pour remplacer le nom d’une quelconque 
des variables a, b...etc. afin de ne pas alourdir la traduction par de nombreuses lignes 
redondantes. 


Interprétation de l'instruction L : 


TabSymb{x] := adressecourante ; 


adressecourante := adressecourante +1 ; 
readin(MemC[TabSymb{x]]) 


Interprétation de l'instruction E : 


a adressecourante := TabSymb{x]; 
ai = writeln(MemC][adressecourante ]) 


Interprétation de l'instruction x = y : 


MemC[TabSymb{x]]:= MemC[TabSymbl{y]] 
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Interprétation de l'instruction x = y oper z : 


Fm 


x=y oper z 


MemC[TabSymb{x]]:= MemC[TabSymbl{y]] 
oper MemC[TabSymb{7]] 


oper est l'un des opérateurs suivants : 
OC EC 


Nous allons construire notre interpréteur à partir du graphe de l’AEFD que nous possédons. 


Ainsi, nous passerons de la version analyseur à la version interpréteur en suivant les chemins 
du graphe et en repérant les points clefs où l’interprétation d’une instruction est possible. 
Nous adoptons comme stratégie le fait que le lancement d’une interprétation ne sera possible 
que lorsque l’on sera arrivé dans le graphe à un endroit où une instruction vient juste d’être 
reconnue. 


Interprétation des instructions Ex et Lx 
Nous observons tout d’abord sur la portion de graphe de l’AEFD comment les instructions Ex 
et Lx sont reconnues. 


Une telle instruction est entièrement reconnue lorsque l’automate est à l’état q3. On pourrait 
lancer l’interprétation de Ex ou Lx, mais ce serait une erreur car il y a un autre chemin dans le 
graphe qui amène à l’état q3. 


Nous voyons qu’il n’y a que deux manières différentes d’arriver en q; : soit en venant de qp, 
soit en venant de q7. 


Il nous faut une variable que nous nommerons etatavant qui mémorisera l’état précédent. Le 
symbole qui vient d’être analysé est stocké dans une variable que nous nommons symlu. 

D'autre part, lorsque nous sommes en q3, le symbole qui vient d’être analysé est un élément de 
{a,b,c}. Afin de décider s’il s’agit d’une instruction Ex ou bien Lx, il nous faut avoir mémorisé le 
symbole précédent qui a été analysé en passant de q, à q. Nous nommerons cette variable symprec. 


If (etat=q;)and(etatavant-q,)and(symprec=L)then 
begin /on interprète le Lx} 


—— : Tab b[symlu] := ad te ; 
Voici donc en pseudo-Delphi le code de ne nl ee 
adressecourante := adressecourante +1 ; 


lancement de l’interprétation de Lx ou de Ex. readin(MemC[TabSymb[symlu]]) 


end 
Ce code est à rajouter à l’AEFD précédent. else /on interprète le Ex} 
begin 
adressecourante := TabSymb[symlu]; 
writeIn(MemCf[adressecourante ]) 
end 
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Interprétation de l’instruction x = y oper z 


Nous avons vu que l’autre façon d’arriver à l’état q3 est d’avoir suivi l’arc q7 à q3. 
LE 


Ce chemin correspond très exactement à l’analyse d’une instruction x = y oper z. Afin de 
pouvoir interpréter correctement cette instruction, nous devons avoir mémorisé les noms des 
variables x, y et z le long du chemin d’analyse : q1>q4 > qs > qe > q7 > q3. Afin de ne pas 
rajouter trop de nouveaux états nous avons décidé de n'avoir qu'une transition sur un ensemble 
d'opérateurs (qsoper) > q7. Nous regroupons alors les symboles +,-,*,/,% dans un même 
ensemble (Operat : set of Vt), que nous initialiserons dans la procédure d'initialisation : 
Operat =['+, 7-1, "#1, 7, '%'] 


Nous notons que : 

x est connu lorsque l’AEFD est à l’état q4 (à la fin de l’arc q1 > qu) 
y est connu lorsque l’AEFD est à l’état qé6 (à la fin de l’arc qs > q6) 
z est connu lorsque l’AEFD est à l’état q3 (à la fin de l’arc q7 > q3) 


Le stockage d’un troisième symbole de variable nécessite l’utilisation d’une nouvelle variable 
servant à le mémoriser. Nous la nommerons symavant. 


En résumant la situation, nous aurons pour x = y oper z : 
e _Zest stocké dans symlu, il est reconnu à l’état q3. 
e _yest stocké dans symprec, il est reconnu à l’état qg. 
e _xest stocké dans symavant, il est reconnu à l’état qu. 
e l'opérateur oper est reconnu à l’état q7.il est alors rangé dans une variable Oper Var de 
type Vt servant à cet effet. 


Voici donc en pseudo-Delphi le code de lancement de l’interprétation de l’instruction x = y 
oper z. Ce code est aussi à rajouter au code précédent. 


If etat=q, then symavant := symlu ; 
If etat=q then symprec := symlu ; 
If etat=q; then 
If symlu in Operat then OperVar := symlu; 
If (etat=q;)and(etatavant=q;)then /on interprète x = y oper z} 
case OperVar of 


‘+'MemC[TabS ymb[symavant]]:=MemC[TabSymb[symprec]]+MemC[TabSymb[symlu]|]; 

‘-"MemC[TabSymb{[symavant]]:=MemC[TabSymb[symprec]]-MemC[TabSymb[symlu]]; 

#:MemC[TabS ymb[symavant]]|:=MemC[TabSymb{symprec|]*MemC[TabSymb[symlu]]; 

l'MemC[TabSymb{[symavant]]|:=MemC[TabSymb[symprec]]div MemC[TabSymb[symlu]]; 

‘D'MemC[TabSymb[symavant]]:=MemC[TabSymb[symprec]]mod MemC[TabSymb[symlu]]; 
end; 
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Interprétation de l'instruction x=y 

Si nous observons la partie du graphe de l’AEFD correspondant à l’analyse de l’instruction 
X=Y, Nous remarquons que contrairement aux cas précédents ce n’est pas à l’état qç que nous 
pouvons prendre une décision. 


a 


En effet, à partir de q6 il y a deux possibilités d’instructions : soit x=y, soit x = y oper z. Il 
nous faut aller un état plus loin dans le graphe (déterministe) afin de décider si l’on est dans 
un cas ou dans l’autre. 


Si l’état d’après q6 est qu, il s’agit d’une instruction x=y, si l’état d’après qg6 est q7 il s’agit 
d’une instruction x=y+z. 


Le chemin d’analyse d’une instruction x=y est : 

da >qd> qs > d> qu. 

Comme dans l’analyse du problème précédent nous avons : 
e _;est stocké dans symlu, il est reconnu à l’état q1. 
e _yest stocké dans symprec, il est reconnu à l’état qg. 
e _xest stocké dans symavant, il est reconnu à l’état qu. 


Voici donc en pseudo-Delphi, le code de lancement de l’interprétation de l’instruction x=y. 
Ce code est le dernier à rajouter au code précédent. 


If (etat=q,)and(etatavant=q6)then /on interprète x = y} 
MemC[TabSymb{[symavant]] := MemC[TabSymb{symprec]] 


Le mécanisme d’accès implanté 
Par TabSymb et MemcC : s ] 
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Le lecteur pourra étendre le programme en augmentant par exemple le nombre de 
variables, ou le nombre d’opérateurs. 


Voici ci-dessous les squelettes des méthodes Delphi d'une classe d'interpréteur 
InterpreteurLang permettant d'étendre l'analyseur en interpréteur : 


type 
T_etat=imposs.fin; Vt=char; 


procedure InterpreteurLang.init_table; 
{initialisation de la table des transitions de l'automate AEFD } 


procedure InterpreteurLang.ClearMemC; 
// RAZ mémoire centrale 


procedure InterpreteurLang.ClearTabSymb; 
// RAZ table des symboles 


procedure InterpreteurLang.initialisations; 
/ RAZ tout 


procedure InterpreteurLang.Interprete(chaine:string;var etat: T_etat); 
{moteur d'analyse et d'interpretation de l'automate} 


function InterpreteurLang.transition(q:T_etat;car: Vt):T_etat; 
{par la table de transition :} 


procedure InterpreteurLang.Symsuiv(var num:integer; var symlu:Vt); 
{fournit le symbole suivant à analyser} 


function InterpreteurLang.In_TabSymb(identif:Vt):boolean; 
{indique si le symbole identif est deja dans TabSymb} 


Comme notre interpréteur doit lire et analyser un texte de programme et écrire les resultats 
d'exécution, nous proposons d'écrire une classe qui contienne toutes spécifications nécessaires 
et utiles au fonctionnement d'un interpréteur, mais qui ne dépende pas de la façon dont on lit 
et dont on affiche les résultats. Pour cela nous construisons une classe abstraite 
TinterpretAbstr qui possède 2 méthodes abstraites (donc non implémentées) Lire et Ecrire. 
Le soin d'expliquer comment lire ou écrire est délégué à une classe concrète’ qui dérivera de 
TinterpretAbstr. 


1°) Construction d’une classe abstraite d'interpréteur de L(G) 

Nous reprenons toutes les procédures et fonctions du programme console et nous les 
transformons en méthodes de classe. Ci-dessous un diagramme UML-like de la signature de 
la classe TinterpretAbstr. Nous ajoutons à cette classe, en visibilité protected, les deux 


méthodes abstraites : 


procedure Lire(symb:Vt; var x:integer); / symb = la variable à lire, x = sa valeur entière 
procedure Ecrire(symb:Vt; x:integer); / symb = la variable à ecrire, x = sa valeur entière 
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TinterpretAbstr 


- hnumcarinteger, 

- table T transition, 
- MemCT mer 

- TabSymbT symb, 
- OperVarVt; 

- Operatset of VE, 
+ mot:string, 


procedure ClearTabSymb 

procedure ClearMemC; 

- procedure wut table; 

- procedure titialisations, 

- fmchon transition{q"T_etat;car VIT _ etat, 

— procedure Symeuvivar numainteger;var syralu: Vt}, 

— function In TabSymbfidentf Vtrboolean, 

— procedure Exec{chane:stmg;var etatT etati: 

# procedure Lire(symb:Vtvar xinteger), virtual, abstract. 
# procedure Ecnre(symb:Vixinteger) virtual abstract 


—+ fmction Filtrage(Texte:sting):string, 


—+ procedure Lancer(prog:string): 
—+ constructor Create; 


Nous reprenons dans une unit Delphi que nous nommons Uinterpreteur, les mêmes 
déclarations de constantes et de type que dans le programme console : 


Unit Uinterpreteur : 

interface 

const 
imposs=- |]; 
fin=8; 
finmot='#"; 
maxadresse=100; 

type 
T_etat=imposs..fin; 
Vt=char; 
T_transition=array[T_etat,char] of T_etat; 
adresse=0..maxadresse; 
Symbole=char; 
T_mem=arrayl|adresse] of integer; 
T_symb=array[Symbole]of adresse; 


Ce qui nous donne dans Uinterpreteur la signature suivante pour la classe abstraite TinterpretAbstr : 


TinterpretAbstr=class 
private 


numcar:integer; 
table:T_transition; 
MemC:T_mem; 
TabSymb:T_symb; 
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OperVar:Vt; 

Operat : set of Vt; 

EtatFinal : T_etat; 

procedure Clear TabSymb; 

procedure ClearMemC; 

procedure init_table; 

procedure initialisations; 

function transition(q:T_etat;car:Vt):T_etat; 

procedure Symsuiv(var num:integer; var symlu:Vt); 

function In_TabSymb(identif: Vt):boolean; 

procedure Exec(chaine:string; var etat:T_etat); 
protected 

procedure Lire(symb:Vt;var x:integer); virtual;abstract; 

procedure Ecrire(symb:Vt;x:integer); virtual;abstract:; 
public 

mot:string; 

function Filtrage(Texte:string):string; 

procedure Lancer(prog:string); 

constructor Create(fin : T_etat) ; 
end; 


Nous avons rajouté une méthode de filtrage du texte source permettant une saisie plus 
libre du texte (avec des blancs, des sauts de ligne...) et épurant le texte entré de tous ces 
éléments : 


function Filtrage(Texte: string): string; 


Le texte suivant entré au clavier sur 8 lignes, soumis à la méthode de filtrage est restitué 
pour analyse une fois épuré : 


{Lb;Lc;a=c+b;d=a*c;Ea;Eb;Ec;Ed; }# 


Nous donnons ici la partie implementation de la unit Uinterpreteur avec les corps des 
méthodes : 


{ TinterpretAbstr } 


procedure TinterpretAbstr.ClearMemC; 
// RAZ mémoire centrale 


var i:adresse; 

begin 

for i:=0 to maxadresse do 
MenCfi]:=0; 

end; 
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procedure TinterpretAbstr.ClearTabSymb; 
// RAZ table des symboles 
var i: Symbole; 
begin 
for i:=chr(0) to chr(255) do 
TabSymbli]:=0; {0 indique : variable non definie} 
end; 


procedure TinterpretAbstr.init_table; 
{initialisation de la table des transitions de l'automate AEFD } 
var 
iT_etat; j:0.255; k:char; 
begin 
for i:=imposs to fin do 
for j:=0 to 255 do 
table[i,chr(j)]:=imposs;/par défaut tout est non reconnu} 
table[0;'{"]:=1; 
table[1,'}"]:= EtatFinal; 
for k:='a' to ‘7 do 
begin 
table[1,k]:=4; 
table[2,k]:=3; 
table[5,k]:=6; 
table[7,k]:=3; 
end; 
table[1,'E'1:=2; 
table[1 ,'L'1:=2; 
table[3,';']:=1; 
table[4,'=']:=5; 
table[6,'+']:=7; 
table[6,'*"]:=7; 
table[6,'-']:=7; 
table[6,'%']:=7; 
table[6,/']:=7; 
table[6,';']:=1; 
end; 


procedure TinterpretAbstr.initialisations; 
// RAZ tout 


begin 

ClearMemC; 

Clear TabSymb; 

init_table; 

Operat :=['+"!, '-1, #17, @"] 
end; 


function TinterpretAbstr.transition(q: T_etat; car: Vt): T_etat; 
{par la table de transition :} 

begin 

result:=table[q,car]; 

end; 


procedure TinterpretAbstr.Symsuiv(var num:integer;var symlu:Vt); 
{fournit le symbole suivant à analyser) 
begin 
if num<=length(mot) then 
begin 
symlu:=mot{[num|]; 
num:=num+] 
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end 

else {si on veut lire apres la fin} 

symlu:=chr(0);/caractere NUL invisible  } 
end; 


function TinterpretAbstr.In_TabSymb(identif:Vt):boolean; 
{indique si le symbole identif est deja dans TabSymb} 
begin 

if TabSymblidentif]=0 then In_TabSymb:=false 

else In_TabSymb:=true 
end; 


procedure TinterpretAbstr.Exec(chaine: string; var etat: T_etat); 
{moteur d'analyse et d'interpretation de l'automate} 
var 
symlu:Vt; 
adressecourante:adresse; 
symprec,symavant: Vt; 
etavant:T_etat; 
begin //nterpreteur - Exec} 
numcar:=|1; 
etat:=0; 
adressecourante:=1; {on commence toujours a 1} 
mot:= chaine; 
while (etat<>imposs)and(etat<> fin) do 
begin 
Symsuiv(numcar,symlu); 
etavant:=etat;: 
etat:=transition(etat,symlu); 
partie due a l'interpretation 
if (etat=-2)then 
symprec:=symlu; 
if etat=4 then 
begin 
symavant:=symlu; 
if not In_TabSymb(symlu)then 
begin 
TabSymb[symlu]:=adressecourante; 
adressecourante:=adressecourante+1 
end 
end; 
if etat=6 then 
symprec:=symlu; 
if etat=7 then 
if symlu in Operat then 
OperVar := symlu; 
if (etat=3)and(etavant-2)and(symprec='L") then / Zx; } 
begin 
TabSymb[symlu]:=adressecourante; 
adressecourante:=adressecourante+ 1; 
Lire(symlu,MemC[TabSymb{symlu]]); 
end 
else 
if (etat=3)and(etavant=2)and(symprec="E") then / Ex; } 
begin 
adressecourante:=TabSymb[symlu]; 
Ecrire(symlu, MemCl[adressecourante]); 
end 
else 
if (etat=1 )and(etavant-6)then lA=V) 
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begin 

MemC[TabSymb{[symavant]|]:=MemC[TabSymb[symprec]] 

end 

else 

if (etat-3)and(etavant-7)then {x = y oper 7; } 

case OperVar of 
‘+'MemC[TabSymb[symavant]]:=MemC[TabSymb[symprec]]+MemC[TabSymb[symlu]]; 
‘-'MemC[TabSymb{symavant]|:=MemC[TabSymb[symprec]]-MemC[TabSymb{symlu]]; 
‘#':MemC[TabSymb[symavant]]:=MemC[TabSymb[symprec]]*MemC[TabSymb[symlu]|; 
l'MemC[TabS ymb[symavant]]:=MemC[TabSymb[symprec]]div MemC[TabSymb[symlu]]; 
"D'MemC[TabSymb[symavant]]|:=MemC[TabSymb[symprec]]mod MemC[TabSymb{[symlu]]|; 


end;//nterpreteur - Exec} 


function TinterpretAbstr.Filtrage(Texte: string): string; 
{ filtrage du texte à interpréter :conservation des éléments 
du vocabulaire Vt et élimination des autres } 
var s:string; 

i:integer; 


if Texte[i] in ['a..7',;)/{} LUE "=" finmot]+Operat then 
s:=s+ Texteli]; 
result:=s 
end; 


procedure TinterpretAbstr.Lancer(prog: string); 
{ uniquement pour appeler la méthode privée Exec 
et envoyer des messages à l'utilisateur selon 
la manière dont s'est passée l'exécution. 
} 
var q:T_etat; 
begin 
Exec(prog,q): 
if q=imposs then 
MessageDlg('Blocage, erreur de syntaxe !'+ 
#13+#10+copy(prog,1,numcar)+'<<--', mtError ,[mbOKl], 0) 
else 
if q=fin then 
MessageDlg('Exécution terminée !', mtinformation ,[mbOKkl], 0); 
end; 


{---- le constructeur TinterpretAbstr ----} 
constructor TinterpretAbstr.Create(fin : T_etat) ; 
begin 

if fin in [1.20] then EtatFinal:=fin 

else  EtatFinal:=20; 

initialisations; 
end; 


end. /---- fin de la unit ----} 
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2°) Construction de deux classes héritant de TinterpretAbstr 


Application IHM - première classe dérivée 
Nous voulons écrire une application IHM utilisant la classe d'interpréteur que nous 
venons de construire, selon par exemple le modèle ci-dessous : 


Nous afficherons les résultats par une surcharge dynamique (redéfinition) de la méthode 
Ecrire à travers un TMemo : 


Interface de saisie de programmes en micro-langage L(G) 


Résultats après exécution 


Saisie du programme à exécuter 


À Effacer | 
{Lb:Lc;a=c+b;d=a"c:EaEbEc:Ed:}t 


Texte du programme à exécuter une fois filtré 


Nous saisirons les valeurs par une redéfinition de la méthode Lire à travers une inputBox : 


Saisie des valeurs 


Entrez: b 


{un entier] 


Soit la classe Tinterpreteur héritant de notre classe abstraite, qui reçoit lors de la 
construction d'un objet d'interpréteur la référence d'un Tmemo déjà instancié dans l'IHM 
afin d'afficher les résultats : 


{ Tinterpreteur cas de Delphi en mode application-IHM } 
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:Ulnterprete 


El Men : T_mem 

ET numcar : Integer 
F1 Gperat : set of Wt 
El Operw'ar : Wt 

El table : T_transition 
El TabSyrmb : T_symb 
FI mot : string 


El CleartlemC[...] 
El ClearT abS mb...) 
El Exec... 

El initialisations(.….] 
El init_tablel….] 

El In_TabSymb(...] 
El Symsuiv(….] 

El transition.) 

FH ce. # 


I Lancerl..] 


Tinterpreteur 


El Affiche : Tmemo 


Tinterpreteur=class(TinterpretAbstr) 
protected 
Affiche: Tmemo; 
procedure Lire(symb:Vt;var x:integer); override; 
procedure Ecrire(symb:Vt;x:integer); override; 
public 
constructor Create(sortie:TMemo); 

end; 


procedure Tinterpreteur.Ecrire(symb:Vt;x:integer); 
begin 

Affiche.Lines.Append(>> ‘+symb+' = '+inttostr(x)) 
end; 


procedure Tinterpreteur.Lire(symb:Vt;var x: integer); 
var InputString:string; 
begin 
InputString:= InputBox('Saisie des valeurs’, ‘Entrez : +symb, ‘(un entier)'); 
tr 
except 
x:=]; 
end 
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end; 


{---- le constructeur Tinterpreteur ----} 
constructor Tinterpreteur.Create(sortie: TMemo); 


begin 

inherited Create; 
Affiche:=sortie 
end; 


Terminons en livrant le code source et l'organisation de l'THM de saisie et de traitement 
(exe et projet complet) : 


Printerprete 


À Effacer | 


Texte du programme à exécuter une fois filtré 


{Lb:Lc;a=c+b;d=a"c:EaEbE c:E dt 


unit UFInterpreteur; 
interface 


uses 
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Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, 
StdCtris,Ulnterprete, Buttons; 


: UFlnterpreteur 


:<€<Unknown>>::TForm 


Fi] BitBExec : TBitBtn 
HI ButtonEffacer : TBitBtn 
FH] EditTexte : TEdit 

HI Labell : TLabel 

F] Labelz : TLabel 

F1 Label3 : TLabel 

EI MemoSortie : Tmero 
El MemoSource : Tmemo 


FI BitBExecClick[...] 

El ButtonEffacerClick(...] 
F] FormCreatel….) 

FI MemoSourceChangef...] 


type 
TFormi1 = class(TForm) 
MemoSource: TMemo; 
MemoSortie: TMemo; 
EditTexte: TEdit; 
BitBtnExec: TBitBtn; 
ButtonEffacer: TBitBtn; 
Labell: TLabel; 
Label2: TLabel; 
Label3: TLabel; 
procedure FormCreate(Sender: TObject); 
procedure MemoSourceChange(Sender: TObject); 
procedure BitBtnExecClick(Sender: TObject); 
procedure ButtonEffacerClick(Sender: TObject); 
private 
{ Déclarations privées } 
public 
{ Déclarations publiques } 
end; 


var 
Forml: TForml; 
interpreteur:Tinterpreteur; / objet interpréteur } 


implementation 
{£R *.DFM} 


procedure TForm1.FormCreate(Sender: TObject); 
{ instanciation de l'objet interpréteur 

et liaison avec le Tmemo MemoSortie 
} 
begin 
interpreteur:=Tinterpreteur.Create(MemoSortie); 
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EditTexte.Text:= interpreteur.Filtrage(MemoSource.text); 
end; 


procedure TForm1.MemoSourceChange(Sender: TObject); 
{ filtrage du texte sur l'événement OnChange du TMemo 

et stockage dans le TEdit EditTexte } 
begin 

EditTexte.Text:= interpreteur.Filtrage(MemoSource.text); 
end; 


procedure TForm1.BitBtnExecClick(Sender: TObject); 
{ OnClick du TBitBin BitBtnExec "Exécuter" } 


begin 
interpreteur.Lancer(EditTexte.Text); 
end; 


procedure TForm1.ButtonEffacerClick(Sender: TObject); 
{ OnClick du TBitBin BitBimEffacer "Effacer" } 

begin 

MemoSortie.Clear 

end; 


end. 


Application console - seconde classe dérivée 
Nous voulons maintenant écrire une application console utilisant la classe d'interpréteur 
TinterpretAbstr, selon le modèle ci-dessous : 


preteur du micro-langage 
sa. D,..,2, 2, =, +, fn, —, 2, LE, <, 
Entrez un programme entre deux<£ >,termine par un ‘’#H" 


<La;Lb;b=c;Ea;Eb;2># 

<La;2># 

<a=b+c;21 

<Lb;Lc;a=c+b;d=axc ;Ea;Eb;Ec;Ed;2f 


<Lb;Lc;a=c+b;d=axc ; Ea;Eb;Ec ;Ed;2># 
INTERPRETE micro-langage 666666 


Nous afficherons les résultats par une redéfinition de la méthode Ecrire à travers la 
procédure writeln. 


Nous saisirons les valeurs par une redéfinition de la méthode Lire à travers la procédure 
readin. 


Soit la nouvelle classe Tinterpreteur héritant de notre classe abstraite : 
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{ Tinterpreteur cas de Delphi en mode console } 


Tinterpreteur=class(TinterpretAbstr) 
protected 
procedure Lire(symb:Vt;var x:integer); override; 
procedure Ecrire(symb:Vt;x:integer); override; 
end; 


procedure Tinterpreteur.Ecrire(symb:Vt;x:integer); 
begin 

writeln(>> ',symb," =", x) 

end; 


procedure Tinterpreteur.Lire(symb:Vt;var x: integer); 
begin 
write('Entrez : ',symb;' :”); 
readin(x) 
try 
readin(x); 
except 
x:=]; 
end 
end; 


A titre d'exercice simple, il vous est demandé d'écrire une unit Uinterprete contenant la 
classe Tinterpreteur précédente, puis le programme principal en Delphi mode console 
utilisant cette classe : 


program InterpreteurLang; 


{$APPTYPE CONSOLE) 
uses sysutils , Uinterprete ; 
var 
interpreteur: Tinterpreteur; { objet interpréteur } 
begin 
interpreteur:=Tinterpreteur.Create(8); 


adlhtmot): 


interpreteur.Lancer(mot); 
end. 
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6.4 Mini-projet : réalisation d'un 
indentateur de code 


Objectif : Utiliser les compétences aquises sur les structures de données, les tris et 
la notion d'automate à pile de mémoire pour construire un éditeur d'indentation de 
code du langage Delphi lui-même. Nous essayerons de dégager dans cet exemple, des 
éléments de construction qui pourront s'appliquer à d'autres langages classiques. 


Soit le texte Delphi suivant (une implémentation de méthode) saisie par une personne : 


implementation begin 

procedure CIA1.Meth(var x:integer; y:real); X:=4; 

begin end 

if x < 5 then if expression(x,y)<'x' then 

y := y-7 a:="bonjour"  //ceci est un commentaire 
else else //ceci est un autre commentaire 
while x in [a..b] do WWWW; 

begin while dffg hh do 

if expression(x,y)<'x' then if dhdhdh then 

for x:=1 to 15 do dfdf 

if expression(x,y)<'x' then else 

if expression(x,y)<'x' then begin 

begin b:="aaaaa"+"bbbbbb"+"c"; 

X:=4; end 

end end; 

else end 

if expression(x,y)<'x' then end. 


Soit le même texte saisie par une autre personne : 


implementation 
procedure CIA1.Meth(var x:integer; y:real); 
begin if x < 5 then y := y-7 else 
while x in [a..b] do 
begin if expression(x,y)<'x" then for x:=1 to 15 do 
if expression(x,y)<'x' then 
if expression(x,y)<'x' then begin x:=4; 
end else if expression(x,y)<'x" then begin x:=4; end 
if expression(x,y)<'x' then a:="bonjour"  //ceci est un commentaire 
else //ceci est un autre commentaire 
wwww; while dffg hh do 
if dhdhdh then dfdf else 
begin 
b:="aaaaa"+"bbbbbb"+"c'; 
end end; 
end; end. 
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Deux saisies différentes 


Nous remarquons que nous sommes en face de deux saisies différentes du même texte et 
qu'aucune des deux ne fait apparaître la logique d'écriture par bloc du texte. 

On souhaite alors construire un logiciel permettant une présentation du code fondée sur 
l'indentation (opération de mise en retrait de lignes selon des blocs logiques afin de présenter 
une meilleure lisibilité du code). La présentation restant un choix non figé, nous adopterons 
notre propre style d'indentation, le lecteur pourra se servir des outils fournis par la suite dans 
le logiciel pour changer certaines dispositions de présentation. 


Une seule présentation 


Nous adoptons le principe que les textes de code en général sont composés de mots qui sont 
soit des marqueurs syntaxiques, soit des marqueurs sémantiques, soit des marqueurs de 
séparation et des mots ordinaires. Les développeurs ont adopté comme présentation 
synthétique, la structure de "peigne" . Cette présentation est une combinaison de la 
“justification à gauche" d'un texte et de l'utilisation de tabulation dès qu'un bloc est ouvert 
ou fermé selon le schéma ci-dessous (les lignes horizontales figurent le texte, les pointillés 
verticaux les retraits de tabulation) : 


indentation 


I 
I 
I 
Selon cette disposition, notre editeur de code devra pouvoir représenter les deux saisies 


précédentes du même texte de le même façon, soit comme ci-dessous (les mots clefs ont été 
surlignés en noir gras pour mieux faire ressortir l'indentation des lignes) : 


implementation 
procedure CIA1.Meth(var x:integer; y:real); 
begin 
if x < S then 
y:=y7 
else 
while x in [a..b] do 
begin 
if expression(x,y)<'x' then 
for x:=1 to 15 do 
if expression(x,y)<'x' then 
if expression(x,y)<'x' then 
begin 
X:=4; 
end 
else 
if expression(x,y)<'x' then 
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begin 
X:=4; 
end 
if expression(x,y)<'x' then 
a:="bonjour"  //ceci est un commentaire 
else //ceci est un autre commentaire 
WWWW; 
while dffg hh do 
if dhdhdh then 
dfdf 
else 
begin 
b:="aaaaa"+"bbbbbb"+"c'; 
end 
end; 
end; 


Spécifications de base du logiciel - Analyse et recherche des schémas 
d'indentation de base d'une unit Delphi 


Identification des tâches pour la présentation d'un texte 


Nous observons dans différents documents écrits manuellement ou par éditeur de code déjà 
existant qu'un certain nombre de règles non-écrites subordonnent la présentation de lignes de 
code. Nous remarquons que la structuration du langage influence d'une manière importante la 
présentation , en particulier pour les langages à structures de blocs où l'on pratique 
l'indentation (retrait d'une ligne par rapport à la précédente pour indiquer le début d'un 
nouveau bloc). Nous remarquons aussi qu'un certain nombre de styles de présentation sont 
laissés en libre choix. 


Nous allons donc construire un logiciel pour langages structurés et plus particulièrement pour 
lignes de code Delphi, et nous adoptons l'idée que nos lignes de code doivent être le plus 
courtes possibles afin de ne pas surcharger leur lisibilité : nous priviligérons donc la briéveté 
par rapport au nombre plus important de lignes. 


Nous postulons que la présentation du texte Delphi de 8 lignes suivant : 


implementation 

procedure CIA1.Meth(var x:integer; y:real); 

begin if x < 5 then y := y-7 else while x in [a..b] do 

begin if expression(x,y)<'x' then for x:=1 to 15 do if expression(x,y)<'x' then if expression(x,y)<'x' then begin 
X:=4; 

end else if expression(x,y)<'x' then begin x:=4; end 

if expression(x,y)<'x' then a:="bonjour"  //ceci est un commentaire 

else //ceci est un autre commentaire 

end; end. 


est "moins" lisible que le même texte beaucoup plus long (25 lignes) et réarrangé suivant 
(nous avons figuré avec des couleurs en gras les alignements de ligne): 


implementation 
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procedure CIA1.Meth(var x:integer; y:real); 
begin 
if x < S'then 
y:= y-7 
else 
while x in [a..b] do 
begin 
if expression(x,y)<'x' then 
for x:=1 to 15 do 
if expression(x,y)<'x' then 
if expression(x,y)<'x' then 
begin 
x:—4|: 
end 
else 
if expression(x,y)<'x' then 
begin 
X:=4; 
end 
if expression(x,y)<'x' then 
a:="bonjour"  //ceci est un commentaire 
else //ceci est un autre commentaire 
end; 
end. 


Nous devons alors relever tous les schémas prévisibles de code et préciser le modèle de 
présentation que nous souhaitons leur voir suivre. 


L'indentation d'une ligne 


Nous repertorions ci-après les principales configurations de code possibles en partie gauche et 
leur comportement d'indentation souhaité en partie droite. 


| Imbrication de blocs 
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sans défaut de fermeture (repeat...until, try...except...end) : 


(A 
| Instructions structurées 


begin begin 
repeat repeat 
x:=58; x:=58; 
Y:="kkkkKkk"; =) Y:='kkkkKkk"; 
z:=-14.57 z:=-14.57 
until (x> 76)and(g or not (x<7)) ; until (x> 76)and(g or not (x<7)) ; 
end end 
: begin 
begin a 
try X:=S 
X:=5 except 
except p_— > a 
En ree; 
+ end 
free; si 
end 
end 
G 4 
Len) avec défaut de fermeture (for... , while...) : 
begin begin 
x:=26; x:=26; 
for i:=12 downto 5 do for i:=12 downto 5 do 
X:=X+H; =} X:=X+H; 
y:=x-10; y:=x-10; 
end; end; 
begin te 
x:=26; x:=26: 
while(x<100) do =} while(x<100) do 
X:=x+Hi; X=XH; 
=x-10: y:=x-10; 
Y— ? end; 
end; 


| Instructions conditonnelles 


begin 

x:=26; 

if x<100 then 
X:=X+Hi 

else 

X:=x-2 
y:=x-10; 

end; 


avec défaut de fermeture ( if...else) : 


begin 
x:=26; 
if x<100 then 


else 


X:=x-2 
y:=x-10; 
end; 
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(if...if...else..else) : 


| Instructions conditionnelles imbriquées 


begin begin 
if x<100 then if x<100 then 
if x<200 then if x<200 then 
if x<300 then if x<300 then 
if x<400 then if x<400 then 
if x<500 then if x<500 then 
if x<600 then if x<600 then 
X:=X+i X:=x+i 
else else 
X:=Xx-2 X:=Xx-2 
y:=x-10; y:=x-10; 
end; end; 
. o 
Mélange d'instructions à défaut de (rattachement du else pendant) : 
fermeture imbriquées 
begin begin 
if x<100 then if x<100 then 
if x<200 then if x<200 then 
if x<300 then if x<300 then 
if x<400 then if x<400 then 


for x:=1 to 500 do 
for x:=1 to 600 do 
while x<700 do 

if x<800 then 
X:=X+H 

else 

X:=x-2 

else 

Autre(s); 
y:=x-10; 

end; 


for x:=1 to 500 do 
for x:=1 to 600 do 


while x<700 do 
if x<800 then 


X:=x+i 
else 
X:=Xx-2 
else 
Autre(s); 
y:=x-10; 


end; 


Le découpage d'une ligne 


Nous voulons que notre logiciel possède une certaine "intelligence" du texte et qu'il soit 
capable de découper automatiquement selon des modèles préétablis une ligne longue en 
plusieurs lignes. Par exemple, les 5 lignes de code de gauche devront se trouver 
transformées par l'éditeur de code en les 12 lignes de droite : 


begin 
begin if x < 5 then y := y-7 else if x < 5 then 
while x in [a..b] do y:=y-7 
begin if expression(x,y)<'x" then for x:=1 to 15 else 
do while x in [a..b] do 


if expression(x,y)<'x' then begin 


if expression(x,y)<'x' then begin x:=4; if expression(x,y)<’x" then 
for x:=1 to 15 do 
if expression(x,y)<'x' then 
if expression(x,y)<'x' then 
begin 
61 
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Cette intelligence relative nécessite de fournir au logiciel des informations sur des 
marqueurs sémantiques de découpage d'une phrase. Prenons la phrase de code extraite 
du texte précédent : 


begin if expression(x,y)<'x" then for x:=1 to 15 do 


il est évident que le mot begin qui est déjà un mot clef du langage est aussi un marqueur 
sémantique de découpage, il en est de même pour les mots clefs then et do : 


begin if expression(x,y)<'x' then for x:=1 to 15 do 


Après la reconnaissance de ces marqueurs, le logiciel produira 3 lignes d'une seule 
instruction à partir de cette phrase : 


begin 
if expression(x,y)<'x' then 
for x:=1 to 15 do 


Spécifications opérationnelles du logiciel - Les grandes fonctions du 
logiciel et la méthodologie opératoire adoptée. 


Mise en place de la présentation d'un texte 
Nous posons comme postulat que la présentation de notre code résultera de deux fonctions spécifiques 
du logiciel ceci afin de bien séparer les actions de découpage du texte et celle d'indentation 


proprement dite, nous rajouterons une troisième fonctionnalité plus tard : la coloration syntaxique des 
mots clefs du langage. 


= Méthode de découpage d'une ligne _ 


Nous proposons de construire une méthode CouperLigne qui balaie entièrement toutes 
les lignes du texte dans un premier passage. A cette méthode CouperLigne nous 
attribuons deux fonctions : 


Fonction découpage proprement dit, c'est la méthode CouperLigne qui effectuera la 


reconnaissance des marqueurs de découpage et qui réinserera immédiatement les 
nouvelles lignes générées, dans le texte comme dans l'exemple ci-dessous: 


begin if x > 46 then for x:=46 downto 15 do y:=y+x 3 Z:=y-1l ; 


la méthode CouperLigne doit reconnaître les 4 marqueurs de découpage : begin , then , do et ; 
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Après la reconnaissance de ces marqueurs la méthode CouperLigne doit insérer les 5 
lignes ci-dessous dans le texte à la place de la ligne précédente : 


begin 
if x > 46 then 
for x:=46 downto 15 do 


Y'=YFX 
Z:=Y-] ; 


L'ensemble de tous les marqueurs de découpage est stocké dans une structure de données 
à accès direct afin d'être accessible immédiatement (un ensemble set of en Delphi), nous 
la noterons EnsMotDeCoupe. 


Nous remarquons que la méthode CouperLigne doit pouvoir découper une ligne 
contenant un nombre quelconque et non connu à l'avance de marqueurs de découpage : 


La méthode CouperLigne doit découper aussi bien la ligne : 
begin if x > 46 then for x:=46 downto 15 do y:=y+x 3 Z:=y-1l ; 
que découper la ligne : 


begin x:=5 


Nous proposons de construire une méthode récursive qui va découper une ligne de gauche 
à droite en deux lignes, puis se rappeler récursivement sur la deuxième ligne jusqu'à 
épuisement des marqueurs de découpage. Prenons un exemple : 


Soit la ligne de code suivante où pour des raisons de compréhension nous avons fait 
figurer son numéro dans la liste des lignes (ici ce serait la 17 ème ligne du texte) : 


n° 17- fx=0Othen x:=1; y:=5 begin 


La méthode CouperLigne reconnaît le marqueur then elle scinde donc la ligne n°17 en 2 


morceaux : 
x:= 1; y:=S begm 


Puis la méthode CouperLigne remplace la ligne originale n°17 par deux nouvelles lignes 
n°17 et n°18 obtenues par découpage : 


n° 17 “if x=0 then n° 18!x=1; y:=S begin 


n° 17- 


Enfin la méthode CouperLigne se rappelle sur la ligne n°18 où elle reconnaît le 
marqueur : : 


n°18 [x=1:] 
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Elle réengendre 2 nouvelles lignes 


n° 18-x:= 1; 
n° 19-y:=5 begin 


La méthode CouperLigne se rappelle une dernière fois récursivement sur la ligne n°19 et 
repère le marqueur begin , pour fournir finalement le nouveau texte suivant : 


n° 17 - if x=0 then 
n° 18=2x;=1 ;: 

n° 19 - y:=S 

n° 20 - begin 


= Traitement des commentaires 4 


Nous savons par expérience que le code doit être documenté à l'aide de commentaires, 
l'attitude des développeurs est d'utiliser soit un commentaire mono-ligne pour une 
information brève et ciblée sur une ligne de code particulière, soit un commentaire plus 
long de plusieurs lignes que nous dénommerons commentaire multi-lignes. La méthode 
CouperLigne doit respecter les commentaires en particulier les commentaires mono- 
ligne. 


1)En effet la ligne de code Delphi suivante : 


n° 17 - if x=0 then // ceci est un commentaire 


ne doit pas être découpée en les 2 lignes suivantes : 
n° 17 - if x=0 then 
n° 18 -/] ceci est un commentaire 


2)En revanche la ligne : 


n° 17- fx=0Othen x:=1; y:=5 // ceci est un commentaire 


sera découpée en : 

n° 17 - if x=0 then 

n° 18-x:= 1]; 

n° 19 - y:=S // ceci est un commentaire 


Nous normalisons la présentation des commentaires multi-lignes afin d'avoir une 
représentation standard dans tous les textes,en Delphi : 


{ Les nombres avec un séparateur décimal 
ou un exposant désignent des réels, alors que 
les autres nombres désignent des entiers. 


} 
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Entre un marqueur syntaxique de début de commentaire multi-lignes ( ‘{'en Delphi ) et un 
marqueur de fin de commentaire multi-lignes ( ‘}'en Delphi ), les lignes de commentaires 
ne subiront pas de présentation particulière, et elles ne seront n1 découpées, ni indentées. 


Remarque importante : 


Les mots d'une ligne de code peuvent être différenciés selon leur mode d'interprétation soit rien (aucune action, 
c'est alors un mot banal), soit c'est un marqueur syntaxique (début de bloc, fin de bloc..….), soit c'est un marqueur 
sématique de découpage, soit c'est un mot clef (utilisable pour la coloration syntaxique des mots clefs). Certains 


éléments peuvent être à la fois marqueur syntaxique , marqueur de découpage etc. (comme par exemple le mot 
clef begin). Nous englobons toutes ces catégories sous un seul vocable: les catégories lexicales que nous 
dénoterons CategLexeme. 


Voici ci-dessous les catégories lexicales CategLexeme qui ont été utilisées dans le 
logiciel construit : 


isRien, isStartBloc, isEndBloc ,isParagraphe, isAlinea, isTeteBloc, isMilieulnstrStruct, isDebutDefautFermeture, 
isFinDeLigne, isMilieuDefautFermeture, isDebutDefautFermetureCompos, isDebutInstrStruct, isEndInstrStruct, 


IsStartComment, IsEndComment, IsComment, isChaine, isDebutParagrapheTry, isMilieuParagrapheTry, 
isAsLignePrec, isDelimit, is Vide . 


Nous construirons une méthode qui permet d'extraire les mots d'une ligne de code et une 
méthode qui fournit la catégorie lexical d'un mot, nous aurons ainsi à notre disposition un 
petit analyseur lexical pour l'indentation (et le coloriage) 


| Stockage des information collectées 4 


Nous assignons aussi à la méthode CouperLigne un travail de conservation dans une liste 
des informations collectées sur une ligne. Sachant que la prochaine activité d'indentation 
du logiciel necessite pour une ligne donnée de connaître le genre de ligne de la 
précédente nous stockons dans une liste ListeFirstKeyLine un lexème (la catégorie 
lexicale du premier mot de la ligne ainsi que le mot lui-même). 


Ainsi, en reprenant l'exemple précédent après action de la méthode CouperLigne sur la 
ligne 


n° 17- ifx=0Othen x:=1; y:=S // ceci est un commentaire 


on obtient un nouveau texte : 


n° 17 - if x=0 then 


n° 18-x:=1; 
n° 19-y:=5 
n° 20 - begin 
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et une liste de lexèmes ListeFirstKeyLine qui s'agrandit de 4 éléments : 


n° 17 -(if, isDebutDefautFermetureCompos ) 
n° 18-(x,isRien) 

n° 19-(y,isRien) 

n° 20 - (begin , isStartBloc ) 


—| Moteur de décisions — 


Nous utilisons pour prendre les décisions de présentation d'une ligne de code, un moteur 
de décision fondé sur un automate à pile de mémoire. 


L'analyse et la construction se font ligne à ligne les décisions d'actions sont dirigées par 
un automate à pile qui permet pour chaque ligne de savoir dans quel contexte la ligne se 
situe par connaissancede la catégorie du premier lexème de la ligne ( état de l'automate ) 
et par consultation d'une pile contextuelle dénotée PileBlocs, contenant des informations 
sur les blocs imbriqués et sur les instructions à défaut de fermeture imbriquées dans les 
blocs. 


Nous rappellons que certains langages comme Delphi, Java, C++, C# etc. possèdent des 
instructions structurées avec un défaut de fermeture (pas de marqueur syntaxique de fin de 
l'instruction), Visual Basic quant à lui ne possède pas d'instruction à défaut de fermeture. 


Par exemple l'instruction de boucle while fermée en VB et non fermée dans les autres 
langages Delphi, Java, C++, C# : 


En Delphi : En Delphi : 
while x < 5 do while x < 5 do 
X := Xx+2 begin 

X := X+2; 

v:=x-Î; 

end 


En C++, Java, C# : 


En C++, Java, C# : 


while (w < 5) while (w < 5) 
X +=2; { 

X += 2; 

y=x-l; 

} 
En VB : En VB : 
while x < 5 while x < 5 
X = x+2 x = x+2 
wend y=x-Î 

wend 


Notre moteur de décisions doit donc être capable dans un langage comme Delphi de 
proposer une indentation particulière pour de telles instructions. En reprenant l'exemple de 
l'instruction while, nous aurons : 
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texte de la ligne avant indentation 


texte de la ligne après indentation 


while x < 5 do 
begin 

X := X+2; 
y:=x-Î; 

end 


while x < 5 do 
begin 
X := X+2; 
y:=x-1; 
end 


while x < 5 do 
X := X+2; 
y:=x-Î; 


while x < 5 do 
X := X+2; 
y:=x-Î; 


Dans le cas où plusieurs instructions de ce type sont imbriquées, le moteur de décision 
doit être capable de situer correctement la dernière ligne qui "ferme" les imbrications et de 


rattacher la prochaine instruction au bon bloc. 


Exemple : 


texte de la ligne avant indentation 


texte de la ligne après indentation 


for i:=1 to 10 do 
while x < 7 do 
while x < 6 do 
while x < 5 do 
begin 

X := X+2; 
y:=x-Î; 

end 


for i:=1 to 10 do 
while x < 7 do 
while x < 6 do 
while x < 5 do 
begin 
X := X+2; 
y:=x-Î; 
end 


for i:=1 to 10 do 
while x < 7 do 
while x < 6 do 
while x < 5 do 
X := X+2; 
v:=x-Î; 


for i:=1 to 10 do 
while x < 7 do 
while x < 6 do 
while x < 5 do 
X := X+2; 
y :=x- 1; 


Pour ce faire l'automate de décision travaille avec la pile contextuelle PileBlocs dans 
laquelle 1l range les ouvertures de blocs structurés et les rangs d'indentation à chaque fois 
qu'il rencontre une instruction à défaut de fermeture imbriquée (lexèmes : 
isDebutDefautFermeture et isDebutDefautFermetureCompos ). 


Enfin, dans la catégorie des instructions à défaut de fermeture, le if...else prend une place 
particulière due au problème de la résolution classique du else pendant (nous attribuons au 
if une categorie lexicale spéciale isDebutDefautFermetureCompos et au else la 


catégorie isMilieuDefautFermeture) 


if P1 then if P2 then else A else B 


Problème d'ambiguïté résolue classiquement par le compilateur par rattachement du 
premier ‘else’ au ‘if le plus proche. Notre logiciel doit tenir compte de cette démarche et 
fournir une présentation adéquate qui prenne en compte ce rattachement au if le plus 


proche : 
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if P1 then 


if P2 then 


if P1 then if P2 then else A else B => se À 


else B 


Notre logiciel doit pouvoir interpréter et indenter aisément des situations comme celle qui 
suit ( les couleurs ne sont mises que pour bien faire ressortir les alignements des lignes) : 


texte de la ligne avant indentation 


texte de la ligne après indentation 


for i:=1 to 10 do 
if y<4 then 

if y<3 then 
while x < 7 do 
if y<2 then 
while x < 6 do 
while x < 5 do 
X := X+2 


for i:=1 to 10 do 
if y<4 then 
if y<3 then 
while x < 7 do 
if y<2 then 
while x < 6 do 
while x < 5 do 
X:=Xx+2 
else 
y:= x-l 
else 
Z:=8 ; 


Les piles contextuelles 


Nous utilisons une pile auxiliaire de contexte que nous notons Pilelndent, qui contient 
uniquement les valeurs des retraits de chaque début de bloc. L'ensemble des deux piles 
permet à l'automate d'avoir une information constante sur la valeur du retrait à attribuer 
à une ligne à l'intérieur d'un bloc. Les piles PileIndent et PileBlocs sont liées logiquement 
entre elles selon le schéma d'information ci-dessous : 


PileBlocs 


Pile Imdent 


ca pohsne) LUTTS 


Schéma de piles pouvant correspondre aux lignes de code suivantes : 
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| lignes abstraites | lignes en Delphi | 


… , isStartBloc > Retrait=4 / begin 

… , ISDebutDefautFermetureCompos > Retrait =6 / if …. then 
… , iSDebutDefautFermetureCompos > Retrait =7 / if … then 
… , iSDebutDefautFermeture > Retrait =8 / for … to 

… , ISDebutDefautFermetureCompos > Retrait 9 / if …. then 
… , isStartBloc > Retrait =10 / begin 

… , iSDebutDefautFermetureCompos > Retrait =11 / if …. then 
… , isDebutDefautFermeture > Retrait =12 / for … to 
… , isDebutDefautFermeture > Retrait =13 / while … do 
… , iSDebutDefautFermetureCompos > Retrait =14 / if …. then 
… , isStartBloc > Retrait =15 / begin 

… , isRien > Retrait =16 / x := 47 

… , isStartBloc > Retrait =16 / begin 


< 
< 
< 
< 
< 
< 
< 
< 
< 
< 
< 
< 
< 


PileBlocs 


El 
ca pohshe) LUTTS 


Pile Imdent 


Empilement : 


| Lorsqu'une marque de début de bloc &@ est stockée dans la PileBlocs , la valeur 
actuelle de la position du retrait d'indentation est stockée dans la pile 
auxiliaire PileIndent. 


Dépilement : 


À chaque fois qu'une marque de début de bloc @ est dépilée de la pile PileBlocs , 
la pile PileIndent est dépilée parallèlement de son sommet de telle façon que le 
sommet de PileIndent représente toujours le niveau d'indentation du bloc en 
COurS. 


Ainsi les deux piles PileBlocs et PileIndent représentent une vue abstraite de tout le texte 
sous l'angle de la présentation. Elles sont utilisées par un automate de décision qui les 
remplit, les consulte et les modifie en fonction de situations spécifiques. 
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— Les différentes fonctions de l'automate décisionnel 0 


Méthodes de base 


Il nous faut donc construire nos outils de base permettant ces différents types de 
positionnement. Nous listons ci-dessous les méthodes de notre classe éditeur qui travaillent 
sur une ligne de texte et que nous avons classées pour des raisons pédagogiques, par 
catégories : 


{ Méthodes de positionnement d'une ou plusieurs lignes } 

function GetPosIndent(NumLigne:integer):integer; 

function FirstChar(NumLigne:integer):integer; 

function NbrBlancs(NumLigne:integer):integer; 

function Decalage(nbr:integer):string; 

function DecalageTAB(nbrTab:integer):string; 

procedure AjusteLigneNextTAB(NumLigne:integer); 

procedure AjusteLigneRight(NumLigne:integer); 

procedure AvancerLigne(NumLigne,Nbrtab:integer); 

procedure ReculerLigne(NumLigne,Nbrtab:integer); 

procedure PositionneSurLignePrec(NumLigne:integer); 

procedure PositionneLigneSurIndent(NumLigne:integer;Depiler:boolean); 
procedure PositionneLigneDeFinDefautFermerure(NumLigne:integer); 
procedure PositionneLigneSurLastDefautFermeture(NumLigne:integer); 
procedure AlignerPargrf(Debut,Fin:integer;tabuler:boolean); 

procedure AvancerPargrf(Debut,Fin:integer); 

procedure ReculerPargrf(Debut,Fin:integer); 


{ Gestion des piles } 

procedure RAZPilelndent; 
procedure RA7PileBlocs; 
procedure DepileNextMarkBloc; 


{ Analyseur lexical } 
procedure ExtraitMot(Ligne:String; var numcar:integer; var Mot:string; var IsMot: MotsLimites;var 
TypeBloc:CategLexeme); 


{ Découpage d'une ligne } 
procedure StockKeyLine(NumLigne:integer); 
procedure CouperLigne(NumLigne:integer); 


{ Indentation d'une ligne : Moteur de décision } 

procedure IndentLignelfMotNotRien(NumLigne:integer;Motactuel,Motprec:string;EtatMot,EtatmotPrec: 
CategLexeme); 

procedure IndentLignelfMotisRien(NumLigne:integer;Motactuel, Motprec:string;EtatMot,EtatmotPrec: 
CategLexeme); 

procedure IndentUneLigne(NumLigne:integer;indentTout:boolean); 


{ Analyse et indentation de tout le texte } 


procedure Indenter Tout; 
procedure AnalyseComplete; 


Toutes ces méthodes participent aux actions de découpage et d'indentation proprement dite de 
l'automate. Nous décrivons ci-après les deux actions. 
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Découpe d'une ligne 


Eléments utiles au découpage d'une ligne : 


e Méthode ExtraitMot ( Ligne, rang, Mot, Motls, MotisBloc ) est l'analyseur lexical 
qui extrait consécutivement dans une ligne les mots (dans la variable Mot) et leur 
catégorie lexicale (dans la variable MotIsBloc ). 


e Méthode StockKeyLine(NumLigne:integer) range le premier mot de la ligne et sa 
catégorie lexicale dans une liste nommée ListeFirstKeyLine. 


e __ Rappelons enfin que toutes les catégories lexicales sont décrites dans le type 
CategLexeme : 


isRien, isStartBloc, isEndBloc ,is Paragraphe, isAlinea, isTeteBloc, isMilieulnstrStruct, 
isDebutDefautFermeture, isFinDeLigne, isMilieuDefautFermeture, isDebutDefautFermetureCompos, 


isDebutInstrStruct, isEndInstrStruct, IsStartComment, IsEndComment, IsComment, isChaine, 
isDebutParagrapheTry, isMilieuParagrapheTry, isAsLignePrec, isDelimit, is Vide . 


Nous ne rentrerons pas dans le détail du code, seulement dans les grandes lignes 
structurelles afin de comprendre comment l'automate prend ses décisions voici en texte 
algorithmique : 


Algorithme CouperLigne 
entrée : Numligne € entier 


EnsMotdeCoupe = { isFinDeLigne, isMilieulnstrStruct, isStartBloc, isEndInstrStruct, 
isMilieuDefautFermeture, isEndBloc, isTeteBloc, isStartComment, isEndComment, isComment } 


début 
Tantque ( non fin de la ligne ) et ( MotlsBloc £ EnsMotdeCoupe ) faire 


ExtraitMot ( Ligne, rang, Mot, Motls, MotlsBloc ); 


si MotlsBloc € {IsComment, isMilieuParagrapheTry, isTeteBloc }alors 
StockKeyLine ( NumLigne ); 
sortir de la boucle; 
fsi ; 
si MotlsBloc € {isStartBloc, isMilieulnstrStruct, isMilieuDefautFermeture, 
isEndinstrStruct, isEndBloc, IsStarttComment, IsEndComment} alors 
Traiter les cas de découpage de la ligne et des commentaires 
sinon 
si (MotisBloc € {isFinDeLigne} ) et (non ChaineEnCours) alors 
ligne à décomposer et ajouter les nouvelles lignes dans le texte 
fsi 
fsi 
fTant 
StockKeyLine (NumLigne ); 
fin-CouperLigne 


Exemple : 
Afin de bien comprendre ce que fait ce premier traitement sur le texte prenons le 


texte Delphi de 6 lignes suivant : 
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for i:=1 to 10 do if y<4 then 

begin if y<3 then while x < 7 do begin 
if y<2 then while x < 6 do while x < 5 do 
x := x+2 else y := x-1 

end end 

else z := 8 ; 


Appliquons 6 fois (une fois pour chaque ligne) la méthode CouperLigne (en rouge 
souligné le premier marqueur de découpage repéré par la méthode) 


Entrée de la méthode CouperLigne : une sortie de CouperLigne : une ou Ajout dans la liste 
ligne de code. plusieurs lignes. ListeFirstKeyLine 


for i:=1 to 10 do if y<4 then for i:=1 to 10 do 
if y<d then <Mot= for, MotlsBloc > 


if y<2 then while x < 6 do while x < 5 do | if y<2 then 
while x < 6 do while x < 5 do 


La deuxième ligne est sécable : par rappel récursif : <Mot=if, MotlsBloc > 
while x < 6 do while x < 5 do while x < 6 do 
while x < 5 do 


etc. 


Rappelons que MotlsBloc € CategLexeme, voici les résultats effectifs produits : 


Texte après découpage liste ListeFirstKeyLine 


for i:=1 to 10 do < for , isDebutDefautFermeture > 
if y<4 then <if , isDebutDefautFermetureCompos 
begin < begin , isStartBloc > 
if y<3 then < if , isDebutDefautFermetureCompos 
while x < 7 do < while , isDebutDefautFermeture > 
begin < begin , isStartBloc > 
if y<2 then <if , isDebutDefautFermetureCompos 
while x < 6 do < while , isDebutDefautFermeture > 
while x < 5 do < while , isDebutDefautFermeture > 
X := X+2 <x, isRien > 
< else , isMilieuDefautFermeture > 
<y,isRien > 
<end , isEndBloc > 
<end , isEndBloc > 
< else , isMilieuDefautFermeture > 
<z,isRien > 
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__—— | ___ Algorithmes d'indentation _ 


L'indentation est effectuée par un nouveau passage sur le texte, pour des raisons de clarté 
les actions ont été divisées en 3 algorithmes interdépendants. 


Algorithme IndentUneLigne 
entrée : NumLigne € entier 
Mot : premier mot de la ligne 
MotIsBloc : catégorie lexicale du premier mot de la ligne 


début 


si MotIsBloc = IsStartComment alors 
…/ c'est un début de commentaire multi-lignes 
sinon 
si MotIsBloc = IsEndComment alors 
. //le découpage de ligne met une fin de commentMulti sur une ligne seule 
sinon 
si MotIsBloc = IsChaine alors 
…/ le début de ligne est une chaine 
sinon 
si MultiEnCours alors 
… //on est dans un commentaire multi-lignes 
fsi 
fsi 
fsi 
fsi 


si MotisBloc € [{ isRien , isVide } alors 


/* le ler mot de la ligne n'est ni un début, ni une fin de Bloc, 
ni un paragraphe , ou la ligne est vide DE | 
IndentLignelfMotisRien / le 1er mot de la ligne est un marqueur d'indentation 
sinon / MotisBloc <> isRien ou MotisBloc <> isVide 
Ie LIENELMONOIRiEnE— "7 
fsi 


fin-IndentUneLigne 


Algorithme IndentLignelfMotNotRien 
/ examine l'état lexical du premier mot de la ligne actuelle pour décider 
on examine tous les cas sauf isRien et is Vide 
début 
selon la valeur de EtatMot de la ligne actuelle 
IsComment, IsStartComment : 
selon la valeur de EtatmotPrec de la ligne précédente 
isStartBloc,isDebutInstrStruct,isMilieulnstrStruct, 
isMilieuDefautFermeture,isDebutDefautFermeture, 
isDebutDefautFermetureCompos : 
Avancer la ligne d'une tabulation 


isEndBloc, isEndiInstrStruct, isRien : 


si on est dans un bloc à défaut de fermeture alors 
on Positionne la Ligne sur la valeur De Fin de DefautFermerure 
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sinon 
on Positionne la Ligne Sur la Ligne Précédente 
fsi 


tous les autres cas : 
on Positionne la Ligne Sur la Ligne Précédente 


fin selon la valeur de EtatmotPrec 


isStartBloc, isDebutInstrStruct : 
si EtatmotPrec € { isStartBloc, isDebutInstrStruct, 
isDebutParagrapheTry, isMilieuParagrapheTry, isMilieulnstrStruct } alors 
Avancer la ligne d'une tabulation 
sinon 
si EtatmotPrec € { isAsLignePrec, IsSEndComment, IsComment, IsStartComment } alors 
on Positionne la Ligne Sur la Ligne Précédente 
sinon 
Traitement des cas des blocs à defaut fermeture 
fsi 
fsi 
Empiler dans PileBlocs une marque de début de bloc ; 
Empiler dans Pilelndent la valeur de la position d'indentation actuelle 


isEndBloc, isEndInstrStruct : 
on dépile PileBlocs jusqu'à la prochaine marque de début de bloc ; 
on Positionne la ligne Sur l'Indent ation actuelle ; 
on examine le sommet de PileBlocs qui sert 
à positionner un drapeau de déclaration ou de fin de bloc à défaut de fermeture 


isParagraphe : 
traitement du cas du paragraphe ; 


isDebutParagrapheTry: 
traitement du cas du paragraphe du type try ; 


isMilieuParagrapheTry: 
on Positionne la ligne Sur l'Indent ation actuelle ; 


isAlinea: 
traitement du cas de l'alinéa ; 


isTeteBloc: 
traitement du cas dela tête de bloc ; 


isMilieulnstrStruct : 
traitement du cas d'un milieu d'instruction structurée ; 


isDebutDefautFermeture, isDebutDefautFermetureCompos : 
traitement du cas des débuts de bloc à défaut de fermure; 


isMilieuDefautFermeture : 
si on est dans un bloc à défaut de fermeture alors 
on Positionne la Ligne sur la dernière indentation d'ouverture de Defaut Fermerure 
sinon 
on Positionne la Ligne Sur la Ligne Précédente 
fsi 


isAsLignePrec : 
on Positionne la Ligne Sur la Ligne Précédente 
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fin selon la valeur de EtatMot 
fin-IndentLignelfMotNotRien 


Algorithme IndentLignelfMotisRien 
// l'état lexical du premier mot de la ligne actuelle est isRien ou is Vide 
on examinel'état lexical du premier mot de la ligne précédente 
début 
selon la valeur de EtatmotPrec de la ligne précédente 
isStartBloc, isDebutInstrStruct, isParagraphe, 
isAlinea, isTeteBloc, isMilieulnstrStruct, isMilieuParagrapheTry : 
Avancer la ligne d'une tabulation 


IsStartComment, is Vide, IsEndComment, IsComment : 
on Positionne la Ligne Sur la Ligne Précédente 


isDebutDefautFermeture, isDebutDefautFermetureCompos, isMilieuDefautFermeture : 
Avancer la ligne d'une tabulation 


isRien,isEndBloc, isEndinstrStruct : 

si on est dans un bloc à défaut de fermeture alors 
on Positionne la Ligne sur la valeur De Fin de DefautFermerure 

sinon 
on Positionne la Ligne Sur la Ligne Précédente 

fsi 

fin selon la valeur de EtatmotPrec 
fin-IndentLignelfMotisRien 


= | ____Les piles contextuelles — 


Après avoir produit et normalisé un nouveau texte et la liste des premiers lexèmes, 
l'automate a repris le nouveau texte normalisé pour l'indenter à l'aide des algorithmes 
précédents. 


Nous avons juste mentionné la gestion des piles qui est essentielle aux bonnes prises de 
décision. Afin de cerner de plus près l'intérêt de ces piles , nous reprenons l'exemple 
donné au paragraphe des spécifications opérationnelles, puis nous le modifierons : 


| texte de la ligne avant indentation | texte de la ligne après indentation | 


for i:=1 to 10 do for i:=1 to 10 do 

if y<4 then if y<4 then 

if y<3 then if y<3 then 

while x < 7 do while x < 7 do 

if y<2 then if y<2 then 
while x < 6 do while x < 6 do 
while x < 5 do while x < 5 do 


X:= x+2 
else 
y:= x-l 
else 
Z:=8 ; 
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La gestion de la pile contextuelle PileBlocs est alors essentielle dans ce genre d'éventualité : 
l'automate empile la valeur actuelle de retrait de chaque lexème du type 
isDebutDefautFermetureCompos, l'automate dépile à chaque lexème de 

catégorie isMilieuDefautFermeture. 


La pile PileBlocs contient uniquement des symboles de marquage de début de bloc @ et de 
rang d'indentation d'une ligne de catégorie à défaut fermeture : 


Reprenons l'exemple précédent et visualisons l'évolution prévue de la pile PileBlocs : 
for i:=1 to 10 do 


while x < 7 do 


if y<2 then 
while x < 6 do 


while x < 5 do 


,2,3,5 | rien n'est empilé (retrait actuel=7) 
décalage +1 par rapport à la ligne précedente 


,2,3 ]rien n'est empilé (retrait actuel=5) 
décalage +1 par rapport à la ligne précedente 


,2 ]rien n'est empilé (retrait actuel=3) 
décalage +1 par rapport à la ligne précedente 


Si la prochaine ligne est un else (isMilieuDefautFermeture ) le sommet de pile (valeur=2) 
indique le bon retrait, sinon la pile contextuelle PileBlocs n'est pas consultée et c'est une 
autre procédure de décision qui est mise en oeuvre. Nous n'avons pas fait figurer la pile 
PileIndent, car celle-ci n'a pas évolué dans ce morceau de code à indenter du fait 
qu'aucun nouveau bloc n'a été ouvert. PileIndent contient dès le départ la valeur 0, soit la 
valeur du premier retrait du texte. 


Introduisons des blocs dans ce texte : 


texte de la ligne avant indentation texte de la ligne après indentation 


for i:=1 to 10 do for i:=1 to 10 do 
if y<d then if y<4 then 
begin begin 

if y<3 then if y<3 then 


Les bases de l'informatique - programmation - (r6v. 05.09.2004 ) age 620 
pds 


while x < 7 do while x < 7 do 
begin begin 

if y<2 then if y<2 then 
while x < 6 do while x < 6 do 
while x < 5 do while x < 5 do 
X := X+2 X:=Xx+2 


else else 
y:=x-1l y:=x-l 
end end 

end end 

else else 

Z:=8; Z:=8 ; 


Visualisons sous la forme de deux tableaux, la nouvelle évolution prévue de la pile 
PileBlocs ( @ = marque de début de bloc ) et celle de la pile PileIndent : 


for i:=1 to 10 do PileBlocs = [ 
rien n'est empilé (retrait actuel=1) 
PileIndent =! 


if y<4 then PileBlocs = | 
retrait actuel=2 
PileIndent =! 


PileBlocs = [ 
marque de bloc empilée (retrait actuel=2) 
Pilelndent = | 


if y<3 then PileBlocs = [ 
retrait actuel=3 
PileIndent = | 
while x < 7 do PileBlocs = [ 
rien n'est empilé (retrait actuel = 4) 
PileIndent = | 


begin PileBlocs = [ ..,2,©,3,@] 
marque de bloc empilée (retrait actuel = 4) 
Pilelndent =! 


if y<2 then PileBlocs = [ 
retrait actuel=5 
PileIndent = | 


while x < 6 do PileBlocs = [ .,2,©,3,@,5] 
rien n'est empilé (retrait actuel=6) 
PileIndent =! 

while x < 5 do PileBlocs = [ ..,2,©,3,@,5] 
rien n'est empilé (retrait actuel=7) 
Pilelndent =! 


PileBlocs = [ ….,2,©,3,@,5] 
rien n'est empilé (retrait actuel=8) 
décalage +1 par rapport à la ligne précedente 
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[1] for i:=1 to 10 do 
[2] if y<d then 
[2] begin 
[3] if y<3 then 
[4] while x < 7 do 
[4] begin 
[5] if y<2 then 
[6] while x < 6 do 
[7] while x < 5 do 
[81 x := x+2 
[5] else 
[6] y := x-1 
[4] end 
[2] end 
[2] else 
[31Z:=8; 


Nous voyons que les deux piles permettent à l'automate de connaître en permanence en valeur absolue de 


PileIndent =! 


PileBlocs = [ 


5 est dépilé (retrait actuel=5) 


PileIndent =! 


PileBlocs = [ 


décalage +1 par rapport à la ligne précedente 


Pilelndent =! 


PileBlocs = [ 


ed 2 , () * 3 , @ ] 
rien n'est empilé (retrait actuel=6) 


© est dépilé (retrait actuel = 4) 


Pilelndent = | 


PileBlocs = [ 


,2 ],4 est dépilé 


© ,3 sont dépilés (retrait actuel=2) 


PileIndent = | 


PileBlocs = [ 


],2 est dépilé 


2 est dépilé (retrait actuel=2) 


PileBlocs = [ 
rien n'est empilé (retrait actuel=3) 


_ 


BD ND D. NE D DR ER D: 
8880888886 @ 


_ 


S À OU) VU) À À À OS LD) 


nu 
_ 


2200 


Los + 
= it, Ÿ 

Où En On Un 

ds dd 


tabulations, la profondeur de retrait du bloc où se trouve la ligne à indenter, toutefois les éléments 
déclencheur d'un nouveau retrait d'indentation ne se réduisent pas uniquement aux ouvertures/fermetures de 


bloc et d'instructions du type if...then...else. En outre pour des raisons de choix de présentation une ligne 
peut s'aligner sur la ligne précédente ou bien plutôt avancer d'une tabulation sur la ligne précédente; dans 
cette dernière hypothèse nous procédons par positionnement relatif et non pas par positionnement absolu. 


L'automate "moteur de décision" va donc agir par positionnement absolu dans certains cas et par positionnement 
relatif dans d'autres. C'est de la variabilité et du dosage entre ces deux types d'actions que nous obtiendrons une 
présentation personnalisée. 
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Ci-dessous l'insertion de la classe indentateur de code dans une éditeur syntaxique : 


3 Editeur Syntaxique D:\,_coursinfo341ChapProjets\Editindent\TestsDelphDelpmtestDesordre pas Li [O/_x| 
Fichier Edition Paramètres Version 


Colorisation |] Tabulation  Auto-indent 
= = | où @ Tab=1 
Brut indent| { Non © Tab =2 


Tshb=3 


for i:=1 to 15 do x:=45for i:=1 to 15 do begin 
Mot:='/'+Ligne[index]:1sMot:= IsComment end: 
ifi=15then ifi-15 then ifi=15 then x:=45 : 
Mot:='/'+Lignel[index]: ; 5 
IsMot-= IsComment:_ifi-15 then Affichage du texte Delphi au format 
ifi-15 then non organisé, avant lancement de 
x=45 else l'algorithme d'indentation. 
IsMot:= IsComment. 
ifi=15 then x:=45 else 
begin Mot='/'+Ligne[index]: 
IsMot:= IsComment: end: ifi-15 then begin  x:=45: 
end else begin 
Mot:='"/'+#Ligne[index] : IsMot:= IsComment : 
end :ifi=-15then begin Mot='/'+Lignelindex]: IsMot:= IsComment 
end: 
while i=15 do x:=45: 
while i=15 do begin Mot:='"/'+#Lignelindex]: 
IsMot:= IsComment end: end 


Ligne : 524 Modifié Insertion Delphi 


Fichier Edition Paramètres Version 
Texte 


Colorisation |; Tabulation  Auto-indent 
F4 fs Oui É Tab = 1 On © = 
L Nan 4 Lys = = Indentation - Coloris 


Ent indent 


+ 
LÉ 


fori:=1to 15 do 
x:=45;: 

for i:=1 to 15 do 

begin 
mot:="/'+#ligne[index]: 
ismot= iscomment: 


Fe. Hoi avec une tabulation de 3 (3 blancs 


ifi=15then pour le décalage) 
ifi-15 then 
x= 45 : 
Mot:="/"+Ligne[index]: 
ismot= iscomment 
ifi-15then 
ifi-15then 
x:=45 
else 
IsMot= IsComment si 


4: 17 a 


Ligne : 524 Modifié Insertion | Delphi 2 


Affichage du même texte Delphi après 
demande d'action de l'indentation, 
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Exercices chapitre 6 


Ex-1 : Soit G la C-grammaire suivante et L(G) le langage engendré par G : 


G: Vrx={S,A,B} 
Vr={(),0} 
Axiome : À 
Règles : 

1:A— (A 
2:A(S 
3:S— 0S 
4:S—)B 
5:B— )B 
6:B— ) 


1°) construisez l'arbre de dérivation dans G de la chaîne : (* 0° 


2°) construisez un automate fini reconnaissant le langage L(G) : 
2.1) en fournissant son graphe 
2.2) en indiquant s'il est déterministe ou non 
2.3) donnez la séquence d'analyse de la chaîne (* 0° )* 


Ex-2 : On donne la Grammaire G, de type 3 suivante : 


VX = { (programme) , (instruction) , (affectation) , (termel), { terme2), (membre droit) , (oper) } 


Vr _ { ‘a’ , ‘b’ — ,Z . ‘fin‘ . ‘debut‘ S “ . ‘Lire’, ‘Ecrire’ , +” , P : EE : a à “—? } 
(a, b',.….,7 désigne toutes les lettres de l'alphabet minuscules) 


Axiome : (programme) 


Règles : 

(programme) —— debut ( instruction) 

Ginstruction) —— fin 

(instruction) —— a (affectation) | b (affectation) |. | z (affectation) 
{instruction} —— Lire { termel) | Ecrire( termel) 

{termel) —— a ( terme2) | b ( terme2) | … | z (terme2) 

{ terme2) —— ; (instruction) 

(affectation) ——> = {membre droit) 

{membre droit) — a {oper) | b (oper) | … | z (oper) 

{oper) ——> +4termel) | *{ termel)} | /(termel) | -{termel) | (terme2 ) 


Cette grammaire G engendre un langage noté L(G ). 
Questions : 
1°) combien de règles distinctes possède la grammaire G ? 


2°) On donne les deux mots suivants (les blancs ne sont pas significatifs et ne sont figurés que pour rendre le 
texte lisible) : 


mot, = debut Lire x; Lirey; z =x*y;Lirea;a=a-7; Ecrire a; fin 


mot, = debut Lire x ; Lire y ; Lirea ;a=a-x * y; Ecrire a ; fin 
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En construisant leur arbre de dérivation potentiel dans G, , dire si ces deux mots appartiennent ou non au langage 
de L(G: ). 


3°) Construire un automate d'état fini reconnaissant L(G, ) indiquez s'il est déterministe ou non. 


4°) Donnez une séquence d'analyse (liste des règles de transition appliquées) de chacun des deux mots de la 
question 2° et confirmez ainsi votre réponse d'appartenance ou non de ces mots au langage L(G ). 


Ex-3 : Analyse d'une expression arithmétique parenthésée et traduction en expression postfixée, par algorithme 
d'automate avec pile LIFO. On propose les spécifications suivantes : 


Une expression est stockée dans une chaîne de caractères. 


- Les expressions sont composées de variables, de chiffres et d'opérateurs 


- Les variables ne sont composées que d'une lettre (a,b,c....z) 
- Les chiffres sont : (0, 1,2, ,9) 


- Les opérateurs sont : (+,-,*, /,A,1!) 
- Les priorités d'opérateurs sont les suivantes : 
+,-: priorité = 1 


1,* : priorité = 2 


A: priorité = 3 


|: priorité = 4 


Algorithme AutomateParPostFixe 


entrée : phrase une chaîne contenant l'expression parenthésée 


sortie : Traduc /une chaîne contenant l'expression postfixée 
local : 


FinAnalyse € booleen, 

CarLu € car, 

sentinelle € car 

Pile /est une pile LIFO contenant des caractères 
EnsdesOpérateurs /ensemble des opérateurs 

EnsdesOpérandes / ensemble des opérandes (variables et chiffres) 


debut 
lire(phrase); 
FinAnalyse <--- Faux ; 
CarLu <--- 1er caractère de phrase ; 
tantque non FinAnalyse faire 
si CarLu € EnsdesOpérandes alors 
concaténer CarLu à Traduc ; 
CarLu suivant ; 
sinon 
si CarLu = ( alors 
Empiler CarLu ; 
CarLu suivant ; 
sinon 
si CarLu € EnsdesOpérateurs alors 


si Sommet de Pile = ( ou Pile est vide alors 
Empiler CarLu ; 
CarLu suivant ; 


sinon //le sommet de pile est un opérateur 

si priorité ( CarLu) > priorité(Sommet de Pile) alors 
Empiler CarLu ; 

CarLu suivant ; 

sinon 


concaténer Sommet de Pile à Traduc 
Débpiler ; 
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fsi 
fsi 
sinon 
si CarLu = ) alors 
si Sommet de Pile appartient EnsdesOpérateurs alors 
concaténer Sommet de Pile à Traduc 
Débpiler ; 
sinon /sommet de Pile = ( 
Débpiler ; 
CarLu suivant ; 
fsi 
sinon 
si CarLu = sentinelle alors 
si Pile n'est pas vide alors 
concaténer Sommet de Pile à Traduc 
Débpiler ; 
sinon 
FinAnalyse <--- Vrai ; 
fsi 
sinon 
Erreur 
fsi 
fsi 
fsi 
fsi 
fsi 
ftant 
fin / AutomateParPostFixe 


Questions : 


1°) Effectuez une trace formelle à figurer dans un tableau de cet algorithme sur l'expression suivante : (a+b)*c-5 


2°) Ci-dessous voici une signature d'une implémentation possible de cet algorithme avec deux classes en Delphi : 


wà TPile(TList) 

69 Publiques 
% äffichePile 
M Create 
& Depilerfvar elt: char] 
& Empiler(elt char] 
&% Est_Vide: boolean 
® premier char 


[[! 


= à TConvertPostFixe(T Object] 
E-Ë4 Privées 

‘D car char 
CarLu: char 
CarSuivant 
Convertir 
Expr: string 
FinTraduc: Boolean 
Initialisations 
NumCar: integer 
Operandes: set of char 
Operateurs: set of char 
Phrase: string 
Pile: TPile 
Prior: array of <subrange> 
sentinel. char 
SetExpr{x: string] 

C9 Traduc: string 
=. $9 Publiques 

Create 

% Destroy 

& GetExpr string 

@ GetTraduc{x: string]: string 


Saone ceetreetre 


v 
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On suppose que la classe TPile est déclarée et entièrement implémentée dans la Unit UCIassLIFO : 


::UClassParentPostFixe::TConvertPostFixe 


E] car: char 
El Carlu: char 
El Expr: string 
El FinTraduc : boolean 
El NumCar : integer 
-:UClassLiFO::T Pile El Operandes : set of char 
= Operateurs : set of char 
| j Phrase : string 
. E Pile : TPile 
Œ Depiler(..) El Prior : of 1... 4 
Œ Empiler(…) El sentinel : char 
BI Est Videl. El Traduc : string 
Æ premier(….] 
El CarSuivant(...) 
El Convertir(...] 
El Initialisations(.…) 
El SetExprf...) 
Æ Createl...) 
Æ] Destroy...) 
] GetE xpr(.….) 
Æ GetTraduc{...) 


Il vous est demandé de donner le contenu détaillé de la Unit UclassParentPostFixe contenant la classe 
TconvertPostFixe qui implante l'algorithme précédent. 


Quelques remarques utiles pour votre implémentation: 

Les données: 
Expr contient l'expression parenthésée telle qu'elle est rentrée, 
Phrase contient l'expression à analyser avec la sentinelle, 
Traduc contient l'expression postfixée. 


Les méthodes : 

GetExpr renvoie l'expression telle qu'elle a été rentrée, 

GetTraduc renvoie l'expression une fois traduite en postfixé, 

SetExpr prépare les données pour le lancement de la conversion, 

Initialisations initialise toutes les données : rempli la table de priorités, les opérateurs, les 
opérandes… 

Convertir : l'algorithme de conversion proprement dit. 


3°) On demande de construire une interface d'animation du suivi de l'analyse d'une expression arithmétique. 
Cette interface est développée pour tester l'analyseur construit aux questions précédentes. Elle permet d'entrer 


une expression arithmétique juste, puis de lancer la conversion, alors s'affichent à chaque caractère analysé le 
contenu de la chaîne en cours d'analyse et le contenu de la pile Lifo des opérateurs et parenthèses ouvrantes. 
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Examen Delphi Cci - 2004 


Expression aritméthique parenthésée : 
((a+b}(x-8)/((x+4)-(d-e)]-b+c 


Convertir | ÎL Arrêter | 


Traduction sous forme post-fisée : 


Fe _— 


Chaire en cour ares 


(a+4}-(delHb+ch 


Travail a effectuer : 


Utiliser dans la classe TconvertPostFixe l'agrégation forte d'un objet de classe TTimer pour obtenir un 
programme interactif au sens suivant : 


e On peut fermer la fiche en cours d'analyse (à tout moment) 
e On peut arrêter à tout moment l'animation de la traduction et la phase de traduction se poursuit 
alors en mode exécutable sans temporisation. 


Rendre un objet de classe TconvertPostFixe sensible à un événement que vous dénommerez OnEndTraduction 
qui se déclenche dès que la traduction de l'expression est terminée, puis dans l'IHM de test interceptez cet 
événement afin qu'il affiche un message dans une fenêtre de showmessage. 


Réponses 
Ex-1 : 
Arbre de dérivation de (° 0° } Automate d'état fini reconnaissant L(G) 
À 
| ) 
CA | 
_ 
( S 
{ YŸs 
F4 °4; 
0 a 
ÿ B 
TT 
) Eu L'automate est non TE 
) B Séquence d'analyse de (* 0° } : 
) (do. () > Qo CEE 
(do; '() > Go (@,))> 4 
(db,'() > 4: (@,)) > 4 
(q,'0) > qi CSDEAT 
( d: ° 'o' ) > d: 
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Ex-2 : 


1°) Règles : 

(programme) —> debut { instruction) 

instruction) —— fin 

(instruction) —— a (affectation) | b (affectation) | … 
(instruction) —— Lire ( termel) | Ecrire( termel) 
{termel) —— a { terme2) | b { terme2) | … | z (terme2) 
{ terme2) — ; (instruction) 

affectation) ——> = (membre droit) 

{membre droit) —+ a (oper) | b (oper) | … | z (oper) 
{oper) ——> +4{termel) | * (termel) |/(termel) | -{termel) | {terme2 ) 


z (affectation) 


Total 


1 règle 
1 règle 
26 règles 
2 règles 
26 règles 
1 règle 
1 règle 
26 règles 
5 règles 
= 26 règles 
= 115 règles 


2°) Arbre de dérivation de mot, = debut Lire x ; Lire y; z =x*y;Lirea;a=a-7; Ecrire a; fin 


{programme} {instruction} ne 
Fr : z 7 tuttectæio) Lire {termel} 
Lire £termel} ns Ce droit} a { 
x LS x ss ; rai) 
; {instruction} dS Pas : a 
{ terme2} émembre droit} 
Lire {termel} ? | : T4, 5 
. | ; ee. A | 
J. rm - 7 {termel} 
; Chen 


3 {instruction} 


{instruction} 
Ecrire {termel} 


En 


tmez} 


à 


| {instruction} 


| 
fin 


celui de mot; ne peut être construit en entier car l'instruction a = a - x * y ; n'est pas dérivable dans la grammaire. 


Donc mot, appartient à L(G ) , mot n'appartient pas à L(G ). 


3°) 
AËF donné par ses règles 
( do, debut ) > q: (ds ; Operat ) > 4; Lettres = { a, b, … ,z} 
(Qi, fin) > qr (6,5)? di _ 
(ob se (crm)og |A 
(=) > qu (qh, Ecrire ) > q: 
(Q;, Lettres ) > ( 3, Lettres ) > qi 
(%,3;3)>dh 
Reconnaissance de mot: 
(Qo, debut ) > q: |(q:,y) > qu (6, *) > CEA T (d,z) > 
(qi , Lire ) > q (U,;) 2? (@,y) > (Qi ,a) > (U,5) 2? 
(@,x) > (d,2z) > (dM,;:)>4q (D,=)> 4; (q: , Ecrire ) > q; 
CRREAT (D ,=) > 4; (qi, Lire) >q: |(4s,a) > (4, y) > du 
(qi, Lire ) > q (ds, x) > de (4 ,a)>q: (6, -) > (Q,3) >? 
(Qu, fin) > dr 
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Tentative de reconnaissance de mot, 


(Qo, debut) > q: | (43, y) > qu (d,a) > (dis *) > 77 
(qi, Lire) > 43 |(q,5;)?4i (B,=) > 4; 
(4 ,x) > qu (qi, Lire) > q; |(q:s,a) > q Donc mot; n'est pas reconnu. 
(Q,5)2 di (@,a) > (6, -) > 4 
(qi, Lire) > 43 |(,5:)> di (x) > qi 


aucune règle de la forme ( 44 , *) > … 


Remarquons que mot, est partiellement conforme à la syntaxe jusqu'à : 
debut Lire x ; Lire y; Lirea;a=a-x < le reste n'est pas correct 


Ex-3 : Solution pratique de "expression arithmétique parenthésée" 


Questions 2°) 


unit UClassLIFO; 


{une implantation en Delphi du TAD Pile LIFO 
à partir de la classe tlist } 


interface 
uses classes; 


type 
TPile = class(TList) 
public 
constructor Create; 
function Est_Vide : boolean; 
procedure Empiler (elt: char); 
procedure Depiler (var elt: char); 
function premier : char; 
procedure AffichePile; 

end; 


implementation 


constructor TPile.Create; 
begin 

inherited Create; 

end; 


function TPile.Est_Vide: boolean; 
begin 
if count = O then 
result := true 
else 
result := false 
end; 


procedure TPile.Empiler (elt: char); 
begin 

self.Capacity := Count; 
Add(TObject(elt)) 
end; 


Les bases de l'informatique - programmation 


- (rév. 05.09.2004) EXERCICES 


page 


630 


procedure TPile.Depiler (var elt: char); 
begin 
if not Est_Vide then 
begin 
elt:=char(Last); 
self.Delete(count-1); 
self.Pack; 
self.Capacity := Count; 
end 
else 
writeln(' désolé pile vide !"); 
end; 


function TPile.premier : char; 
begin 
if not est_vide then 
result:=char(last) 
else 
result:='@"'; 
end; 


procedure TPile.AffichePile; 
var i:integer; 
begin 
if not Est_Vide then 
begin 
writeln('Pile contenant : ',count,' éléments"); 
for i:=0 to count-1 do 
write(char(Items{i])); 
writeln 
end 
else 
writeln('pile vide.'); 
end; 


end. 


unit UClassParentPostFixe; 
{implantation en Delphi d'un convertisseur d'expression parenthésée en postfixé 


avec pile lifo } 
interface 


uses UClassLIFO; 


type 
{ Grammaire : 
opérandes possibles: a,b,..,7,0, 1,...,9 
opérateurs possibles: +,-,/,*,\! 
+,- : prior = 1 


LPS NIOrT = 2 
#e DIE = 7 
!: prior = 4 


} 


TConvertPostFixe = class 
private 
Pile:TPile; 
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Phrase,Expr,Traduc:string; 
CarLu,car,sentinel:char; 
NumCar:integer; 
Operandes,Operateurs:set of char; 
Prior:array[char] of 1.4; 
FinTraduc:Boolean; 
procedure Jnitialisations; 
procedure CarSuivant; 
procedure SetExpr(x:string); 
procedure Convertir; 
public 
constructor Create; 
destructor Destroy; 
function GetExpr:string; 
function GetTraduc(x:string):string; 
end; 


implementation 
uses Dialogs; 


// Private ---> 
procedure TConvertPostFixe.lnitialisations; 
begin 
Priorl['+]:=1; 
Prior[-']:=1; 
Prior[/]:=2; 
Prior['*"]|:=2; 
Prior['"]:=3; 
Prior['!"]:=4; 
Operandes:=['a"..'z']+[0".9"]; 
Operateurs:=["+",-",7, "FAT; 
NumCar:=0; 
Traduc:="; 
FinTraduc:=false; 
end; 


procedure TConvertPostFixe.CarSuivant; 
begin 

NumCar:=NumCar+1; 
CarLu:=Phrase[NumCar] 

end; 


procedure TConvertPostFixe.SetExpr(x:string); 
begin 

Traduc:="; 

Expr:=x; 

Phrase:=Expr+sentinel; 

end; 


procedure TConvertPostFixe.Convertir; 
begin 
CarSuivant; 
while not FinTraduc do 
begin 
if CarLu in Operandes then 
begin 
Traduc:=Traduc+CarLu; 
CarSuivant; 
end 
else 
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if carlu="(" then 
begin 
Pile.Empiler(CarLu); 
CarSuivant; 
end 
else 
if carlu in operateurs then 
begin 
if (Pile.premier="(")or(Pile.Est_Vide) then 
begin 
Pile.Empiler(CarLu); 
CarSuivant; 
end 
else /sommet de pile est un opérateur} 
if Prior[CarLu] > Prior[Pile.premier] then 


begin 
Pile.Empiler(CarLu); 
CarSuivant; 
end 
else 
begin 
Traduc:=Traduc+Pile.premier; 
Pile.Depiler(car); 
end 
end 
else 
if carlu=")' then 
begin 
if Pile.premier in Operateurs then 
begin 
Traduc:=Traduc+Pile.premier; 
Pile. Depiler(car); 
end 
else /sommet de pile = ('} 
begin 
Pile.Depiler(car); 
CarSuivant; 
end 
end 
else 
if carlu = sentinel then 
begin 
if not Pile.Est_ Vide then 
begin 
Traduc:=Traduc+Pile.premier; 
Pile.Depiler(car); 
end 
else 
fintraduc:=true; 
end 
end; 
end; 
// Public ---> 
constructor TConvertPostFixe.Create; 
begin 


sentinel:="#"; 
Pile:=TPile.Create; 
Initialisations; 
end; 
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destructor TConvertPostFixe.Destroy; 
begin 

Pile.Free; 

Pile:=nil; 

inherited; 

end; 


function TConvertPostFixe.GetExpr:string; 
begin 

result:= Expr 

end; 


function TConvertPostFixe.GetTraduc(x:string):string; 
begin 
SetExpr(x); 
Convertir; 
if length(traduc)=0 then 
showmessage('expression vide’); 
result:=Traduc 
end; 


end. 


unit UClassLIFO; 
{une implantation en Delphi du TAD Pile LIFO 
à partir de la classe tlist } 


interface 


uses classes; 


type 

TPile = class(TList) 

public 
constructor Create; 
function Est_Vide : boolean; 
procedure Empiler (elt: char); 
procedure Depiler (var elt: char); 
function premier : char; 

/ procedure AffichePile; 

end; 


implementation 


constructor TPile.Create; 
begin 

inherited Create; 

end; 


function TPile.Est_Vide: boolean; 


begin 

if count = 0 then 
result := true 
else 
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result := false 
end; 


procedure TPile.Empiler (elt: char); 
begin 

self.Capacity := Count; 
Add(TObject(elt)) 

end; 


procedure TPile.Depiler (var elt: char); 
begin 
if not Est_Vide then 
begin 
elt:=char(Last); 
self.Delete(count-1); 
self.Pack; 
self.Capacity := Count; 
end 
// else 
{! writelin(' désolé pile vide !'); 
end; 


function TPile.premier : char; 
begin 
if not est_vide then 
result:=char(last) 
else 
result:='@"'; 
end; 


{ 
procedure TPile.AffichePile; 
var i:integer; 
begin 
if not Est_Vide then 
begin 
writeln('Pile contenant : ',count,' éléments. '); 
for i:=0 to count-1 do 
write(char(ltems{i])); 
writeln 
end 
else 
writeln('pile vide.'); 
end; 
} 


end. 


unit UClassParentPostFixe; 


{implantation en Delphi d'un convertisseur d'expression parenthésée correcte en postfixé avec pile lifo  } 


interface 


uses UClassLIFO, Classes, StdCtris,SysUtils, Forms,ExtCtrls; 
type 
{ 


opérandes possibles: a,b,..,7,0, 1,...,9 
opérateurs possibles: +,-,/,*,\! 

+,-: prior = 1 

LPÉNOT = 
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!: prior = 4 
} 
TConvertPostFixe = class(TComponent) 
private 


FonEndTraduction: TNotifyEvent; 
dureefinie:boolean; 

Farret:boolean; 

FTimer:TTimer; /agrégation forte 
FHifo:TListBox; / référence vers un TListBox : agrégation faible 
PhraseEncours:Tedit; / référence vers un TEdit : agrégation faible 
Pile: TPile; 

Phrase,Expr,Traduc:string; 
CarLu,car,sentinel:char; 

NumCar:integer; 

Operandes,Operateurs:set of char; 
Prior:array{[char] of 1.4; 

FinTraduc:Boolean; 

procedure Initialisations; 

procedure CarSuivant; 

procedure SetExpr(x:string); 

procedure Convertir; 

procedure Temporiser; 

function Gettempo:integer; 

procedure Settempo(x:integer); 

procedure OnTimerFTimer(Sender:TObject); 
procedure Setarret(x:boolean); 

function Getarret:boolean; 
public 


constructor Create(lifo:TListBox;listc: TEdit);reintroduce;overload; 
constructor Create(lifo:TListBox;listc:TEdit;temps:integer);reintroduce;overload; 


destructor Destroy;override; 

function GetExpr:string; 

function GetTraduc(x:string):string; 

published 

property tempo:integer read Gettempo write Settempo; 
property arret:boolean read Getarret write Setarret; 


property OnEndTraduction:TNotifyEvent read FonEndTraduction write FonEndTraduction; 


end; 


implementation 
uses Dialogs; 


// Private ---> 

procedure TConvertPostFixe.fnitialisations; 
begin 

Prior['+]:=1; 

Prior['-']:=1; 

Prior[/]:=2; 

Prior['*"]|:=2; 

Prior['"]:=3; 

Prior['!"]:=4; 
Operandes:=['a".'z']+[0".9; 
Operateurs:=["+",-",7, "FAT; 
NumCar:=0; 

Traduc:="; 

FinTraduc:=false; 
Farret:=false; 
end; 
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procedure TConvertPostFixe.CarSuivant; 

begin 

NumCar:=NumCar+1; 

CarLu:=Phrase[NumCar]; 
PhraseEncours.Text:=copy(Phrase, NumCar,length(Phrase)); 
if not Farret then 


Temporiser; / temporisation pour animation 
end; 


procedure TConvertPostFixe.SetExpr(x:string); 
begin 

Traduc:="; 

Expr:=x; 

Phrase:=Expr+sentinel; 
end; 


procedure TConvertPostFixe.Convertir; 
begin 
CarSuivant; 
while not FinTraduc do 
begin 
if CarLu in Operandes then 
begin 
Traduc:=Traduc+CarLu; 
CarSuivant; 
end 
else 
if carlu="(" then 
begin 
Pile.Empiler(CarLu); 
CarSuivant; 
end 
else 
if carlu in operateurs then 
begin 
if (Pile.premier="(')or(Pile.Est_Vide) then 
begin 
Pile.Empiler(CarLu); 
CarSuivant; 
end 
else {sommet de pile est un opérateur} 
if Prior[CarLu] > Prior[Pile.premier] then 
begin 
Pile.Empiler(CarLu); 
CarSuivant; 
end 
else 
begin 
Traduc:=Traduc+Pile.premier; 
Pile. Depiler(car); 
end 
end 
else 
if carlu=")' then 
begin 
if Pile.premier in Operateurs then 
begin 
Traduc:=Traduc+Pile.premier; 
Pile.Depiler(car); 
end 
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else {sommet de pile = "("} 
begin 
Pile.Depiler(car); 
CarSuivant; 
end 
end 
else 
if carlu = sentinel then 
begin 
if not Pile.Est_Vide then 
begin 
Traduc:=Traduc+Pile.premier; 
Pile.Depiler(car); 
end 
else 
begin 
FinTraduc:=true; 
if Assigned(FOnEndTraduction)then 


FOnEndTraduction(self) 

end 

end 
end; 
end; 
// Public ---> 
constructor TConvertPostFixe.Create(lifo:TListBox;listc:TEdit); 
begin 


sentinel:="#"; 

Flifo:=lifo; 

dureefinie:=true; 
PhraseEncours:= listc; 
Pile:=TPile.Create(lifo); 
FTimer:=TTimer.Create(self); 
FTimer.Ïnterval:=1000; 
FTimer.Enabled:=false; 
FTimer.OnTimer:=OnTimerFTimer; 
Initialisations; 

end; 


constructor TConvertPostFixe.Create(lifo: TListBox:;listc: TEdit;temps:integer); 
begin 

sentinel:="#"; 

Flifo:=lifo; 

dureefinie:=true; 

PhraseEncours:= listc; 
Pile:=TPile.Create(lifo); 
FTimer:=TTimer.Create(self); 
FTimer.Interval:=temps; 
FTimer.Enabled:=false; 
FTimer.OnTimer:=OnTimerFTimer; 
Initialisations; 

end; 


destructor TConvertPostFixe.Destroy; 
begin 

Pile. Free; 

Pile:=nil; 

inherited; 

end; 
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function TConvertPostFixe.GetExpr:string; 
begin 

result:= Expr 

end; 


function TConvertPostFixe.GetTraduc(x:string):string; 
begin 
Initialisations; 
SetExpr(x); 
Convertir; 
if length(traduc)=0 then 
showmessage('expression vide’); 
result:=Traduc 
end; 


procedure TConvertPostFixe.Temporiser; 
begin 

dureefinie:=false; 

FTimer.Enabled:=true; 


repeat 
Application.ProcessMessages 
Until (ftimer.enabled=false)or(application.terminated); 
Flifo.Repaint; 

PhraseEncours.Repaint; 

end; 


function TConvertPostFixe.Gettempo: integer; 
begin 

result:=FTimer.Interval 

end; 


procedure TConvertPostFixe.Settempo(x: integer); 
begin 
if x>0 then 
FTimer.Interval:=x 
else 
FTimer.Interval:=100 
end; 


procedure TConvertPostFixe.OnTimerFTimer(Sender: TObject); 
begin 
if dureefinie=true then 
FTimer.Enabled:=false 
else 
dureefinie:=true 
end; 


function TConvertPostFixe.Getarret: boolean; 
begin 

result:=Farret; 

end; 


procedure TConvertPostFixe.Setarret(x: boolean); 
begin 

Farret:=x; 

FTimer.Enabled:=not x; 

end; 


end. 
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Chapitre 7 : Communication homme- 
machine 


7.1. Les interfaces de communication logiciel/utilisateur 


Objets d'E/S 

temps d'attente 
pilotage 
enchaînement 
résistance aux erreurs 


7.2. Grammaire pour analyser des phrases 


e Un retour sur les grammaires 
e Grammaire LL(1) pour analyse déterministe 
e Analyser des phrases 


7.3. Interface et pilotage en mini-français 


e Un peu plus loin avec l'interaction et le pilotage 
+ Une méthode de construction 


7.4. Projet d'IHM : enquête fumeurs 


e Construction d'une borne interactive 
e Mode saisie et plans d'actions 
e Reste du logiciel 


7.5. Utilisation des bases de données 


Introduction et généralités 

Le modèle de données relationnel 

Principes fondamentaux d'une algèbre relationnelle 
SQL et algèbre relationnelle 

Exemples de communication de Delphi avec une BD 
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Chapitre 7.1 interfaces de communication 
logiciel / utilisateur 


Plan du chapitre: È 


Introduction 


Interface homme-machine les concepts : 


Les objets d’entrée-sortie 

Les temps d’attente 

Le pilotage de l’utilisateur 

Les types d’interaction 
L’enchaînement des opérations 
La résistance aux erreurs 


© © © © © D 
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Introduction 


Nous énumérons quelques principes utiles à l’élaboration d’une interface associée étroitement 
à la programmation événementielle. Le lecteur qui connaît le sujet peut passer au chapitre 
suivant. 

Notre point de vue reste celui du pédagogue et non pas du spécialiste en ergonomie ou en 
psychologie cognitive qui sont deux éléments essentiels dans la conception d’une interface 
homme-machine (IHM). Nous nous efforcerons d’utiliser les principes généraux des IHM en 
les mettant à la portée d’un débutant avec un double objectif : 


a Faire écrire des programmes interactifs. Ce qui signifie que le programme doit 
communiquer avec l’utilisateur qui reste l’acteur privilégié de la communication. Les 
programmes sont Windows-like et nous nous servons du RAD visuel Delphi pour les 
développer. Une partie de la spécification des programmes s’effectue avec des objets 
graphiques représentant des classes(programmation objet visuelle). 


a Le programmeur peut découpler pendant la conception la programmation de son interface 
de la programmation des tâches internes de son logiciel (pour nous généralement ce sont 
des algorithmes ou des scénarios objets). 


Nous nous efforçons aussi de ne proposer que des outils pratiques qui sont à notre portée et 
utilisables rapidement avec un système de développement RAD visuel comme Delphi. 


Interface homme-machine, les concepts 


Les spécialistes en ergonomie conceptualisent une IHM en six concepts : 
a les objets d’entrée-sortie, 
les temps d’attente (temps de réponse aux sollicitations), 
le pilotage de l’utilisateur dans l’interface, 
les types d’interaction (langage,etc..) , 
l’enchaînement des opérations, 
la résistance aux erreurs (ou robustesse qui est la qualité qu'un logiciel à fonctionner 
même dans des conditions anormales). 


fa} fo fo) (a 


Un principe général provenant des psycho-linguistes guide notre programmeur dans la 
complexité informationnelle : la mémoire rapide d’un humain ne peut être sollicitée que par 
un nombre limité de concepts différents en même temps (nombre compris entre sept et neuf). 
Développons un peu plus chacun des six concepts composants une interface. 


Les objets d’entrée-sortie ° = © 


Une IHM présente à l’utilisateur un éventail d’informations qui sont de deux ordres : des 
commandes entraînant des actions internes sur l’IHM et des données présentées totalement ou 
partiellement selon l’état de l’IHM. 
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Les commandes participent à la " saisie de l’intention d’action" de l’utilisateur, elles sont 
matérialisées dans le dialogue par des objets d’entrée de l’information (boîtes de saisie, 
boutons, menus etc….). 


Voici avec un RAD visuel comme Delphi, des objets visuels associés aux objets d’entrée de 
l'information , ils sont très proches visuellement des objets que l'on trouve dans d'autres RAD 
visuels, car en fait ce sont des surcouches logiciels de contrôles de base du système 
d'exploitation (qui est lui-même fenêtré et se présente sous forme d'une IHM dénommée 
bureau électronique). 


TButton une boîte de saisie mono-ligne 
un bouton 


Entrer du texte oi 
Charger du texte Pa 


Un menu une boîte de saisie multi-ligne 


Les données sont présentées à un instant précis du dialogue à travers des objets de sortie de 
l’information (boîte d’édition monoligne, multiligne, tableaux, graphiques, images, sons 
etc). 


Ci-dessous quelques objets visuels associés à des objets de sortie de l’information : 


TListBox 
- 
trois 
TStringGrid F quatre 
ÉN _ 


=. un 


un TstringGrid (tableau) : un.2 


& trois 


un Timage(image jpg, png, bm ,ico,.…) 


un Touline (arbre) 


Les temps d’attente : =? © 


Concept . 


Sur cette question, une approche psychologique est la seule réponse possible, car l’impression 
d’attente ne dépend que de celui qui attend selon son degré de patience. Toutefois, puisque 
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nous avons parlé de la mémoire à court terme (mémoire rapide), nous pouvons nous baser sur 
les temps de persistance généralement admis (environ 5 secondes). 


Nous considérerons qu’en première approximation, si le délai d’attente est : 

a inférieur à environ une seconde la réponse est quasi-instantanée, 

a compris entre une seconde et cinq secondes il y a attente, toutefois la mémoire rapide de 
l’utilisateur contient encore la finalité de l’opération en cours. 

a lorsque l’on dépasse la capacité de mémorisation rapide de l’utilisateur alors il faut 
soutenir l’attention de l’utilisateur en lui envoyant des informations sur le déroulement de 
l’opération en cours (on peut utiliser pour cela par exemple des barres de défilement, des 
jauges, des boîtes de dialogue, etc...) 


Exemples de quelques classes d’objets visuels de gestion du délai d'attente : 


[LILI CV JON JO PR OR TNT TOR TRRRT PART OO à 
TProgressBar TTrackBar 


| Informations : Phase 3 de découpage du fichier. 2 


TStatusBar (avec deux panneaux ici) 


Le pilotage de l'utilisateur : s © ? | ee 


Nous ne cherchons pas à explorer les différentes méthodes utilisables pour piloter un 
utilisateur dans sa navigation dans une interface. Nous adoptons plutôt la position du 
concepteur de logiciel qui admet que le futur utilisateur ne se servira de son logiciel que d’une 
façon épisodique. Il n’est donc pas question de demander à l’utilisateur de connaître en 
permanence toutes les fonctionnalités du logiciel. 


En outre, il ne faut pas non plus submerger l’utilisateur de conseils de guides et d’aides à 
profusion, car ils risqueraient de le détourner de la finalité du logiciel. Nous préférons adopter 
une ligne moyenne qui consiste à fournir de petites aides rapides contextuelles (au moment où 
l’utilisateur en a besoin) et une aide en ligne générale qu’il pourra consulter s’il le souhaite. 
Ce qui revient à dire que l’on accepte deux niveaux de navigation dans un logiciel : 


e le niveau de surface permettant de réagir aux principales situations, 
e le niveau approfondi qui permet l’utilisation plus complète du logiciel. 


Il faut admettre que le niveau de surface est celui qui restera le plus employé (l’exemple d’un 
logiciel de traitement de texte courant du commerce montre qu’au maximum 30% des 
fonctionnalités du produit sont utilisées par plus de 90% des utilisateurs). 


Pour permettre un pilotage plus efficace on peut établir à l’avance un graphe d’actions 


possibles du futur utilisateur (nous nous servirons du graphe événementiel) et ensuite diriger 
l'utilisateur dans ce graphe en matérialisant (masquage ou affichage) les actions qui sont 
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réalisables. En application des notions acquises dans les chapitres précédents, nous utiliserons 
un pilotage dirigé par la syntaxe comme exemple. 


7 Concept 
Les types d’interaction ° ? © & . 


Le tout premier genre d’interaction entre l’utilisateur et un logiciel est apparu sur les premiers 
systèmes d’exploitation sous la forme d’un langage de commande. L’utilisateur dispose d’une 
famille de commandes qu’il est censé connaître, le logiciel étant doté d’une interface interne 
(l'interpréteur de cette famille de commandes). Dès que l’utilisateur tape textuellement une 
commande (exemple MS-DOS " dir c: /w "), le système l’interprète (dans l’exemple : lister 
en prenant toutes les colonnes d’écran, les bibliothèques et les fichiers du disque C). 


Nous adoptons comme mode d’interaction entre un utilisateur et un logiciel, une extension 
plus moderne de ce genre de dialogue, en y ajoutant, en privilégiant, la notion d’objets visuels 
permettant d’effectuer des commandes par actions et non plus seulement par syntaxe textuelle 
pure. 

Nous construisons donc une interface tout d’abord essentiellement à partir des interactions 
événementielles, puis lorsque cela est utile ou nécessaire, nous pouvons ajouter un 
interpréteur de langage (nous pouvons par exemple utiliser des automates d’états finis pour la 
reconnaissance). 


L’enchaînement des opérations ° ? © 


Nous savons que nous travaillons sur des machines de Von Neumann, donc séquentielles, les 
opérations internes s’effectuant selon un ordre unique sur lequel l’utilisateur n’a aucune prise. 
L'utilisateur est censé pouvoir agir d’une manière " aléatoire ". Afin de simuler une certaine 
liberté d’action de l’utilisateur nous lui ferons parcourir un graphe événementiel prévu par le 
programmeur. Il y a donc contradiction entre la rigidité séquentielle imposée par la machine et 
la liberté d’action que l’on souhaite accorder à l’utilisateur. Ce problème est déjà présent dans 
un système d’exploitation et il relève de la notion de gestion des interruptions. 


Nous pouvons trouver un compromis raisonnable dans le fait de découper les tâches internes 
en tâches séquentielles minimales ininterruptibles et en tâches interruptibles. 


Les interruptions consisteront en actions potentielles de l’utilisateur sur la tâche en cours afin 
de : 

interrompre le travail en cours, 

quitter définitivement le logiciel, 

interroger un objet de sortie, 

lancer une commande exploratoire … 


Û D CD 


Il faut donc qu’existe dans le système de développement du logiciel, un mécanisme qui 
permette de " demander la main au système " sans arrêter ni bloquer le reste de l’interface, 
ceci pendant le déroulement d’une action répétitive et longue. Lorsque l’interface a la main, 
l'utilisateur peut alors interrompre, quitter, interroger. 
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Ce mécanisme est disponible dans les RAD visuels pédagogiques (Delphi, Visual Basic, 
Visual C#), nous verrons comment l’implanter. Terminons ce tour d’horizon, par le dernier 
concept de base d’une interface : sa capacité à absorber certains dysfonctionnements. 


La résistance aux erreurs < ? © à 


Il faut en effet employer une méthode de programmation défensive afin de protéger le logiciel 
contre des erreurs comme par exemple des erreurs de manipulation de la part de l’utilisateur. 
Nous utilisons plusieurs outils qui concourent à la robustesse de notre logiciel. La protection 
est donc située à plusieurs niveaux. 


1°) Une protection est apportée par le graphe événementiel qui n’autorise que certaines 
actions (activation-désactivation), matérialisé par un objet tel qu’un menu : 


ET L. 


l'item "taper un fichier "n'est pas activable —— ÿs were 


2°) Une protection est apportée par le filtrage des données (on peut utiliser par exemple des 
logiciels d'automates de reconnaissance de la syntaxe des données). 


3°) Un autre niveau de protection est apporté par les composants visuels utilisés qui sont 
sécurisés dans le RAD à l’origine. Par exemple la méthode LoadFromfile de Delphi qui 
permet le chargement d’un fichier dans un composant réagit d’une manière sécuritaire (c’est à 
dire rien ne se produit)lorsqu’on lui fournit un chemin erroné ou que le fichier n’existe pas. 


4°) Un niveau de robustesse est apporté en Delphi par une utilisation des exceptions 
(semblable à Ada ou à C++) autorisant le détournement du code afin de traiter une situation 
interne anormale (dépassement de capacité d’un calcul, transtypage de données non conforme 
etc). Le programmeur peut donc prévoir les incidents possibles et construire des 
gestionnaires d’exceptions. 


Les bases de l'informatique - programmation - (:6:. 05.09.2004 ) page 646 


Chapitre 7.2 grammaire pour analyser des 
phrases 


Plan du chapitre: Ë 


1. Un retour sur les grammaires 


1.1 Dérivation à droite et à gauche 

1.2 Ensembles First et Init 

1.3 Ensemble Follow 

1.4 Calcul des Follows à partir des First 

1.5 Calcul pour une grammaire arithmétique 

1.6 Calcul pour une grammaire du mini-français 


2. Grammaire LL(1) pour analyse déterministe 
2.1 Une condition pratique d’analysabilité LL(1) 
2.2 Méthode pratique de vérification 

3. Analyser des phrases 


2.3 Une grammaire GF2 de type LL(1) du mini-français 
2.4 Schémas d’algorithmes associés à Gr2 
2.5 Code Delphi associé aux blocs dans Gp 
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Bien qu’il ne soit pas dans les objectifs de cet ouvrage de systématiser les méthodes de 
reconnaissance, nous abordons le sujet sur des cas et des exemples particuliers. L’attitude de 
systématisation méthodologique et pratique adoptée devrait fournir matière à réflexion et 
profiter à l’étudiant, nous nous servirons de ces outils pour améliorer ses IHM en particulier 
dans l'analyse des interactions avec l'utilisateur. 


1. Un retour sur les grammaires 


L’expérience a montré qu’un des cas particuliers abordables en initiation est celui où une C- 
grammaire G possède la propriété d’être analysable par analyse LL(1). Ces analyseurs sont 
plus simples à construire, et surtout il est possible de systématiser leur construction. Il 
apparaît que beaucoup de grammaires sont LL(1) et qu’un très grand nombre d’exemples du 
niveau étudiant débutant peuvent être décrits par une grammaire LL(1). C’est pourquoi nous 
fournirons plus loin un exemple de génération manuelle d’un petit analyseur de mots du genre 
LL(1) à partir d’un TAD), ainsi qu’une définition d’une grammaire LL(1). 


1.1 Dérivation à droite et à gauche 


Nous dirons par définition que x se dérive le plus à gauche en y et l’on écrira : 


— 3 ae(Vi tb Vr)* 
x PE y si et seulement si : 1r; : À avec À € WW 
si x=A@ alors y=fa 


Nous dirons par définition que x se dérive le plus à droite en y et l’on écrira : 


=. 7 ae(Vx LU Vr)* 
x PA y si et seulement si : Tr; : À avec À € VW 


si x=0AÀ alors y=af 


Comme pour la dérivation, on définit la fermeture transitive de chacune de ces deux relations 


binaires. Nous les notons : 
— — 
x Pâx yet x PE* y. 


1.2 Ensembles First et Init 


Nous allons définir quelques ensembles de symboles utiles à une reconnaissance des mots 
dans une grammaire G, G = (Vx, Vr,S,R). 
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Notations : Les ensembles First et leurs propriétés 
Soient (x,y) € (Vy L Vr)**, À € V\ (on suppose que À possède dans le 
cas général plusieurs expansions À — @1 | &2 | … | & , le symbole S est 


l'axiome de la grammaire G. Nous notons : 
es 


First(x) ={a € Vr / x PE* ay} 


Autrement dit pour l'élément a € First(x) nous avons : 


a est un symbole du vocabulaire terminal V+ qui commence toute chaîne qui se dérive 
de x (e inclus), comme dans x = * af. 


Enonçons deux propriétés qui vont servir en pratique. 


Propriété n°1.2.1 : 
si à e Vr , First (ax) = {a} 


Propriété n°1.2.2 : 


V(xy) € (VnU Vn)*° First(xy) = First(x), 
sauf dans le cas où x = *e, on a alors : 
First(xy) = First(x) L First(y) 


Définition des ensembles Initiaux : 


# 
U 

Init (A) = £=1 First (ax) 

où : o est l'une des expansions de À — o1 | &2 |. | on 


convention : Si À € Vr, Init (A) = {A} 


Propriété n°1.2.3 : 


Dans le cas où il n'y a qu'une expansion pour A : 
A @ 
Nous avons : Init (A) = First (@) 


Ces ensembles Init (A) permettent de rassembler les symboles terminaux qui se trouvent au 
début de tout mot dérivé par chacune des expansions de A (A — ai | … | &,). Nous traitons 
un exemple complet plus loin. 
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1.3 Ensemble Follow 


Seulement dans le cas où À € VX, on calcule l’ensemble suivant : 


Follow(A)={aeVr /S = *aAx (où à e Vr,eta € Init (x)) } 


Cet ensemble correspond aux symboles qui suivent les mots dérivés de A dans la grammaire. 
Ce sont les éléments terminaux à € Vr apparaissant immédiatement à droite de A dans toutes 
les chaînes contenant À, comme dans S = aAaf 


Grâce aux ensembles Init et Follow, nous pouvons dire que nous disposons de deux familles 
de symboles qui encadrent les mots de la grammaire G. Cette remarque soulève le voile sur 
une stratégie pratique de reconnaissance des mots engendrés par une grammaire. 


Enonçons une propriété calculatoire pratique, des Follow qui nous servira: 


propriété n°1.3.1 : 

si ADmaB,AeVKBeVir,aue Vr alors 
Follow (A) € Follow (B) 

fsi 


1.4 Calcul des Follows à partir des First 

Soit G une C-grammaire, G = (Vx,Vr,S.R). 

Calcul des Follow(A) où À € VX : 

Les règles contenant A en partie droite peuvent avoir d’une manière générale deux formes : 


B — a Af ou B — aA (B € Vx). 


Pour toute règle de la forme B — aAf , (sie £# First(B)) 


Follow ( A ) = Follow ( A ) L First (B) 


Pour toute règle de la forme B — aAf ,(sie € First (B)) 
et Pour toute règle de la forme B — aA 


Follow ( A ) = Follow ( A) Follow(B) 


Exemple de calcul sur une C-grammaire G : 


{a, b} 
{A, S} 
axiome: S 
Règles : 


CR 
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: S — aAS 
: S — D 
: A = a 
: À — bSA 


& Ü N° HA 


On suppose en outre, que tous les mots de G se termineront par le symbole spécial ‘#’ de fin de mot. 


Calcul de Init(S) 


Il y a 2 expansions de S (Règle 1 et Règle 2) 


Init(S) = First (aAS) L First (b) Donc Init(S) = {a} L {b} 
nous avons : First (b) = {b} 
nous avons : First (aAS) = {a} 


Calcul de Init(A) 


Il y a 2 expansions de A (Règle 3 et Règle 4) 


Init (A) = First (a) L First (bSA) Donc : Init (A) = {a} LU {b} 
nous avons : First (a) = {a} 
nous avons : First (bSA) = {b} 


De ces deux calculs nous concluons que : Init (S) = Init (A) = {a,b} 


Passons au calcul des Follow à l’aide des Init que nous venons d'évaluer. 


Calcul de Follow(S) 


S est l'axiome de la grammaire d'après la définition: 
Follow (S) = {#} D'où : Follow(S)={#,a,b} 
Dans la règle 4 ( A — bSA ) d'après la définition: 
Follow (S) = Follow (S) L Init (A) 


Calcul de Follow(A) 


Initialisation de Follow (A) = © 
Dans la règle 4 (S — aAS) d'après la définition : D'où : Follow(A)={a,b} 
Follow (A) = Init (S) 


Résultats obtenus 


los à Init (S) = Init (A) = {a,b} 
d : $ S ga8 Follow(S)={#,a,b} 
2:S—b Follow(A)={a,b} 
3 A — a 

4 A — bSA 
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En langage pratique nous pouvons dire que toute chaîne qui dérive de À comme de S commence soit par un 
symbole a ou par un symbole b, toute chaîne qui suit un mot dérivé de À commence par un symbole a ou par un 
symbole b, de même , enfin toute chaîne qui suit un mot dérivé de S commence par un symbole a ou par un 


symbole b ou un symbole #. 


1.5 Calcul pour une grammaire arithmétique 


Prenons un exemple plus pratique en utilisant une grammaire G:;, ambiguë des expressions 


arithmétiques, déjà proposée auparavant : 


Gaxp = (VN, Vr,Axiome,Règles) 
Vr={0,..,9,+,-,/,*%,),(} 

Vv={ ( Expr ),( Nbr ),( Cte ),( Oper }) } 
Axiome : ( Expr ) 

Règles : 

1:€ Expr )—( Nbr )|((Expr ))|(Expr )( Oper )( Expr ) 
2:{ Nbr }—{ Cte }|[( Cte }{ Nbr ) 
3:4 
AC 


Calcul des ensembles Init 


Provenant de la règle n°1 


(Expr) — (Nbr) | ({Expr)) | (Expr) (Oper) (Expr) 


D'après la définition des Init : 
Init (Expr) = First (Nbr) L First ((Expr)) L First(Expr Oper Expr) 


D'après la propriété 1.2.1 [ À = ( Expr) est de la forme À = aB où a =(] donc: 
First ((Expr) }={(*} 


Comme £ ne dérive pas de Expr , nous avons : 


First (Expr Oper Expr) = First (Expr) 


Comme Nbr € VX possède deux expansions, son First n'est pas calculable immédiatement, il faut 
calculer son ensemble Init (Nbr). 


Premier résultat obtenu 


Init (Expr) = Init (Nbr) U{(} 
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Provenant de la règle n°2 


<Nbr> — <Cte> | <Cte> <Nbr> 


D'après la définition des Init : 


Init (Nbr) = First (Cte) L First(Cte Nbr) 


D'après la propriété 1.2.2: 
First(Cte Nbr) = First (Cte) L First(Nbr) 


Comme Cte e VX possède plusieurs expansions, son First n'est pas calculable immédiatement, il 
faut calculer son ensemble Init (Cte). 


second résultat obtenu 


Init (Nbr) = Init (Cte) 


Nous terminons les calculs car il ne reste que des règles terminales ce qui donne des calculs 
de First immédiats. 


Provenant de la règle terminale n°3 


<Cte> —0[1..19 


D'après la définition des Init : 


Init (Cte) = First (0) LU … U First(9) = { 0,1, 9} 


troisième résultat obtenu 


Init (Cte) = { 0,1, ...,9 } 


Provenant de la règle terminale n°4 


(Oper) —+|-1*1/ 


D'après la définition des Init : 
Init (Oper) = First (+) L First(-) L First(*) L First(/) = { +,-,*,/} 


quatrième résultat obtenu 


Init (Oper) = { +,-,*,/} 


En rassemblant les résultats calculés nous obtenons les Init de chaque élément de Vx de la grammaire 
Gap des expressions arithmétiques 


Rappellons la signification pratique par exemple de 
Init (Oper) = {+,-,*,/ } l'ensemble Init (Expr) = { 0,1,...,9,( }: 
Init (Cte) = { 0,1,...,9 } 
Init (Nbr) = { 0,1,...,9 } Toute expression dérivant de Expr commence par un 
: chiffre de 0 à 9 ou bien commence par une parenthèse 
Init (Expr) = { 0,1,...,9,( } ae 
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Calcul des ensembles Follow 


Calcul de Follow (Expr) 


Nous devons chercher dans toutes les règles de la grammaire celles qui contiennent en partie 
droite le non terminal Expr. Lorsque dans une règle de la forme " À — a<Expr>B ", Expr 
est en partie droite, en appliquant la définition, nous obtenons le fait que Follow (Expr) 
contient le First(B). Nous procédons donc ici à un calcul incrémental de l’ensemble Follow 
(Expr) par adjonctions successives des First qui le composent. 


Provenant de la règle n°1 


Les 2 premières expansions : 

(Expr) — (Nbr) 

(Expr) — ((Expr) ) 

Init (‘)‘) = First (‘)’) € Follow (Expr) d'après la définition 


La troisième expansion : 
(Expr) — (Expr) (Oper) (Expr) 


Init (Oper) € Follow (Expr) d'après la définition 
Comme il n’y a pas dans G:;, d’autres règles contenant le symbole Expr en partie 


droite, donc le calcul du Follow (Expr) est terminé , Follow (Expr) ne contient que 
les ensembles Init (‘)‘) et Init (Oper) : 


Follow (Expr) = Init (‘)‘) L Init (Oper) 


Premier Follow obtenu 


Follow (Expr)={+,-,*,/,)} 


Le calcul est identique pour tous les autres follow 


Calcul de Follow (Nbr) (examen de toutes les parties droites contenant Nbr) 


Provenant de la règle n°1 


(Expr) — (Nbr) 


D'après la propriété 1.3.1 : 
Follow (Expr) © Follow (Nbr) 


Provenant de la règle n°2 


€ Nbr } —{Cte) (Nbr) 


rien de plus n’est ajouté. 
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second Follow obtenu 


Il n’y a pas d’autres règles contenant le symbole Nbr en partie droite, donc le calcul 
du Follow (Nbr) est terminé : 


Follow (Nbr) = Follow (Expr) = {+,-,*,/,)} 


Calcul de Follow (Cte) (examen de toutes les parties droites contenant Cte) 


Ù 


Provenant de la règle n°2 


€ Nbr } —(Cte) (Nbr) 


D'après la propriété 1.3.1 : 
Follow (Nbr) € Follow (Cte) 


D'après la définition : 


Init (Nbr) € Follow (Cte) 


troisième Follow obtenu 


Il n’y a pas d’autres règles contenant le symbole Cte en partie droite, donc le calcul 
du Follow (Cte) est terminé : 


Follow (Cte) = Follow (Nbr) © Init (Nbr) = {+,-,*,/,),0,1,..,9} 


Calcul de Follow (Oper) (examen de toutes les parties droites contenant Oper) 


Provenant de la règle n°1 


€ Nbr } —{Cte) (Nbr) 


D'après la définition : 


Init (Expr) € Follow (Oper) 


quatrième Follow obtenu 


Il n’y a pas d’autres règles contenant le symbole Oper en partie droite, donc le calcul 
du Follow (Oper) est terminé : Follow(Oper)= Init(Expr)= { 0,1,...,9,( } 


Follow (Oper) = Init (Expr)= {0,1,...,9,( } 
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Récapitulons les Init et les Follow de chaque élément de VX de la grammaire Gex 


Rappellons la signification pratique par 
exemple des ensembles Follow. 


Init (Expr) = { 0,1,...,9,( } Follow (Expr): 
Init (Nbr) = { 0,1,...,9 } Tout mot suivant une expression dérivant de 
Init (Cte) = { 0,1,...,9 } Expr commence par +, -, .. / ; ). 
Init (Oper)={+,-,*,/ } 
Follow (Cte): 
Tout mot suivant une constante dérivant de Cte 
Follow (Expr) ={+,-,*,/,)} commence par +, -, *, /, ), 0, 1, ... ,9. 
Follow (Nbr) = {+,-,*,/,)} 
Follow (Cte) = {+, -, *,/,),0,1,...,9} | Follow (Oper}: 
Follow (Oper) = {0,1,...,9,( } Tout mot suivant un opérateur dérivant de 
Oper commence par 0 ,1,...,9,(. 


Nous pouvons savoir ainsi en consultant ces ensembles si les expressions suivantes sont 
correctes ou incorrectes dans Gexp : 


12(5+3) est incorrecte car la parenthèse ouvrante qui est le First de (5+3) n'est pas 
dans le Follow du nombre 12 (il n'y a pas de parenthèse ouvrante après un nombre). 


12*)+2 est incorrecte car la parenthèse fermante qui est le First de }+2 n'est pas dans le 
Follow de l'opérateur * (il n'y a pas de parenthèse fermante après un opérateur). 


1.6 Calcul pour une grammaire du mini-français 


Soit Gr une grammaire déjà étudiée au chapitre 6 d’un mini-français. 

G = (VX, Vr,S,R) 

Vr ={le, un, chat, chien, aime, poursuit, malicieusement, 
joyeusement, gentil, noir, blanc, beau, " . '} 

Vy = { (phrase), (GN), (GV), (Art), (Nom), (Adj), (Adv), (verbe) } 

Axiome : (phrase ) 

Règles : 

: ( phrase }—( GN ){ GV }{ GN ). 

: ( GN)—(Art )( Adj ){ Nom) 

GN }—( Art )}({ Nom )( Adj ) 

GV }—({ verbe ) | { verbe }({ Adv ) 

Art )— le | un 

Nom }— chien | chat 

verbe )— aime | poursuit 

Adj }— blanc | noir | gentil | beau 


KO NOM IN ON OI HN CI NO ES 
RAR ARR MR TS 


Adv )— malicieusement | joyeusement 
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Nous livrons ci-après le calcul des ensembles Init et Follow sans le détailler car il s’agit 
l’application à cet exemple de la même stratégie utilisée dans le cas de la grammaire 
précédente. Il est conseillé au lecteur de refaire le calcul lui-même à titre d’entraînement. 


Indications sur le calcul des ensembles Init : 

Init (Phrase) = Init (GN) 

Init (GN) = Init (Art) 

Init (GV) = Init (Verbe) 

Init (Art) = {le,un} 

Init (Nom) = {chat,chien} 

Init (Verbe) = { aime, poursuit } 

Init (Adj) = { gentil, noir, blanc, beau } 

Init (Adv) = { malicieusement, joyeusement } 


Récapitulatif : 


Init (Phrase) = {le,un} 

Init (GN) = {le,un} 

Init (GV) = { aime, poursuit } 

Init (Art) = {le,un} 

Init (Nom) = {chat,chien} 

Init (Verbe) = { aime, poursuit } 

Init (Adj) = { gentil, noir, blanc, beau } 

Init (Adv) = { malicieusement, joyeusement } 


Indications sur le calcul des ensembles Follow : 

Follow(Phrase) = {#} fin de chaîne 

Follow(GN) = Init(GV) L Init(‘.”) à partir de règle.1 
Follow(GV) = Init(GN) à partir de règle.l 

Follow(Art) = Init(Adj) Ÿ Init(Nom) à partir de règles.2 et 3 
Follow(Nom) = Follow(GN) L Init(Adj) à partir de règles.2 et 3 
Follow(Verbe) = Follow(GV) L Init(Adv) à partir de règle 4 
Follow(Adj) = Follow(GN) L Init(Nom) à partir de règles.2 et 3 
Follow(Adv) = Follow(GV) LU Init(Adj) à partir de règle 4 


Récapitulatif 


de 


Follow (Phrase) = {#} 

Follow (GN) = { aime, poursuit, ‘.” } 

Follow (GV) = {le,un} 

Follow (Art) = { gentil, noir, blanc, beau, chat, chien } 
Follow (Nom) = { gentil, noir, blanc, beau, aime, poursuit } 
Follow (Verbe) = { le, un, malicieusement, joyeusement } 
Follow (Adj) = { aime, poursuit, chat, chien, ”.” } 

Follow (Adv) = {le,un} 
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Voyons maintenant comment nous pouvons utiliser pratiquement ces ensembles Follow et Init 
(ou First) et dans quel cadre s’en servir. Le support de stratégie se dénomme l’analyse LL(1). 


Nous décortiquons dans le paragraphe suivant un exemple pratique complet en soulignant les 
aspects méthodologiques généraux sous-jacents. 


2. Grammaire LL(1) pour analyse déterministe 


Les ensembles Init et Follow précédemment étudiés présentent un intérêt pratique dans 
l’analyse de mots d’une C-grammaire d’un " bon type ". C’est en vue d’une construction 
ultérieure systématique du filtrage du dialogue homme-machine que nous les avons présentés. 
En outre ils pourront aussi, comme nous le verrons lorsque nous aborderons ce thème, diriger 
notre programmation par plans d’action dans le guidage d’une saisie sur une interface. Dans le 
cas de dialogue avec l’utilisateur, c’est le concepteur du logiciel qui prévoit le " genre " de 
dialogue. Donc s’il dispose d’un outil rapide d’analyse du dialogue, il pourra dans la majorité 
des cas essayer d’élaborer une grammaire analysable rapidement sans alourdir sa tâche de 
programmation. 


Nous avons choisi de présenter la technique la plus simple pour reconnaître les mots d’un 
langage dans le cas où la C-grammaire est de type LL(1). 


La stratégie générale que nous adoptons est la suivante : 


A chaque analyse du symbole en cours, il nous suffira de ” regarder "” le symbole suivant. Si la 
grammaire s’y prête (et nous allons donner les propriétés de telles grammaires), nous 
pourrons connaître à l’avance l’ensemble de tous les symboles (tous différents)pouvant se 
trouver après le symbole analysé. Chacun des symboles conduira à une branche d’analyse 
différente, le procédé est donc déterministe. 


Une bonne C-grammaire (donc de type-2)qui se prête à ce genre d’analyse est dite analysable 
par la technique LL(1) ou plus brièvement appelée grammaire LL(1). 


Nous possédons un mécanisme de construction d’analyseur de mots avec les automates 
d’états finis pour les grammaire de type-3. Le procédé LL(1) est un outil simple mais 
suffisamment intéressant pour fournir un cadre méthodique et introductif à d’autres 
développements. Avec cet outil de nombreux exemples efficaces et non triviaux peuvent être 
construits et programmés au niveau de l’initiation. 


2.1 Une condition pratique d’analysabilité LL(L) 
Nous donnons une condition nécessaire et suffisante posée comme définition pour qu’une C- 


grammaire soit LL(1). Cette CNS est un énoncé constructif qui va nous servir à vérifier 
rapidement si nous avons une grammaire LL(1) ou non. 
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CNS-LL( ): 


VA € Vy ; À — où] Oo |... 
VOUS) AN EU Tnit (Qi) 0 Init (0) 2 
Si OX —*£ alors 
Vi / i 4k , Init(i) N Follow(A) = © 
£fsi 


2.2 Méthode pratique de vérification 


Afin de savoir si une C-grammaire donnée est LL(1) et pour appliquer la CNS précédente, 
nous construisons une table regroupant toutes les informations sur les Init et les Follow de 
chaque élément du vocabulaire auxiliaire de la grammaire. 

Soient À — X1 |...| Xn toutes les expansions de A, À € V\. Nous construisons le tableau 
suivant pour chaque élément À € VX: 


Où chaque colonne identifiée par X contient tous les symboles de l’ensemble First(X). 


Puis, à l’aide de ce tableau, nous appliquons la CNS-LLI : 


e Pour un À, À € VX fixé, les contenus de chacune des colonnes XKk ne doivent pas 
avoir d'éléments communs. 


e  Siune expansion XK de A se dérive en € (XX —*e), les contenus de toutes les autres 
colonnes Xp (p Z k) ne doivent pas avoir d’éléments commun avec Follow(A). 


Ci-après, les tables construites à partir des deux calculs précédents sur la grammaire des 
expressions arithmétiques et celle du mini-français : 


Init Follow 
Expr| 0...,9 ( 0,...,9 +,%*,=,/) 
Nbr | 0...,9 +,*,-,/) 
Cte 0,9 +, #, =, /,), 0,..,9 
Oper| +,*,-,/ 0,..., 9, ( 


tableau pour la grammaire Gexp 
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Nous observons que G.;? n’est pas LL(1), car le premier First et le second First du symbole 


Expr ont une intersection non vide : 0...,9. 


Remarque : 


Ceci est en particulier dû au fait que la récursivité gauche pose un problème pour 
ce genre d’analyse. Il y a deux First identiques. 


Décrivons maintenant le tableau associé à la grammaire du mini-français notée plus haut Gr1: 


Init Follow 
Phrase |le,un # 
GN le, un le, un aime, poursuit, ‘.” 
GV aime, aime, le, un 
poursuit poursuit 
Art le, un blanc, noir, gentil, beau, 
chat, chien 
Nom chien, chat blanc, noir, gentil, beau, 
aime, poursuit 
Verbe aime, poursuit le,un,malicieusement, 
joyeusement 
Adj blanc,noir,gentil,beau aime, poursuit, chat, chien 
Adv malicieusement, le, un 
joyeusement 


tableau pour la grammaire Gr] 


Cette grammaire Gr. n’est pas LL(1) à cause de l’Init de GN ou de celui de GV, qui ont une 
intersection non vide de leurs First. Le problème est dû à la présence dans cette grammaire de 


règles non déterministes de la forme : À — @1B | œiC, (où B € Vxet C € Vx). 


De telles règles À — &1B | &C ne peuventt pas être analysées avec la stratégie d’observation 
du prochain symbole, puisque les deux expansions &.B et &«C débutent chacune par les 
mêmes symboles (ceux de First (œ:)). 
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Nous pouvons éliminer ce problème en construisant une autre grammaire en ajoutant un 
élément A° au vocabulaire auxiliaire de Gn et en remplaçant les règles À — œ1B | &C par les 
deux règles suivantes (procédé classique en compilation appelé factorisation): 


A —cœ:A’ 
AB |C 


(en espérant que First (A) et First (B) n’aient pas d’éléments communs) 


Voyons enfin comment les outils que nous venons de considérer peuvent servir en 
programmation de l'analyse de phrases. 


3.Analyser des phrases 


3.1 Une grammaire LL(1) du mini-français 


Voici Gr une grammaire LL(1) obtenue à partir de Gr1 par changement des règles selon 
l’idée de transformation précédente. Nous avons ajouté deux nouveaux symboles dans Vx: 
<LeNom> et <Suite> 


Gp2 = (VX, Vr,S.R) 
Vr={le, un, chat, chien, aime, poursuit, malicieusement, joyeusement, gentil, 
noir, blanc, beau } 
VN= {{phrase), (GN), (GV), {Art}, (Nom), (Adi), (Adv}, (verbe), (LeNom), 
({Suite)} 
Axiome : (phrase) 
Règles : 
:{ phrase }—( GN }{ GV }{ GN ). 
:{ GN })—{( Art )(LeNom ) 
:(LeNom )} (Adi }{Nom } | {Nom }{Adj ) 
:{GV }— (verbe }{ Suite }) 


:( Art }= le | un 

:({Nom }— chien | chat 

:(verbe )}— aime | poursuit 

:(Adj }— blanc | noir | gentil | beau 
10 :(Adv }— malicieusement | joyeusement 


1 
2 
3 
4 
5 :(Suite } —( GN } | (Adv }{ GN }) 
6 
7 
8 
9 
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En calculant comme précédemment les Init et les Follow, nous obtenons le 
tableau récapitulatif suivant: 


Init Follow 
Phrase le, un # 
GN le, un aime, poursuit, ‘.? 
LeNom blanc, noir, | chien, chat aime, poursuit, ‘.? 
gentil, beau 
GV aime, Fe 
poursuit 
Suite le, un malicieusement, ca 
joyeusement 
Art le, un blanc, noir, gentil, beau, chat, 
chien 
Nom chien, chat blanc, noir, gentil, beau, aime, 
poursuit, 
6° 
Verbe aime, poursuit le,un,malicieusement, 
joyeusement 
Adj blanc, noir, gentil, beau aime, poursuit, chat, chien, ‘.” 
Adv malicieusement, le, un 
joyeusement 


ci-dessus un tableau pour la grammaire Gr2 


Elle vérifie la CNS-LL1, cette grammaire Gp est LL(1). 

Nous indiquons ensuite un moyen destiné à effectuer la reconnaissance manuelle tout d’abord, 
puis par programme en Delphi par exemple, uniquement dans le cas de la grammaire LL(1) 
Gp du mini-français. Cela pourra inciter l’étudiant à aller chercher dans les ouvrages 
spécialisés les méthodes générales mettant en œuvre ces techniques de reconnaissance. 


3.2 Schémas d’algorithmes associés à Gr2 


Nous supposons disposer d’un moyen d’extraire dans la phrase le symbole à analyser. Il sera 
mis dans la variable notée " SymLu ". Nous découpons notre travail d’analyse en blocs 
comme nous l’avions découpé lors de l’utilisation d’une grammaire en mode génération de 
phrases. Chaque bloc syntaxique est associé à un élément du vocabulaire auxiliaire VX dans 
Gp. 

La démarche descendante reste semblable à la " programmation par la syntaxe" déjà vue et 
assure une cohérence pédagogique sur la méthode de travail adoptée. 


Nous supposons disposer de deux outils supplémentaires pour effectuer notre analyse : 


Œ un outil nommé " Symsuivant " qui met le prochain symbole de la phrase dans " 
SymLu ", 
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Œ un outil " Erreur " de signalement d’erreur dès qu’une erreur d’analyse est 
détectée. L’outil " Erreur " arrête en même temps tout le processus de 
reconnaissance. 


Voici une écriture algorithmique des différents blocs d’analyse associés aux éléments de VK 
dans Gp. Cette écriture permet en l’appliquant à une phrase de Gp, de valider ou non son 
analyse (de la reconnaître). Notre stratégie est basée sur les Init de chaque symbole de Vx 
utilisés comme ensembles de prédiction sur l’unique " bon chemin " à prendre dans la suite 


des règles. 


Bloc Analyser Phrase : 


Bloc Analyser GN : 


si SymLu e Init (GN) 
Analyser GN ; 
si SymLu e Init (GV) 


alors 


alors 


si SymLu e Init (Art) 
Analyser Art; 


alors 


Analyser GV ; si SymLu eInit(LeNom) alors 
si SymLu # ‘.’ Alors Erreur fsi Analyser LeNom; 
sinon Erreur sinon Erreur 
£fsi £fsi 
sinon Erreur sinon Erreur 
fsi £fsi 
Bloc Analyser GV : Bloc Analyser Suite : 
si SymLu e Init (GN) alors 
Analyser GN; 
si SymLu e Init (Verbe) alors , . d 
sinon 
Analyser Verbe; : . 
: | , si Symlu e Init (Adv) alors 
si SymLlu e Init (Suite) alors 
: Analyser Adv; 
Analyser Suite; ; 
: si SymLlu € Init (GN) alors 
sinon Erreur 
fsi Analyser GN; 
: sinon Erreur 
sinon Erreur : 
fsi Fe 
sinon Erreur 
£fsi 
£fsi 
Bloc Analyser LeNom : Bloc Analyser Art : 
si SymLu eInit(Adj) alors si Symlu e {le,un } alors 
Analyser Adj; Symsuivant 
si SymLu € Init (Nom) alors sinon Erreur 
Analyser Nom fsi 
sinon Erreur 
fsi Bloc Analyser Nom : 
sinon si SymLu e {chat,chien } alors 
si SymLu e Init (Nom) alors Symsuivant 
Analyser Nom; sinon Erreur 
si SymLu € Init(Adj) alors fsi 
Analyser Adj; 
sinon Erreur Bloc Analyser Verbe : 
£fsi si SymLu € {aime, poursuit } 
sinon Erreur alors Symsuivant 
£fsi sinon Erreur 
£fsi £fsi 
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Bloc Analyser Adi : Bloc Analyser Ady : 


si SymLu € {beau, blanc, si SymLu € {malicieusement, 
noir, gentil } alors joyeusement } alors 
Symsuivant Symsuivant 
sinon Erreur sinon Erreur 
£si £si 


3.3 Procédures Pascal-Delphi associées aux blocs dans Gr2 


Afin de clore cette ouverture sur la reconnaissance, nous traduisons en pascal les 
spécifications précédentes sur les blocs d’analyse. A chaque bloc d’analyse nous faisons 
correspondre une procédure pascal-Delphi en nous inspirant des choix effectués lors de 
l’écriture d’un générateur de phrase du mini-français. 


Les structures de données : 
Nous disposons d’un type liste obtenu à partir d’une unité de liste linéaire de chaînes. 
Le type liste sert à stocker des éléments de Vr qui sont tous des string. 


var 
tnom,tadjectif,tarticle,tverbe,tadverbe:liste; 
{toutes ces listes contiennent les symboles de V; } 


Init_Grp_Nom, Init_LeNom, Init_Grp_Verbal,Init_Suite:liste; 
{toutes ces listes contiennent les symboles des Init} 
Symlu:string; {le symbole lu} 

PhraseLue,Copiephrase:string; /la phrase à analyser et sa copie} 


Les outils de base : 

procedure Symsuiv(var Sym:string); 

{l’outil Symsuivant, le paramètre Sym 

contient le symbole extrait} 

begin 

if Copiephrase<>" then 
if Copiephrase="." then Sym:=". 
else 
begin 
Sym:=copy(Copiephrase,1l,pos(' ',Copiephrase)-1); 
delete(Copiephrase,pos(Sym,Copiephrase),length(sym)+1) 
end; 

end; 


procedure Erreur; {outil Erreur} 
begin 

writeln('Erreur'); 

readin ; 

halt 

end; 


function AppartientA(Sym:string;Ensemble:liste):boolean; 
{teste l’appartenance à un Init donné du symbole Sym } 
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begin 

AppartientA:=False; 

if Test (Ensemble, Sym) then AppartientA:=True 
end; 


Traduction de chacun des blocs d’analyse 


procedure Nom; {Bloc Analyser Nom} 
begin 
if AppartientA(Symlu,tnom) then 
symsuiv(Symlu); 
end; 


procedure Adjectif; {Bloc Analyser Adj} 
begin 
if AppartientA(Symlu,tadjectif) then 
symsuiv(Symlu); 
end; 


procedure Adverbe; {Bloc Analyser Adv} 
begin 
if AppartientA(Symlu,tadverbe) then 
symsuiv(Symlu); 
end; 


procedure Verbe; {Bloc Analyser Verbe} 
begin 
if AppartientA(Symlu,tverbe) then 
symsuiv(Symlu); 
end; 


procedure LeNom; {Bloc Analyser LeNom } 
begin 
if AppartientA(Symlu,tadjectif) then 
begin 
Adjectif; 
if AppartientA(Symlu,tnom) then 
Nom 
else erreur 
end 
else 
if AppartientA(Symlu,tnom) then 
begin 
Nom; 
if AppartientA(Symlu,tadjectif) then 
Adjectif 
else erreur 
end 
else erreur 
end; 


procedure Grp Nom; {Bloc Analyser GN} 
begin 
if AppartientA(Symlu,tarticle) then 
begin 
Article; 
if AppartientA(Symlu, Init LeNom) then 
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LeNom 
else erreur 
end 
else erreur; 
end; 


procedure Suite; {Bloc Analyser Suite} 
begin 
if AppartientA(Symlu,Init Grp Nom) then 
Grp_Nom 
else 
if AppartientA(Symlu,tadverbe) then 
begin 
Adverbe; 
if AppartientA(Symlu,Init Grp Nom) then 
Grp_Nom 
else erreur 
end 
else erreur 
end; 


procedure Grp _Verbal; { Bloc Analyser GV } 
begin 
if AppartientA(Symlu,tverbe) then 
begin 
Verbe; 
if AppartientA(Symlu,Init Suite) then 
Suite 
else erreur 
end 
else erreur 
end; 


procedure phrase; {Bloc Analyser Phrase } 
begin 
if AppartientA(Symlu,Init Grp Nom) then 
begin 
Grp_Nom; 
if AppartientA(Symlu,Init Grp Verbal) then 
begin 
Grp_Verbal; 
if Symlu <>'.' then erreur 
else writeln('Phrase reconnue !') 
end 
else erreur 
end 
else erreur; 
end; 
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Chapitre 7.3 interaction et pilotage 


interface en mini français 


Plan du chapitre: É 


1. Un peu plus loin avec l'interaction et le pilotage 


1.1 Reconnaissance syntaxique du dialogue 
1.2 Saisie dirigée par la syntaxe : principe 
1.3 Utilisation du TAD grammaire graphique pour la saisie 


2. Une méthode de construction 


2.1 Tableau de traduction de Vt en diagrammes événementiels 
2.2 Tableau de traduction de Vn en schémas LDFA 
2.3 Interface de saisie du mini-français 
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1. Un peu plus loin avec l'interaction et le pilotage 


Nous allons nous servir dans ce paragraphe, de ce que nous connaissons sur la programmation 
par les grammaires pour piloter les actions de dialogue avec l'utilisateur. 


1.1 Reconnaissance syntaxique du dialogue 


Nous supposons que le dialogue peut être spécifié par une grammaire (ceci est d'autant plus 
vrai que c'est le programmeur qui décide du genre de dialogue à instaurer dans son interface, 
il lui est donc loisible de définir une ” bonne " grammaire pour le dialogue entre son logiciel 
et l'utilisateur). 


Nous recensons deux catégories de dialogue : 


Soit l'on guide pas à pas l'utilisateur dans la saisie et il ne peut entrer que de 
l'information syntaxiquement correcte. Nous dénommerons cette catégorie sous le 
vocable " saisie dirigée par la syntaxe ". 


Soit l'utilisateur est libre de saisir de l'information et l'on lance une vérification de la 
syntaxe dès la fin de la saisie (ce qui se passe lorsque vous utilisez un compilateur qui 
vérifie votre programme source après que vous l'avez tapé). Cette deuxième façon de 
faire nécessite la construction d'un analyseur syntaxique (plus ou moins complexe 
selon que la grammaire est de type 2 ou 3 et selon sa classe d'analyse). 


Le deuxième mode de guidage est classique et ressort de ce qui a été vu dans les chapitres 
précédents. Nous nous intéressons plutôt au premier mode de saisie qui est en fait plus aisé à 
programmer. 


1.2 Saisie dirigée par la syntaxe : principe 


Ce genre de saisie est le plus simple à mettre en œuvre en initiation, et donne des résultats 
immédiats ; en particulier, il se prête bien au prototypage avec un RAD visuel. Le 
programmeur peut élaborer un prototype (squelette d'IHM) de son interface, le faire 
fonctionner et le tester d'une manière autonome sans avoir besoin d'écrire le code interne 
complet. La partie visuelle et événementielle du RAD permet de construire, de tester et de 
modifier rapidement l'interface. 


Le principe général de conception est le suivant : 


L'interface présente à l'utilisateur et pour chaque nouveau plan d'action, tous les choix 
admissibles pour le passage au plan d'action suivant. Ceci se traduira pour la saisie d'un texte 
par la présentation à l'utilisateur des symboles terminaux actuellement possibles pour 
construire son dialogue et au masquage de tous les autres. Nous introduisons ici la notion de 
plan d'action matérialisé par un ensemble d'états des objets de l'interface combiné avec des 
actions sur ces objets. 
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Nous nous servons d'une grammaire décrite par ses diagrammes syntaxiques pour spécifier les 
étapes de passage d'un plan d'action à l'autre (la grammaire peut être de type 3 ou de type 2 
mais LL(1)). 


1.3 Utilisation du TAD grammaire graphique pour la saisie 


Nous rappelons le TAD générique Diag de grammaire graphique déjà défini pour spécifier de 
façon abstraite et graphique les règles d'une C-grammaire. 


TAD : Diag 

utilise : VT, VN // les vocabulaires de la grammaire 
opérations 

t: : > Diag 

t: : VT LU VN > Diag 

t3 : VN > Diag 

ts : VT LU VN > Diag 


ts : (VT U VN)n > Diag 
ts : (VT U VN)2 > Diag 
t, : (VIT U VN)2 Diag 
e : Diag x Diag > Diag 
Axiomes 


la loi ® est associative (concaténation de diagrammes) 


Vie Diag (i >1) /ti@ts = tieti ( ta élément neutre) 
ti (A) + tk(B) = t:(A)t-r(B) (méthode de construction des diagrammes) 


Nous proposons au lecteur une spécification opérationnelle (plus concrète) de chaque 
diagramme de règle du TAD Diag à l'aide de diagrammes événementiels (les conventions 
utilisées sont celles qui ont été indiquées lors de la définition du graphe événementiel). Cette 
spécification a pour but de fournir un outil méthodique de construction d'une série de plans 
d'action (activation-désactivation) afin d'implanter une saisie dirigée par la syntaxe. 


Les opérateurs tx représentent pour notre interface des plans d'action élémentaires. Un plan 
d'action général est constitué d'une combinaison de plans d'action élémentaires. 


Comme notre souci est de rester pratique, chaque diagramme événementiel associé à un 
opérateur ti, sera traduit par un exemple en Delphi. 


Nous avons choisi d'implanter les objets événementiels par des boutons de la classe 
des TButton. 


L'action d'activation ou de désactivation est implantée par la variation de la propriété 
booléenne de masquage ” enabled " de l'objet TButton. 


Remarque : 
Nous aurions pu aussi utiliser une autre propriété booléenne de masquage des TButton, la propriété 
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"visible ". 


Notes d'implantation en Delphi 
A partir d'un diagramme événementiel général comme ci-dessous : 


OÙ : 


tk - entrée dans le plan d'action tk 


—# = passer au plan d'action suivant 


Nous implanterons en Delphi: 


action "W®#" = " événement clic du bouton" 
activation "——" =" NomduBouton.enabled := true " 
désactivation "-#—" =" NomduBouton.enabled :=false " 


gestionnaire d'action = gestionnaire d'événement Clic du bouton. 


Avec comme apparence visuelle pour l'activation/désactivation : 


Buttonl | Button | 


Propriété enabled :=true (activable) Propriété enabled :=false(inactivable) 


L'exécution de plans d'action de saisie correspond dans ce cas essentiellement à masquer / 
démasquer des boutons utilisables. 


2. Une méthode pratique de construction 


Nous proposons une méthode de construction de plans d'action en suivant la syntaxe d'une 
grammaire LL(1). Nous associons des diagrammes événementiels et des schémas de plan 
d'action algorithmique aux diagrammes syntaxiques de la grammaire. L'implantation des plans 
d'action sera exécutée en Delphi. 


2.1 Tableau de traduction de Vt en diagrammes événementiels 
Cette traduction est valide pour des éléments À eVret B eVr. L'élément ” Suite ” (associé à 


la règle vide) représente un événement permettant de passer d'un plan d'action au suivant sans 
avoir de choix terminal à proposer à l'utilisateur. 


Les bases de l'informatique - programmation - (:6:. 05.09.2004 ) page 670 


Opérateur t1 : 

Diagramme de règle Diagramme événementiel associé 

t 
1 


Implantation en Delphi du diagramme t: : 


À F6 ge 2 Suite à 
Au moment où le plan d'action t, est exécuté, le bouton mms est activé. 
Une action clic appelle le gestionnaire de l'événement clic du bouton suite. 


Le code du gestionnaire du bouton suite est : 


: L : "ALLIE 
Suite.enabled :=false ; {le bouton se désactive} 
AfficherPlanSuivant ; {exécution du plan suivant} 

Opérateur t; : 
Diagramme de règle Diagramme événementiel associé 


Implantation en Delphi du diagramme t; : 

N _—— ne Et _. 
Au moment où le plan d'action t: est exécuté, le bouton __4A | est activé. 
Une action clic appelle le gestionnaire de l'événement clic du bouton A. 


Le code du gestionnaire du bouton A est : 


A.enabled :=false ; {le bouton se désactive} __4 | 


Saisie(A) ; {saisie de l'information} 
AfficherPlanSuivant ; {exécution du plan suivant} 


Opérateur t3 : 
Diagramme de règle Diagramme événementiel associé 
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Implantation en Delphi du diagramme t; : 
& n ne À _ 
Au moment où le plan d'action t; est exécuté, le bouton Ba] est activé, le 


PHLLÉE ; NZ 
bouton n'est pas activé. 
Une action clic sur le bouton A appelle le gestionnaire de l'événement clic du 
bouton A. 


Le code du gestionnaire du bouton suite est : 


: > ; FILLE 

Suite.enabled :=false ; {le bouton se désactive} Les 
; LE Æ 
A.enabled :=false ; {bouton À désactivé} 
AfficherPlanSuivant ; {exécution du plan suivant} 
Le code du gestionnaire du bouton A est : 

: ; — Suite 
Suite.enabled :=true ; {bouton suite activé} 
Saisie(A) ; {saisie de l'information} 


Opérateur t4 : 


Diagramme de règle Diagramme événementiel associé 


B: ä 
Le - 1, 


Implantation en Delphi du diagramme t, : 


: ne D Z À - 
Au moment où le plan d'action t4 est exécuté, le bouton est activé, le 


Suite | ; 
bouton mm est activé aussi. 
Une action clic sur le bouton suite appelle le gestionnaire de l'événement clic du 
bouton suite. Une action clic sur le bouton A appelle le gestionnaire de l'événement 


clic du bouton A. 


Le code du gestionnaire du bouton suite est : 


; L ; ILIÉ 

Suite.enabled :=false ; {le bouton se désactive} ns 
5 : D Lt 
A.enabled :=false ; {bouton À désactivé} 
AfficherPlanSuivant ; {exécution du plan suivant} 
Le code du gestionnaire du bouton A est : 

; : LE Suite 
Suite.enabled :=true ; {bouton suite activé} 
Saisie(A) ; {saisie de l'information} 
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Opérateur ts : 


Diagramme de règle Diagramme événementiel associé 


t5(A1,..,An) = 
B: 4 


1 


"2 


désactive tous 
les autres 


: ts action 
a 5 


L2 
L 
L2 
L 


Implantation en Delphi du diagramme ts : 


: re Re Al An 
Au moment où le plan d'action ts est exécuté, les boutons ER 


sont activés. 


Une action clic sur un des boutons AK appelle le gestionnaire de l'événement clic du 


bouton Ak. 


Le code du gestionnaire de chaque bouton A4 est : 


. . L ie Al 
Désactiver Tous; {tous les boutons sont désactivés } __# | 


An 
.…€tc.… 


Saisie(Ak) ; {saisie de l'information de A;} 
AfficherPlanSuivant ; {exécution du plan suivant} 


Opérateur ts : 


Diagramme de règle Diagramme événementiel associé 
te(A,B)= 
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Implantation en Delphi du diagramme t, : 


À nn 2. À > 
Au moment où le plan d'action t, est exécuté, le bouton ES est activé, les 


Stite | EB | .. 
boutons et ne sont pas activés. 


Une action clic sur le bouton A appelle le gestionnaire de l'événement clic du bouton 
A qui agit sur suite et B. Une action clic sur le bouton B appelle le gestionnaire de 
l'événement clic du bouton B qui agit sur A et suite. Une action clic sur le bouton 
suite appelle le gestionnaire de l'événement clic du bouton suite qui agit sur A et B. 


Le code du gestionnaire du bouton suite est : 
: r : SAILTE 
Suite.enabled :=false ; {le bouton se désactive} 


A.enabled :=false ; {bouton À désactivé} 


B.enabled :=false ; {bouton B désactivé} 
AfficherPlanSuivant ; {exécution du plan suivant} 


Le code du gestionnaire du bouton A est : 
; ; — Suite 
Suite.enabled :=true ; {bouton suite activé} __ Suite 
B 


B.enabled :=true ; {bouton B activé} 


A.enabled :=false : {bouton A désactivé} __# | 


Saisie(A) ; {saisie de l'information de A} 


Le code du gestionnaire du bouton B est : 


Suite.enabled :=false ; {bouton suite activé} CE 
B.enabled :=false ; {bouton B activé} 
A.enabled :=true ; {bouton À désactivé} 
Saisie(B) ; {saisie de l'information de B} 

Opérateur t; : 

Diagramme de règle Diagramme événementiel associé 
t(A,B)= 
C: ñ 
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Implantation en Delphi du diagramme t; : 


Au moment où le plan d'action t; est exécuté, les boutons Er ie 

B 2 
et sont activés. 
Une action clic sur le bouton A appelle le gestionnaire de l'événement clic du bouton 
A. Une action clic sur le bouton B appelle le gestionnaire de l'événement clic du 
bouton B. Une action clic sur le bouton suite appelle le gestionnaire de l'événement 


clic du bouton suite qui agit sur A et B. 
Le code du gestionnaire du bouton suite est : 


. L : SITE 
Suite.enabled :=false ; {le bouton se désactive} 


A.enabled :=false ; {bouton À désactivé} 


B.enabled :=false ; {bouton B désactivé} 
AfficherPlanSuivant ; {exécution du plan suivant} 


Le code du gestionnaire du bouton A est : 
Saisie(A) ; {saisie de l'information de A} 


Le code du gestionnaire du bouton B est : 
Saisie(B) ; {saisie de l'information de B} 


2.2 Tableau de traduction de VYx en schémas LDFA 


Nous nous préoccupons maintenant des plans associés à des éléments du vocabulaire non 
terminal VX de notre grammaire supposée être LL(1). 


Le passage d'un plan d'action à un autre est conditionné par les symboles de V: qui doivent 
être présentés à l'utilisateur dans le nouveau plan d'action. Or nous savons que l'ensemble 
Init(A) de l'élément A de VX d'une grammaire nous fournit tous les symboles possibles d'un 
plan d'action associé à l'élément A. Puis nous ferons fonctionner notre grammaire en mode 
générateur. Au lieu d'engendrer aléatoirement des phrases du langage nous engendrons des 
phrases correctes où les choix des éléments terminaux ont été effectués par l'utilisateur. En 
partant de cette remarque, nous pouvons construire des schémas généraux écrits en langage 
d'algorithme (LDFA) décrivant le fonctionnement d'un plan d'action associé à un élément A, 
Â € V\. 


Le tableau avec ses objets et outils de base : 
Nous supposons disposer d'un moyen d'activer (présenter à l'utilisateur) tous les symboles de 


Init(A) afin de ne lui laisser que ces choix possibles : Activer(Init(A)). 


Nous supposons disposer d'un moyen de désactiver tous les symboles de Init(A) dès que 
l'utilisateur a fait son choix : Désactiver(Init(A)). 


Le symbole suite a la même signification qu'au paragraphe précédent, 1l sert à passer au plan 
d'action suivant. 
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Le symbole action indique quelle est l'action que vient d'effectuer l'utilisateur sur l'interface. 


Nous en déduisons le tableau de traduction de VX en schéma Algorithmique LDFA : 


Diagramme de règle 


Schéma LDFA associé 


Opérateur t 


B: 


Activer ( Init(A) ) 
Plan A ; 
Désactiver ( Init(A) ) 


Opérateur t; 


Activer ( Init(A) ) 
Répéter 

Plan A ; 

Activer ( Init(Suite) ) 
jusquà action = Suite ; 
Désactiver ( Init(A) ) 


Activer (Init(A) ) ; 

Activer (Suite) ; 

Tantque action À Suite faire 
Plan A ; 
Activer (Suite) 

Ftant ; 

Désactiver ( Init(A) ) 


Opérateur ts 


Es (Air... An) = 


Activer (Init(A;)); 
Activer (Init(A;)) ; 


LL 4 si action € Init(A.) alors Plan A; 
ä, sinon si action € Init(A)) alors Plan A; 
: sinon si … 
fsi ; 
! Désactiver ( Init(A;) ) ; 
â n 
, répéter 
Opérateur ts Activer (Init(A) ) : 
Plan A ; 
. He Activer ( Init(B) ) : 


Les 3 


Activer ( Init(Suite) ) ; 
si action € Init(B) alors Plan B fsi 
jusquà action = Suite 


Opérateur t 


C7 (A, B) So 


Activer ( Init(A) ); 

Activer ( Init(B)) ; 

Activer (Suite) ; 

Tantque action € Init(B) L Init(A) faire 

si action € Init(B) alors Plan B 
sinon Plan À 
fsi ; 
Activer ( Init(A) ) ; 
Activer ( Init(B) ) ; 
Activer (Suite) ; 

Ftant ; 
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Application à deux exemples 
Exemple-1 


Soit la grammaire G déjà vue lors de l'étude des First et des Follow : 


G: 
VT = {a, b} 
VN={A,S} 
axiome: S 
S:° 
(a) LA s Règles : 
G 1:S— aAS 
A! 2:S—b 
(a) 3:A—a 
4 : À — bSA 
OmEIRES 


Cette grammaire est LL(1) car nous avons déjà calculé les Init de A et de S : 
InitA) = Init(S) = {a,b} 


En nous servant du tableau de traduction précédent écrivons les plans d'action associés aux 
deux éléments de Vx soient A ets. 


Plan A : 
Activer(a) ; 
Activer(b) ; 


Plan S : 
Activer(a) ; 
Activer(b) ; 


Saisie(SymLu) ; 
si action = a alors 
désactiver(a) 

sinon 
désactiver(b); 
Plan S; 
Plan A 

fsi 

désactiver(a) ; 

désactiver(b) ; 


Saisie(SymLu) ; 
si action = a alors 
désactiver(a) ; 
Plan A ; 
Plan S 
sinon 
désactiver(b); 
fsi ; 
désactiver(a) ; 
désactiver(b) ; 


Implantation avec Delphi 


e Nous choisissons d'utiliser deux TButton pour les éléments 
terminaux " a "(Button_a) et " b "(Button _ b), la saisie à lieu 
dans un TEdit (EditSaisie). 
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e Les actions activer-désactiver sont implantées par la propriété 
enabled des Tbutton 


procedure Activer(Elt: TButton); procedure Desactiver(Elt: TButton); 
begin begin 

Elt.enabled:=true; Elt.enabled:=false; 

end; end; 


L'interface retenue est la suivante 


Q Nous n'utilisons pas l'élément suite. 


Q Le symbole action est implanté par un drapeau booléen " ActionFaite " 
indiquant si l'utilisateur a effectué une action oui ou non. 


Q Nous avons conservé le mode séquentiel avec interruption afin de pouvoir 
bénéficier de la méthode de programmation par syntaxe en mode 
génération. La saisie du caractère dans SymLu est donc programmée selon 
une boucle d'attente infinie qui ne se libère que lorsque l'utilisateur 
a clické sur l'un des choix possibles. 


procedure Attendre; 

begin 
if not ActionFaite then 
begin 
repeat 

Application.ProcessMessages 

until ActionFaite ; 
ActionFaite:=false 
end 

end {Aftendre }; 


procedure saisie(ch:string); 
begin 
if ActionFaite=false then 
Forml.Edit_saisie.text:= Forml1.Edit saisie.text+' ‘+ch 
else ActionFaite:=false 
end {saisie }; 


procedure AttenteSaisie; 
begin 
Attendre; 
saisie(SymLu); 
end {AftenteSaisie}; 
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Chacun des plans est implanté selon une procédure: 


procedure Plan A; 
begin 
with Form1 do 
begin 
Activer(Button_a); 
Activer(Button_b); 
AttenteSaisie; 
if SymLu='a' then 
Desactiver(Button_a) 
else 
begin 
Desactiver(Button_b); 
Plan S; 
Plan_ A 
end; 
Desactiver(Button_ a); 
Desactiver(Button_b) 
end 
end; 


procedure Plan S; 
begin 
with Form1 do 
begin 
Activer(Button_a); 
Activer(Button_b); 
AttenteSaisie; 
if SymLu=a' then 
begin 
Desactiver(Button_a); 
Plan_A; 
Plan_S 
end 
else 
Desactiver(Button_a); 
Desactiver(Button_b) 
end 
end; 


Lorsque l'utilisateur sélectionne un bouton par un clic, le symbole SymLu contient la valeur 


du choix effectué. 


begin 
ActionFaite:=true; 
Symlu:=TButton(Sender).caption 
end; 


procedure TForm1.Button_aetbClic(Sender: TObject); 


Le bouton lancer la saisie appelle le plan associé à l'axiome S. 


begin 

RAZTout; 
ButtonLancer.enabled:=false; 
Plan S; 

PlanSuivant; 
end; 


procedure TForml1.ButtonLancerClic(Sender: TObject); 


Il appelle aussi à la fin la procédure PlanSuivant qui sert à passer au plan d'action suivant 
(dans l'exemple le plan suivant est l'état initial, 1l suffit de réactiver le bouton lancer). 


procedure PlanSuivant; 

begin 
Form1.ButtonLancer.enabled:=true; 
end; 
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Exemple-2 Interface de saisie du mini-français 


La grammaire choisie est la grammaire LL(1) GF2 du mini-français déjà 
étudiée. 


Gp = (VX, Vr,S.R) 

Vr={le, un, chat, chien, aime, poursuit, malicieusement, joyeusement, gentil, noir, blanc, 
beau, ‘.'} 

Vx={ (phrase), (GN}), (GV), {Art}, {Nom}, {Adi}, (Adv }, (verbe), {LeNom), 
{Suite) } 


Axiome : <phrase> 

Règles : 

: (phrase }—(GN){Gv ). 

: (GN)— (Art )}( LeNom) 

: (LeNom) —(Adj)({(Nom } | (Nom }(Adj) 
: (GV }— {verbe)(Suite) 

: (Suite) (GN) | (Adv )}(GN) 

: (Art) le | un 

: (Nom )}— chien | chat 

: (verbe) aime | poursuit 

: (Adj)}— blanc | noir | gentil | beau 
0: (Adv )}— malicieusement | joyeusement 


HO © —J Oo O1 & À NN H 


Nous laissons le lecteur écrire les diagrammes syntaxiques obtenus à partir des règles 
précédentes. 


Afin que le lecteur puisse bien se pénétrer de la similitude des démarches entre les blocs 
d'analyse avec la saisie par plan d'action, nous lui livrons ci-dessous deux plans et les blocs 


correspondants, 1l continuera à écrire de la même façon ceux des autres éléments de Vx. 


Premier plan d'action celui de l'axiome < phrase> 


Bloc Analyser Phrase : 
si SymLu € Init(GN) alors 
Analyser GN ; Plan phrase: 
si SymLu € Init(GV) alors 
Analyser GV ; Activer(Init(Phrase)); 
si SymLu Z ‘alors Plan GN ; 
Erreur Plan GV ; 
fsi Plan point 
sinon Erreur Désactiver(Init(Phrase)) ; 
fsi 
sinon Erreur 
fsi 


L'implantation du plan d'action Phrase en Delphi est immédiate : 


procedure Plan_phrase; 
begin 

Plan_GN; 

Plan_GV; 

Plan_point; 
end; 
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Deuxième plan d'action celui du symbole < LeNom > 


Bloc Analyser LeNom : 


si SymLu € Init(Adj) alors 
Analyser Adj; 
si Symlu € Init(Nom) alors 
Analyser Nom 
sinon Erreur 
fsi 
sinon 
si Symlu € Init(Nom) alors 
Analyser Nom; 
si Symlu € Init(Adj) alors 
Analyser Adj; 
sinon Erreur 
fsi 
sinon Erreur 
fsi 
fsi 


Plan LeNom 


Activer(Init(LeNom)); 
Saisie; 
Désactiver(Init(LeNom)); 
si action elnit(Nom) alors 
Plan Nom ; 
Plan Adj 
sinon 
Plan Adj; 
Plan Nom 
fsi 


L'implantation du plan d'action LeNom en Delphi est immédiate : 


procedure Plan_LeNom:; 

begin 
.…. etc 

end; 


Code Delphi7 complet de l'exemple-2 Interface de saisie du mini-français 


joyeusement 
malicieusement 


blanc 
noir 


OC CO AMON MENT OMC UC MC NN CO OO ON TO ONANIONS 


unit UFplanGF2; 
interface 


uses 


Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, 


StdCtris, Buttons; 
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type 
TFPPlanGPF2 = class(TForm) 
ButtonLe: TButton; 
ButtonUn: TButton; 
Buttonblanc: TButton; 
Buttonnoir: TButton:; 
Buttonbeau: TButton; 
Buttongentil: TButton; 
Buttonaime: TButton; 
Buttonpoursuit: TButton; 
Buttonchat: TButton; 
Buttonmalicieus: TButton; 
Buttonjoyeus: TButton; 
ButtonLancer: TButton:; 
Edit_ saisie: TEdit; 
Buttonchien: TButton; 
Buttonpoint: TButton; 
BitBtnFermer: TBitBtn; 
procedure ButtonLancerClick(Sender: TObject); 
procedure ButtonsClick(Sender: TObject); 
procedure FormCreate(Sender: TObject); 
procedure BitBtnFermerClick(Sender: TObject); 
private 
{ Déclarations privées } 
public 
{ Déclarations publiques } 
Symlu:string; 
ActionFaite , stop : boolean; 
procedure ActiverDesactiver(Elt: TButton; const etat:boolean); 
procedure InitGN(active:boolean); 
procedure InitLeNom(active:boolean); 
procedure InitGV(active:boolean); 
procedure InitSuite(active:boolean); 
procedure InitArt(active:boolean); 
procedure InitNom(active:boolean); 
procedure InitVerbe(active:boolean); 
procedure InitAdj(active:boolean); 
procedure InitAdv(active:boolean); 
procedure RAZTout; 
procedure AttenteSaisie; 
procedure PlanSuivant; 
procedure Plan_Art; 
procedure Plan_Nom; 
procedure Plan_Verbe; 
procedure Plan_Adj; 
procedure Plan_Adv; 
procedure Plan_LeNom:; 
procedure Plan_GN; 
procedure Plan_Suite; 
procedure Plan_GV; 
procedure Plan_point; 
procedure Plan_phrase; 
end; 


var 
FPPlanGE2: TFPPlanGF2; 


implementation 
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{$R *.dfm } 


procedure TFPPlanGF2.ActiverDesactiver(Elt: TButton;const etat:boolean); 


begin 

Elt.enabled:=etat; 

end; 

HUIT LES INIT ZA 
procedure TFPPlanGF2.[nitGN(active:boolean); 
begin 
ActiverDesactiver(FPPlanGF2.ButtonLe,active); 
ActiverDesactiver(FPPlanGF2.ButtonUn.active) 
end; 


procedure TFPPlanGF2.[nitLeNom(active:boolean); 
begin 
ActiverDesactiver(FPPlanGF2.Buttonblanc,active); 
ActiverDesactiver(FPPlanGF2.Buttonnoir,active); 
ActiverDesactiver(FPPlanGF2.Buttonbeau,active); 
ActiverDesactiver(FPPlanGF2.Buttongentil,active); 
ActiverDesactiver(FPPlanGF2.Buttonchat,active); 
ActiverDesactiver(FPPlanGF2.Buttonchien,active) 
end; 


procedure TFPPlanGF2.[nitGV(active:boolean); 
begin 
ActiverDesactiver(FPPlanGF2.Buttonaime,active); 
ActiverDesactiver(FPPlanGF2.Buttonpoursuit,active) 
end; 


procedure TFPPlanGF2.InitSuite(active:boolean); 
begin 

ActiverDesactiver(FPPlanGF2.ButtonLe,active); 
ActiverDesactiver(FPPlanGF2.ButtonUn.active); 
ActiverDesactiver(FPPlanGF2.Buttonjoyeus,active); 
ActiverDesactiver(FPPlanGF2.Buttonmalicieus,active) 
end; 


procedure InitArt(active:boolean); 
begin 

InitGN(active) 

end; 


procedure TFPPlanGF2.[nitNom(active:boolean); 
begin 
ActiverDesactiver(FPPlanGF2.Buttonchat,active); 
ActiverDesactiver(FPPlanGF2.Buttonchien,active) 
end; 


procedure TFPPlanGF2.]nitVerbe(active:boolean); 
begin 
ActiverDesactiver(FPPlanGF2.Buttonaime,active); 
ActiverDesactiver(FPPlanGF2.Buttonpoursuit,active) 
end; 


procedure TFPPlanGF2.InitAdj(active:boolean); 
begin 
ActiverDesactiver(FPPlanGF2.Buttonblanc.,active); 
ActiverDesactiver(FPPlanGF2.Buttonnoir,active); 
ActiverDesactiver(FPPlanGF2.Buttonbeau,active); 
ActiverDesactiver(FPPlanGF2.Buttongentil,active) 
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end; 


procedure TFPPlanGF2.InitAdv(active:boolean); 
begin 
ActiverDesactiver(FPPlanGF2.Buttonjoyeus,active); 
ActiverDesactiver(FPPlanGF2.Buttonmalicieus,active) 
end; 
HUIT fin des INIT AMIE I 
procedure TFPPlanGF2.RAZTout; 
begin 

with FPPlanGF2 do 

begin 

InitArt(false); 

InitNom(false); 

InitVerbe(false); 

InitAdj(false); 

InitAdv(false); 

Buttonpoint.Enabled:=false; 

SymLu:="; 

ActionFaite:=false; 

Edit_saisie.text:="; 

stop:=false 

end 
end; 


procedure TFPPlanGF2.AttenteSaisie; 

procedure Attendre; 

begin 

if not ActionFaite then 

begin 
repeat 
Application.ProcessMessages 
until 
actionfaite ; 
ActionFaite:=false 

end 

end{ Attendre}; 


procedure saisie(ch:string); 
begin 
if ActionFaite=false then 
FPPlanGF2.Edit saisie.text:= FPPlanGF2.Edit saisie.text+' ‘+ch 
else 
actionfaite:=false 
end{saisie}; 


begin 

Attendre; 
saisie(SymLu); 
end{AttenteSaisie} ; 


procedure TFPPlanGF2.PlanSuivant; 

begin 

FPPlanGF2.ButtonLancer.enabled:=true; 

end; 

{= Les procédures des plans d'actions ---------------- } 
procedure TFPPlanGF2.Plan_Art; 

begin 

InitArt(true); 

AttenteSaisie; 
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InitArt(false); 
end; 


procedure TFPPlanGF2.Plan_Nom:; 
begin 

InitNom(true); 

AttenteSaisie; 

InitNom(false); 

end; 


procedure TFPPlanGF2.Plan_Verbe; 
begin 

InitVerbe(true); 

AttenteSaisie; 

InitVerbe(false); 

end; 


procedure TFPPlanGF2.Plan_Adj; 
begin 

InitAdj(true); 

AttenteSaisie; 

InitAdj(false); 

end; 


procedure TFPPlanGF2.Plan_Adv; 
begin 

InitAdv(true); 

AttenteSaisie; 

InitAdv(false); 

end; 


procedure TFPPlanGF2.Plan_LeNom; 
begin 
InitLeNom(true); 
AttenteSaisie; 
InitLeNom(false); 
ActionFaite:=true; // action déjà saisie 
if (SymLu='chat) or (SymLu="'chien') then 
begin 
Plan_Nom; 
Plan_Adij 
end 
else // adjectif 
begin 
Plan_Adj; 
Plan_Nom 
end; 
end; 


procedure TFPPlanGF2.Plan_ GN; 
begin 

Plan_Art; 

Plan_LeNom; 

end; 


procedure TFPPlanGF2.Plan_ Suite; 
begin 

InitSuite(true); 

AttenteSaisie; 

InitSuite(false); 
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ActionFaite:=true; // action déjà saisie 
if (SymLu=!le') or (SymLu='un') then 
begin 
Plan_GN; 
end 
else // adverbe 
begin 
Plan_Adv; 
Plan_GN 
end; 
end; 


procedure TFPPlanGF2.Plan GV; 
begin 

Plan_Verbe; 

Plan_Suite; 

end; 


procedure TFPPlanGF2.Plan_point; 
begin 
FPPlanGF2.Buttonpoint.Enabled:=true; 
AttenteSaisie; 
FPPlanGF2.Buttonpoint.Enabled:=false; 
end; 


procedure TFPPlanGF2.Plan_phrase; 
begin 

Plan_GN; 

Plan_GV; 

Plan_point; 

end; 


procedure TFPPlanGF2.ButtonLancerClick(Sender: TObject); 
begin 

RAZTout; 

ButtonLancer.enabled:=false; 

Plan_ phrase; 

PlanSuivant; 

end; 


procedure TFPPlanGF2.ButtonsClick(Sender: TObject); 
begin 

ActionFaite:=true; 

if stop then 

halt;//l'utilisateur a demandé d'arrêter 
Symlu:=TButton(Sender).caption 
end; 


procedure TFPPlanGF2.FormCreate(Sender: TObject); 
begin 

RAZTout; 

end; 


procedure TFPPlanGF2.BitBtnFermerClick(Sender: TObject); 
begin 

stop:=true 

end; 


end. 
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Chapitre 7.4 Une projet d'IHM 
Enquête fumeurs S 


Plan du chapitre: Ë 


1. Le projet de construction d’une borne interactive 


1.1 Le marché avec le client 

1.2 Aspect général d’un prototype 

1.3 Partition de l’interface en zones d’action 
1.4 Le mode attente utilisateur 

1.5 Le mode consultation 


2. Le mode saisie et les plans d’action 


2.1 Graphe général des plans d’action 
2.2 Graphe événementiel de la zone-1 
2.3 Graphe événementiel de la zone-2 
2.4 Graphe événementiel de la zone-3 
2.5 Graphe événementiel de la zone-4 
2.6 Graphe événementiel de la zone-5 


3. Le reste du logiciel 


3.1 Le menu lance la saisie du mot de passe 
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1. Le projet de construction d’une borne interactive 


Programmons un exemple en utilisant les principes d’élaboration d’une interface par plans 
d’action. 

Nous sommes l’I.N.S., un institut d’enquêtes et de sondages au service de clients qui nous 
commandent des enquêtes de données chiffrées que nous exploiterons ultérieurement. Le 
travail ci-dessous peut être réalisé en environ 500 lignes de Delphi. Il peut être réalisé par un 
seul programmeur (temps de programmation 50h environ) ou avec une équipe de trois 
étudiants à qui l’on confiera des activités différentes. 


1.1 Le marché avec le client 


Le client, une organisation de lutte contre le tabagisme, nous a commandé une enquête sur le 
public des fumeurs de cigarettes dont l’âge est compris entre 10 ans et 120 ans. Il désire 
obtenir un fichier de données recueillies auprès du public des deux sexes. Pour chaque 
personne interrogée nous devons stocker dans notre fichier : 

a lesexe, 

a l’âge actuel, 

a depuis combien d’années la personne fume, 

a le nombre de cigarettes fumées par jour. 


Le client est conscient qu’il est difficile de demander à un individu le nombre exact de 
cigarettes fumées par jour. Il admet que nous proposions aux personnes interrogées une série 
de plages de consommations plutôt qu’un nombre précis. 


Le client veut en même temps faire œuvre de pédagogie auprès des individus fumeurs sondés. 
Il souhaite que le sondé puisse se situer dans une fourchette de pourcentages de 
consommation sur toute la population des personnes déjà sondées. D’autre part le client 
dispose de tables de mortalité dont il a extrait des formules permettant d’évaluer le risque de 
cancer du poumon ou du larynx en fonction du sexe, de l’âge, de la durée du tabagisme et du 
nombre de cigarettes fumées par jour. Le client espère ainsi faire prendre conscience du risque 
accru d’apparition d’un cancer en cas de tabagisme prolongé. 


1.2 Aspect général d’un prototype 


Notre équipe de développement a réfléchi au problème et a décidé que nous construirions un 
prototype de borne interactive : 


e__ Nous allons mettre en place un logiciel ouvert qui fonctionnera 24h sur 24, qui 
attendra le client et lui permettra de remplir son questionnaire "” à la volée ". 

e Le logiciel doit être verrouillé contre toute fausse manipulation de la part de 
l’utilisateur. L'équipe de développement a décidé d’employer la méthode de saisie 
dirigée par la syntaxe par plans d’action. 

e L'utilisateur pourra revenir, pour correction, sur l’une quelconque des données 
qu’il aura entrées. Avant son stockage définitif dans le fichier, chaque transaction 
est mémorisée sur disque dès qu’elle a lieu. 
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e Le principe d’une sauvegarde générale journalière effectuée par une personne de 
PINS a été retenu. Les actions de maintenance éventuelles effectuées par du 
personnel de l’INS s’effectueront à partir d’un menu spécial protégé par un mot de 
passe. 


Voici le prototype d'interface proposé dans sa totalité : 


Enquête 2005 auprès des fumeurs de havanes RL Cixi 


(sMValidezwos réponses 


1.3 Partition de l'interface en zones d’action 


Actuellement tous les plans d’action sont visibles. Nous proposons de diviser l’interface en 
plusieurs zones d’action différentes. 

Cinq zones de saisies de l’information 

zone-1 d’indication du sexe du sondé, 

zone-2 de saisie de l’âge actuel, 

zone-3 de saisie de la durée du tabagisme, 

zone-4 de saisie du nombre de cigarettes par jour, 

zone-5 de correction des données entrées. 


Aspect de la zone-I : 
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ÉMQUÉESSpIECENENLES 


Aspect de la zone-2 : Aspect de la zone-3 : 


Aspect de la zone-4 : 


Aspect de la zone-S : 


Deux zones de résultats consultables 
M Zzone-6 de liste des données déjà entrées, 
M Zone-7 de consultation du risque de cancer 
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Aspect de la zone-6 : 


Valdezwos1éponses 


Aspect de la zone-7 : 


Risque personel en con- 
tisuant, d'avoir le 
cancer du poumons dans : 


Une zone d'affichage de résultats 
zone-8 d’affichage des pourcentages de répartition 


Aspect de la zone-8 : 
7% par nombre de cigarettes par jo 


1-5 CS 10% 
6-10 CS 10% 
11-20 __ 274 
21-25 CC 22% 
26-30 CC 15% 
31-40 CS 7% 
+ de 40 CS 7% 


1.4 Le mode attente utilisateur 

Au lancement et après le passage de chaque sondé, l’interface est dans un état initial standard 
(écran d’accueil en mode attente). Elle peut prendre deux chemins d’action : soit le mode 
saisie (par séquencement : sondage), soit le mode consultation du fichier (visualisation de 
statistiques..….). 


Aspect visuel du mode de départ après passage de plusieurs sondés : 
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homme:5 


Remarque 

un certain nombre de personnes ont déjà répondu à l’enquête. Les pourcentages apparaissent 
ainsi que la liste des réponses. 

A ce stade, le sondé peut soit entrer ses données personnelles, et il entre dans le séquencement 
des plans d’action que nous allons voir ensuite, soit consulter les zones 6 et 7. 


1.5 Le mode consultation 


Le sondé peut clicker sur une donnée de la liste comme ci dessous. Les deux zones 5 et 7 sont 
immédiatement informées par les données sélectionnées dans la liste. 


Graphe événementiel de la zone-6 
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Table des états initiaux : 


zone-5 désactivé 

Liste activé 

zone-7 activé 

Homme désactivé 
Femme désactivé 

M1 = affichage dans zone 
désactivée (lecture 
seulement) 

M2 = affichage des 
informations. 


L'objet " liste " est implanté par l’objet visuel ListBoxReponses de la classe des TListBox. 


Aspect visuel d’une consultation : 


L'utilisateur sélectionne dans la liste une 
configuration (homme de 99 ans ayant fumé 
pendant 8 ans de 31 à 40 cigarettes par jour) 


Information dan$ zone-5 


Vous fumez depuis : 


31 3 40 | cigarettes par jour 


cher sur dec valenre naur chanaer 


L'utilisateur peut alors consulter les différents pourcentages de risques associés à cette 
configuration en sélectionnant dans la zone-7 le risque à un an, à deux ans etc... L'affichage 
se fait visuellement d’une façon chiffrée et d’une façon imagée. 


Risque à 2 ans : Risque à 10 ans : 
Risque personel en con- R personel en con- 
tinuant, d'avoir le 


[21 36 % 


F013  % 


2. Le mode saisie et les plans d’action 


Ce mode est dans le graphe événementiel le chemin produisant le plus grand nombre de lignes 
de code. C’est pourquoi il fait l’objet d’une étude à part. 


2.1 Graphe général des plans d’action 
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Nous présentons le graphe événementiel assurant le séquencement des plans d’action associés 
chacun à une des 8 zones décrites plus haut. 


sexe Chick 


Nous avons choisi, pour la plupart des zones de représenter l’activation - désactivation par la 
propriété " visible ". 

Pour les zones de saisie 2 et 3 où nous demandons à l’utilisateur d’entrer un nombre, nous 
avons choisi la saisie dirigée par la syntaxe. Un nombre est décrit par les diagrammes 
syntaxiques suivants : 


Nombre 
t, 
à 
D] t,(A4) = ä 
de la forme : 3 


Opérateur t; dont nous avons déjà spécifié une implantation : 


Chiffre sera implanté par un ensemble de boutons clickables associés chacun à un seul 
chiffre de 0 à 9. 
Le bouton " Ok " permet de passer au plan d’action suivant. 


2.2 Graphe événementiel de la zone-1 


Table des états initiaux : 
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zone-1 activé 
Homme désactivé 
Femme désactivé 
Zone-2 désactivé 


Les objets ” homme " et " femme " sont implantés par les objets visuels de 
RadioButtonHomme et RadioButtonFemme de la classe des TRadioButton. 


L’activation de la zone-2 (plan suivant)consiste à la rendre visible. 


L’action du click sur l’une des deux cases dans zone-1 
Informations Enquêtes précédentes Enquête _ actuelle IN.S 


1 SI] 


fait passer au plan d’action suivant. 


2.3 Graphe événementiel de la zone-2 


Table des états initiaux : 


zone-2 activé 
chiffre activé 
effacer désactivé 
OK désactivé 
Zone-3 désactivé 


Les 10 objets "” chiffre ” sont implantés par les objets visuels de SpeedButtonAgel à 
SpeedButtonAgel10, les objets "effacer "et "ok " sont des objets visuels de type boutons 
poussoirs. L’activation de la zone-3 (plan suivant)consiste à la rendre visible. 


Aspect visuel du deuxième plan d'action : 


zone-2 avant saisie zone-2 pendant saisie 
Indiquez ici votre age actuel : Indiquez ici votre age actuel : 
th 
: si 
& (Fj 


le click sur le bouton OK fait passer au plan d’action suivant 
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2.4 Graphe événementiel de la zone-3 


Strictement identique au précédent avec comme seule différence le fait que l’objet (bouton 
poussoir) " ok " active la zone-4. 


Aspect visuel du troisième plan d'action : 


zone-3 avant saisie zone-3 pendant saisie 


le click sur le bouton OK fait passer au plan d’action suivant. 


2.5 Graphe événementiel de la zone-4 


Table des états initiaux : 


zone-4 activé 
OK désactivé 
afficher désactivé 
Zone-5 désactivé 
Zone-6 désactivé 


Aspect visuel du quatrième plan d'action : 
zone-4 avant saisie zone-4 pendant saisie 


_ Merci de répondre : Merci de répondre : 


EE 
h 
à sit 


NS 
: | Nombre de cigarettes fumées par jour | : | Nombre de cigarettes fumées par jour 
C1à5 (26 à 30 : FC 135 (26 à 30 
C 6310 C 31 à40 C 31 à 40 
0 11 à 20 © plus de 40 ne C 11 à20 C plus de 40 


C 21 à 25 : C 21 à 25 
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le click sur le bouton OK fait passer au plan d’action suivant. &macr; 


2.6 Graphe événementiel de la zone-5 


Table des états initiaux : 


zone-6 activé 
votre âge activé 
vous fumez activé 
cigarette/j activé 
Zone-2 désactivé 
Zone-3 désactivé 
Zone-4 désactivé 


Aspect visuel du cinquième plan d'action : 
Le bouton de validation de la zone-6 est activé. 
zone-6 avant saisie zone-6 après saisie 


5 Validez vos réponses (Validez vos réponses 


Fin du séquencement des plans d’action : l’interface est remise à l’état initial. 


3. Le reste du logiciel 


Ce qui reste à décrire dans notre logiciel figure à des fins pédagogiques afin que le lecteur 
puisse voir que la notion de séquencement de plan d’action ne se limite pas à l’utilisation des 
seuls objets visuels que sont les boutons. La liaison est faite entre une autre fiche de dialogue 
permettant de saisir un mot de passe et l’activation-désactivation de zones de menu. 


3.1 Le menu lance la saisie du mot de passe 


D not depasse Remarque 


L'utilisateur clique sur la zone 
surlignée. 


Î SEUVENENQUELE 


[YDNttEr 


Le clic appelle le gestionnaire suivant : 
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procedure TForm1.Motdepasse1Click(Sender: TObject); 
{le menu affiche une fiche de saisie du mot de passe dans UFmotPasse} 


begin 
MotdePass.Showmodal; 
end; 


La fiche ci-contre ( name = 
MotdePass ) qui est dans l’unité 
UFmotPasse, est affichée en 
catégorie modale (impossible de 
cliquer ailleurs). 


S1 le mot de passe est valide, la fiche " MotdePass " se ferme et informe le menu " INS " 
en désactivant une zone (la zone mot de passe) et en activant les deux qui étaient 
inactivées au départ. 


MbdeHasse Remarque 
le séquencement d’action est assuré 
aussi de cette façon. 


Sauver enquête 
Quitter 
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Chapitre 7.5 utilisation des bases de 
données 


Plan du chapitre: Ë 


1. Introduction et Généralités 


2. Le modèle de données relationnel 


3. Principes fondamentaux d'une algèbre relationnelle 


4. SQL et Algèbre relationnelle 


5. Exemple de communication entre Delphi et les BD 


Les bases de l'informatique - programmation - (4. 05.09.2004 ) page 699 


1. Introduction et Généralités 


1.1 Notion de système d'information 


L'informatique est une science du traitement de l'information, laquelle est représentée par des 
données Aussi, très tôt, on s'est intéressé aux diverses manières de pouvoir stocker des 
données dans des mémoires auxiliaires autres que la mémoire centrale. Les données sont 
stockées dans des périphériques dont les supports physiques ont évolué dans le temps : entre 
autres, d'abord des cartes perforées, des bandes magnétiques, des cartes magnétiques, des 
mémoires à bulles magnétiques, puis aujourd'hui des disques magnétiques, ou des CD-ROM 
ou des DVD. 


La notion de fichier est apparue en premier : le fichier regroupe tout d'abord des objets de 
même nature , des enregistrements. Pour rendre facilement exploitables les données d'un 
fichier, on a pensé à différentes méthodes d'accès (accès séquentiel, direct, indexé). 


Toute application qui gère des systèmes physiques doit disposer de paramètres sémantiques 
décrivant ces systèmes afin de pouvoir en faire des traitements. Dans des systèmes de gestion 
de clients les paramètres sont très nombreux (noms, prénoms, adresse, n°Sécu, sport favori, 
est satisfait ou pas...) et divers (alphabétiques, numériques, booléens, ….). 


Dès que la quantité de données est très importante, les fichiers montrent leurs limites et il a 
fallu trouver un moyen de stocker ces données et de les organiser d'une manière qui soit 
facilement accessible. 


Base de données (BD) 


| Une BD est composée de données stockées dans des mémoires de masse sous une 
forme structurée, et accessibles par des applications différentes et des utilisateurs 
différents. Une BD doit pouvoir être utilisée par plusieurs utilisateurs en "même 

| temps". 


Base de 
données 


Une base de données est structurée par définition, mais sa structuration doit avoir un caractère 
universel : il ne faut pas que cette structure soit adaptée à une application particulière, mais 
qu'elle puisse être utilisable par plusieurs applications distinctes. En effet, un même ensemble 
de données peut être commun à plusieurs systèmes de traitement dans un problème physique 
(par exemple la liste des passagers d'un avion, stockée dans une base de données, peut aussi 
servir au service de police à vérifier l'identité des personnes interdites de séjour, et au service 
des douanes pour associer des bagages aux personnes..….…). 


Système d'information 
Dans une entreprise ou une administration, la structure sémantique des données, leur 
organisation logique et physique, le partage et l'accès à de grandes quantités de 
| données grâce à un système informatique, se nomme un système d'information. 
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sémantique données 


des données physiques 


Système 
informatique utilisateurs 
(réseau) 


Les entités qui composent un système d'information 


L'organisation d'un SI relève plus de la gestion que de l'informatique et n'a pas exactement sa 
place dans un document sur la programmation. En revanche la cheville ouvrière d'un système 
d'information est un outil informatique appelé un SGBD (système de gestion de base de 
données) qui repose essentiellement sur un système informatique composé traditionnellement 
d'une BD et d'un réseau de postes de travail consultant ou mettant à jour les informations 
contenues dans la base de données, elle-même généralement située sur un ordinateur-serveur. 


utilisateurs 


Base de 
données 


utilisateurs 


Système de Gestion de Base de Données (SGBD) 


Un SGBD est un ensemble de logiciels chargés d'assurer les fonctions minimales 
suivantes : 

a Le maintien de la cohérence des données entre elles, 

a le contrôle d'intégrité des données accédées, 

a les autorisations d'accès aux données, 

a les opérations classiques sur les données (consultation, insertion , modification, 
suppression) 


La cohérence des données est subordonnée à la définition de contraintes d'intégrité qui sont 
des règles que doivent satisfaire les données pour être acceptées dans la base. Les contraintes 
d'intégrité sont contrôlées par le moteur du SGBD : 
e au niveau de chaque champ, par exemple le : prix est un nombre positif, la date de 
naissance est obligatoire. 
e Au niveau de chaque table - voir plus loin la notion de clef primaire : deux 
personnes ne doivent pas avoir à la fois le même nom et le même prénom. 
e Au niveau des relations entre les tables : contraintes d'intégrité référentielles. 


Par contre la redondance des données (formes normales) n'est absolument pas vérifiée 
automatiquement par les SGBD), il faut faire des requêtes spécifiques de recherche 
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d'anomalies (dites post-mortem) à postériori, ce qui semble être une grosse lacune de ces 
systèmes puisque les erreurs sont déjà présentes dans la base ! 


On organise actuellement les SGBD selon deux modes : 


L'organisation locale selon laquelle le SGBD réside sur la machine où se trouve la base de 
données : 


utilisateurs 


serveur 
SGBD 


Base de 
données 


utilisateurs 


organisation locale 


L'organisation client-serveur selon laquelle sur le SGBD est réparti entre la machine 
serveur locale supportant la BD (partie SGBD serveur) et les machines des utilisateurs (partie 
SGBD client). Ce sont ces deux parties du SGBD qui communiquent entre elles pour assurer 
les transactions de données : 


utilisateurs 


Base de 
données 


SGBD 
serveur 


utilisateurs 


organisation client-serveur 


Le caractère généraliste de la structuration des données induit une description abstraite de 
l'objet BD (Base de données). Les applications étant indépendantes des données, ces dernières 
peuvent donc être manipulées et changées indépendamment du programme qui y accédera en 
implantant les méthodes générales d'accès aux données de la base, conformément à sa 
structuration abstraite. 


Une Base de Données peut être décrite de plusieurs points de vue, selon que l'on se place du 
côté de l'utilisateur ou bien du côté du stockage dans le disque dur du serveur ou encore du 
concepteur de la base. 


Il est admis de nos jours qu'une BD est décrite en trois niveaux d'abstraction : un seul niveau a 


une existence matérielle physique et les deux autres niveaux sont une explication abstraite de 
ce niveau matériel. 
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Les 3 niveaux d'abstraction définis par l'ANSI depuis 1975 


a Niveau externe : correspond à ce que l'on appelle une vue de la BD ou la façon dont 
sont perçues au niveau de l'utilisateur les données manipulées par une certaine 
application (vue abstraite sous forme de schémas) 


a Niveau conceptuel : correspond à la description abstraite des composants et des 
processus entrant dans la mise en œuvre de la BD. Le niveau conceptuel est le plus 
important car il est le résultat de la traduction de la description du monde réel à l'aide 
d'expressions et de schémas conformes à un modèle de définition des données. 


a Niveau interne : correspond à la description informatique du stockage physique des 
données (fichiers séquentiels, indexages, tables de hachage..….) sur le disque dur. 


Figurons pour l'exemple des passagers d'un avion , stockés dans une base de données de la 
compagnie aérienne, sachant qu'en plus du personnel de la compagnie qui a une vue externe 
commerciale sur les passagers, le service des douanes peut accéder à un passager et à ses 
bagages et la police de l'air peut accéder à un passager et à son pays d'embarquement. 


identification 
du passager 


examiner Implanté physiquement 


UTILISATEUR 
DOUANES 


UTILISATEUR 
POLICE de l'AIR 


Le niveau conceptuel forme l'élément essentiel d'une BD et donc d'un SGBD chargé de gérer 
une BD), il est décrit avec un modèle de conception de données MCD avec la méthode 
française Merise qui est très largement répandu, ou bien par le formalisme des diagrammes de 
classes UML qui prend une part de plus en plus grande dans le formalisme de description 
conceptuelle des données (rappelons qu'UML est un langage de modélisation formelle, 
orienté objet et graphique ; Merise2 a intégré dans Merise ces concepts mais ne semble pas 
beaucoup être utilisé ). Nous renvoyons le lecteur intéressé par cette partie aux très nombreux 
ouvrages écrits sur Merise ou sur UML. 
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Dans la pratique actuelle les logiciels de conception de BD intègrent à la fois la méthode 
Merise 2 et les diagrammes de classes UML. Ceci leur permet surtout la génération 
automatique et semi-automatique (paramétrable) de la BD à partir du modèle conceptuel sous 
forme de scripts (programmes simples) SQL adaptés aux différents SGBD du marché 
(ORACLE, SYBASE, MS-SQLSERVER....) et les différentes versions de la BD ACCESS. 
Les logiciels de conception actuels permettent aussi la rétro-génération (ou reverse 
engeneering) du modèle à partir d'une BD existante, cette fonctionnalité est très utile pour 
reprendre un travail mal documenté. 


En résumé pratique : 


Entité-association MCD Diagrammes 
Merise 2 de classes UML 


MLR (Modèle logique relationnel) 
Ou 


MLD (Modèle logique données) 


Script SQL BD ACCESS 


C'est en particulier le cas du logiciel français WIN-DESIGN dont une version démo est 
disponible à www.win-design.com et de son rival POWER-AMC (ex AMC-DESIGNOR). 


Signalons enfin un petit logiciel plus modeste, très intéressant pour débuter avec version 
limitée seulement par la taille de l'exemple : CASE-STUDIO chez CHARONWARE. Les 
logiciels basés uniquement sur UML sont , à ce jour, essentiellement destinés à la génération 
de code source (Java, Delphi, VB, C++,...), les versions Community (versions logicielles 
libres) de ces logiciels ne permettent pas la génération de BD ni celle de scripts SQL. 


Les quelques schémas qui illustreront ce chapitre seront décrits avec le langage UML. 
L'exemple ci-après schématise en UML le mini-monde universitaire réel suivant : 


un enseignant pilote entre 1 et 3 groupes d'étudiants, 

un enseignant demande à 1 ou plusieurs étudiants de rédiger un mémoire, 

un enseignant peut conseiller aux groupes qu'il pilote d'aller assister à une conférence, 
un groupe est constitué d'au moins 3 étudiants, 

un étudiant doit s'inscrire à au moins 2 groupes. 


DO D DODO 
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Travailler 2.4 


1..3 


assister à une 
LU 
conference 


conseiller 


S1 le niveau conceptuel d'une BD est assis sur un modèle de conceptualisation de haut niveau 
(Merise, UML) des données, il est ensuite fondamentalement traduit dans le Modèle Logique 
de représentation des Données (MLD). Ce dernier s'implémentera selon un modèle physique 
des données. 


Il existe plusieurs MLD Modèles Logiques de Données et plusieurs modèles physiques, et 
pour un même MLD, on peut choisir entre plusieurs modèles physiques différents. 


Il existe 5 grands modèles logiques pour décrire les bases de données. 


Les modèles de données historiques 


(Prenons un exemple comparatif où des élèves ont des cours donnés par des professeurs leur 
enseignant certaines matières (les enseignants étant pluridisciplinaires) 


e Le modèle hiérarchique: l'information est organisée de manière arborescente, 
accessible uniquement à partir de la racine de l'arbre hiérarchique. Le problème est 
que les points d'accès à l'information sont trop restreints. 


e Le modèle réseau: toutes les informations peuvent être associées les unes aux 
autres et servir de point d'accès. Le problème est la trop grande complexité d'une 
telle organisation. 
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imscnption 1 


élève 2 imscnption 2 


professeur l 


professeur 2 


professeur 4 


professeur 8 


professeur 9 


e Le modèle relationnel: toutes les relations entre les objets contenant les 
informations sont décrites et représentées sous la forme de tableaux à 2 
dimensions. 


feet | mate) | 


Dans ce modèle, la gestion des données (insertion, extraction...) fonctionne selon 
la théorie mathématique de l'algèbre relationnelle. C'est le modèle qui allie une 
grande indépendance vis à vis des données à une simplicité de description. 


e Le modèle par déduction : comme dans le modèle relationnel les données sont 
décrites et représentées sous la forme de tableaux à 2 dimensions. La gestion des 
données (insertion, extraction...) fonctionne selon la théorie mathématique du 
calcul dans la logique des prédicats. Il ne semble exister de SGBD commercial 
directement basé sur ce concept. Mais il est possible de considérer un programme 
Prolog (programmation en logique) comme une base de données car il intègre une 
description des données. Ce sont plutôt les logiciels de réseaux sémantiques qui 
sont concernés par cette approche (cf. logiciel AXON). 


e Le modèle objet : les données sont décrites comme des classes et représentées 
sous forme d'objets, un modèle relationnel-objet devrait à terme devenir le 
modèle de base. 
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L'expérience montre que le modèle relationnel s'est imposé parce qu'il était le plus simple en 
terme d'indépendance des données par rapport aux applications et de facilité de représenter les 
données dans notre esprit. C'est celui que nous décrirons succinctement dans la suite de ce 
chapitre. 


2.Le modèle de données relationnel 


Défini par EF Codd de la société IBM dès 1970, ce modèle a été amélioré et rendu 
opérationnel dans les années 80 sous la forme de SBGD-R (SGBD Relationnels). Ci-dessous 
une liste non exhaustive de tels SGBD-R : 

Access de Microsoft, 

Oracle, 

DB2 d'IBM, 

Interbase de Borland, 

SQL server de microsoft, 

Informix, 

Sybase, 

MySQL, 

PostgreSQL, …. 


Nous avons déjà vu dans un précédent chapitre, la notion de relation binaire : une relation 


binaire R est un sous-ensemble d'un produit cartésien de deux ensembles finis E et F que nous 
nommerons domaines de la relation R : 


Re ExF 


Cette définition est généralisable à n domaines, nous dirons que R est une relation n-aire sur 
les domaines E1 , E, .. , EF, si et seulement si : 


Re E$b:.:xE, 
Les ensembles Ek peuvent être définis comme en mathématiques : en extension ou en 
compréhension : 


Ex =1{12,58,36,47 } en extension 


| Ex = { x / (x est entier) et( x e [1,20] ) } en compréhension 


Notation 
si nous avons: R = { (V1,V2..., VW) }, 
Au lieu d'écrire : (V1, V2... , Ve R ,on écrira R(Vi , V2, ... , Vn) 


Exemple de déclarations de relations : 


Passager ( nom, prénom, n° de vol, nombre de bagages) , cette relation contient les 
informations utiles sur un passager d'une ligne aérienne. 


Personne ( nom, prénom) , cette relation caractérise une personne avec deux attributs 
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Enseignement ( professeur, matière) , cette relation caractérise un enseignement avec 
le nom de la matière et le professeur qui l'enseigne. 


Schéma d'une relation 

On appelle schéma de la relation R : R( a, : Ey, à : E>,..., a: E;) 

Où (ai , à ... , 4h) sont appelés les attributs, chaque attribut ak indique comment 
est utilisé dans la relation R le domaine EX , chaque attribut prend sa valeur dans le 
domaine qu'il définit, nous notons val(ak)= Vk où VK est un élément (une valeur) 
quelconque de l'ensemble Ex (domaine de l'attribut ax ). 


Convention : lorsqu'il n'y a pas de valeur associée à un attribut dans un n-uplet, on 
convient de lui mettre une valeur spéciale notée null, indiquant l'absence de valeur de 
l'attribut dans ce n-uplet. 


Degré d'une relation 
On appelle degré d'une relation, le nombre d'attributs de la relation. 


Exemple de schémas de relations : 


Passager ( nom : chaîne, prénom : chaîne, n° de vol : entier, nombre de bagages : 
entier) relation de degré 4. 


Personne ( nom : chaîne, prénom : chaîne) relation de degré 2. 
Enseignement ( professeur : ListeProf, matière : ListeMat) relation de degré 2. 


Attributs : prenons le schéma de la relation Enseignement 
Enseignement ( professeur : ListeProf, matière : ListeMat). C'est une relation binaire 
(degré 2) sur les deux domaines ListeProf et ListeMat. L'attribut professeur joue le 
rôle d'un paramètre formel et le domaine ListeProf celui du type du paramètre. 


Supposons que : 
ListeProf ={ Poincaré, Einstein, Lavoisier, Raimbault , Planck } 
ListeMat = { mathématiques, poésie , chimie , physique } 


L'attribut professeur peut prendre toutes valeurs de l'ensemble ListeProf : 
Val(professeur) — Poincaré, ..….., Val(professeur) = Raimbault 


Si l'on veut dire que le poste d'enseignant de chimie n'est pas pourvu on écrira : 


Le couple ( null , chimie }) est un couple de la relation Enseignement. 


Enregistrement dans une relation 
Un n-uplet (val(ai), val(ai) ... , val(a,)) € R est appelé un enregistrement de la 
relation R. Un enregistrement est donc constitué de valeurs d'attributs. 


Les bases de l'informatique - programmation - (4: 05.09.2004 ) page 108 


Dans l'exemple précédent (Poincaré , mathématiques), (Raimbault , poésie ) , ( null , chimie ) 
sont trois enregistrements de la relation Enseignement. 


Clef d'une relation 


Si l'on peut caractériser d'une façon bijective tout n-uplet d'attributs (ai , 42 ... , 4) 
avec seulement un sous-ensemble restreint (ax1 , 4x2 ... , xp) avec p <n, de ces 


attributs, alors ce sous-ensemble est appelé une clef de la relation. Une relation peut 
avoir plusieurs clefs, nous choisissons l'une d'elle en la désignant comme clef 
primaire de la relation. 


Clef minimale d'une relation 


On a intérêt à ce que la clef primaire soit minimale en nombre d'attributs, car il est 
clair que si un sous-ensemble à p attributs (ax , Ax2 .… , xp) est une clef, tout sous- 
ensemble à p+m attributs dont les p premiers sont les (ax1 ; ax ... , ax) est aussi une 
clef : 

(ax1 ; Ak2 .… , Akp » A0 41 ) 

(ak1 ; Ak2 ... , Akp » 410 ; As, A9 , A2 ) sont aussi des clefs etc. 


Il n'existe aucun moyen méthodique formel général pour trouver une clef primaire d'une 
relation, il faut observer attentivement. Par exemple : 


e Le code Insee est une clef primaire permettant d'identifier les personnes. 

e Si le couple (nom, prénom) peut suffire pour identifier un élève dans une classe d'élèves, 
et pourrait être choisi comme clef primaire, il est insuffisant au niveau d'un lyçée où 1l est 
possible que l'on trouve plusieurs élèves portant le même nom et le même premier 
prénom ex: (martin, jean). 


Convention : on souligne dans l'écriture d'une relation dont on a déterminé une clef primaire, 
les attributs faisant partie de la clef. 


Clef secondaire d'une relation 
Tout autre clef de la relation qu'une clef primaire (minimale) , exemple : 


Si (ai , &x2 ... , xp) est un clef primaire de R 
(ax , A2 .…, Akp > A0 A1 ) et (ax , Ak2 .. , Akp » A0 ; A5, A9 , A2 ) sont des clefs 
secondaires. 


Clef étrangère d'une relation 
Soit (ki , A2 .. , &kp) un p-uplet d'attributs d'une relation R de degré n. [ RQ ai : 
E;, & : E...., a: E)] 


Si (ax , àx2 .. , xp) est une clef primaire d'une autre relation Q on dira que (ax , 
Ak2 .…., xp) est une clef étrangère de KR. 


Convention : on met un # après chaque attribut d'une clef étrangère. 
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Exemple de clef secondaire et clef étrangère : 


Passager ( nom*# : chaîne, prénom# : chaîne , n° de vol : entier, nombre de bagages : 
entier, n° client : entier) relation de degré 5. 


Personne ( nom : chaîne, prénom : chaîne , âge : entier, civilité : Etatcivil) relation de 
degré 4. 


n° client est une clef primaire de la relation Passager. 
( nom, n° client ) est une clef secondaire de la relation Passager. 
(nom, n° client , n° de vol) est une clef secondaire de la relation Passager....etc 


(nom , prénom ) est une clef primaire de la relation Personne, comme ( nom# , 
prénom# ) est aussi un couple d'attributs de la relation Passager, c'est une clef 
étrangère de la relation Passager. 


On dit aussi que dans la relation Passager, le couple d'attributs ( nom# , prénom# ) 
réfère à la relation Personne. 


Règle d'intégrité référentielle 

| Toutes les valeurs d'une clef étrangère (Vx1 , V2 ..., Vkp) se retrouvent comme valeur 
de la clef primaire de la relation référée (ensemble des valeurs de la clef étrangère est 
inclus au sens large dans l'ensemble des valeurs de la clef primaire) 


Reprenons l'exemple précédent 
(nom , prénom ) est une clef étrangère de la relation Passager, c'est donc une clef 
primaire de la relation Personne : les domaines (liste des noms et liste des prénoms 
associés au nom doivent être strictement les mêmes dans Passager et dans Personne, 
nous dirons que la clef étrangère respecte la contrainte d'intégrité référentielle. 


Règle d'intégrité d'entité 
| Aucun des attributs participant à une clef primaire ne peut avoir la valeur null. 
Nous définirons la valeur null, comme étant une valeur spéciale n'appartenant pas à un 


domaine spécifique mais ajoutée par convention à tous les domaines pour indiquer qu'un 
champ n'est pas renseigné. 


Représentation sous forme tabulaire 


Reprenons les relations Passager et Personne et figurons un exemple pratique de valeurs des 
relations. 
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Passager ( nom*# : chaîne, prénom# : chaîne, n° de vol : entier, 
entier, n° client : entier ). 


Personne ( nom : chaîne, prénom : chaîne, âge : entier, civilité 
degré 4. 


Nous figurons les tables de valeurs des deux relations 


Passager : 
nom# prénom# | N°vol | Nbr bagages/{ N° client 
Einstein Albert 45622 2 154565 
Lavoisier |Antoine |45622 1 785154 
Raimbault | Arthur 12896 2 544552 
Poincaré Henri 45644 3 781201 
Einstein Albert 75906 null 858547 
Lavoisier |Antoine |45644 |4 235002 


Personne: 
nom | prénoi âge Civilité Rs 
Einstein Albert ||45 marié 
Lavoisier | Antoine || 41 marié 
Planck Max 52 veuf 
Raïimbault | Arthur / |25 célibataire 
Poincaré l 45 marié 


nombre de bagages : 


: Etatcivil) relation de 


Nous remarquons que la compagnie aérienne attribue un numéro de client unique à chaque 
personne, c'est donc un bon choix pour une clef primaire. 


Les deux tables (relations) ont deux colonnes qui portent les mêmes noms colonne nom et 
colonne prénom, ces deux colonnes forment une clef primaire de la table Personne, c'est 
donc une clef étrangère de Passager qui réfère Personne. 


En outre, cette clef étrangère respecte la contrainte d'intégrité référentielle : la liste des valeurs 
de la clef étrangère dans Passager est incluse dans la liste des valeurs de la clef primaire 
associée dans Personne. 


identif : Personne 
n° vol 

nbr bagages 

n° client 


nom 


prénom 
âge 
civilité 


Diagramme UML modélisant la liaison Passager-Personne 


Ne pas penser qu'il en est toujours ainsi, par exemple voici une autre relation Passager2 dont 
la clef étrangère ne respecte pas la contrainte d'intégrité référentielle : 
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| Clef étrangère , réfère Personne 


Passager? : 


nom prénom | N°vol | Nbr bagages | N° client 
Einstein Albert |45622 2 154565 
Lavoisier |Antoine |45644 1 785154 
Raimbault |Arthur 112896 12 544552 
Poincaré Henri 45644 3 781201 
Einstein Albert |75906 null 858547 
Picasso Pablo 12896 5 458023 


En effet, le couple (Picasso , Pablo) n'est pas une valeur de la clef primaire dans la table 
Personne. 


Principales règles de normalisation d'une relation 

1°° forme normale : 

Une relation est dite en première forme normale si, chaque attribut est représenté par un 
identifiant unique (les valeurs ne sont pas des ensembles, des listes...) .Ci-dessous une 


relation qui n'est pas en 1° forme normale car l'attribut n° vol est multivalué (il peut prendre 
2 valeurs) : 


nom prénom N°vol PAL N° client 
a 
Einstein Albert |45622 ,759 154565 
Lavoisier |Antoine | 45644 22 785154 
Raimbault | Arthur |12896 2 544552 
Poincaré | Henri 45644 3 781201 
Picasso Pablo 12896 5 458023 


En pratique, 1l est très difficile de faire vérifier automatiquement cette règle, dans l'exemple 
proposé on pourrait imposer de passer par un masque de saisie afin que le N°vol ne comporte 
que 5 chiffres. 


2°" forme normale : 


Une relation est dite en deuxième forme normale si, elle est en première forme normale et si 
chaque attribut qui n'est pas une clef, dépend entièrement de tous les attributs qui composent 
la clef primaire. La relation Personne ( nom : chaîne, prénom : chaîne , age : entier , civilité : 
Etatcivil) est en deuxième forme normale : 


nom prénom| âge Civilité 
Einstein Albert |45 marié 
Lavoisier |Antoine |41 marié 
Planck Max 52 veuf 
Raimbault |Arthur |25 célibataire 
Poincaré Henri 45 marié 
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Car l'attribut âge ne dépend que du nom et du prénom, de même pour l'attribut civilité. 


La relation Personne3 ( nom : chaîne, prénom : chaîne , age : entier , civilité : Etatcivil) qui a 
pour clef primaire ( nom , âge ) n'est pas en deuxième forme normale : 


nom prénom | âge Civilité 
Einstein Albert |45 marié 
Lavoisier |Antoine |41 marié 
Planck Max 52 veuf 
Raimbault |Arthur |25 célibataire 
Poincaré Henri 45 marié 


Car l'attribut Civilité ne dépend que du nom et non pas de l'âge ! Il en est de même pour le 
prénom, soit 1l faut changer de clef primaire et prendre ( nom, prénom) soit si l'on conserve la 
clef primaire (nom , âge) , il faut décomposer la relation Personne3 en deux autres relations 
Personne31 et Personne32 : 


nom âge Civilité 
Einstein 45 marié 
Lavoisier |41 marié 
Planck 52 veuf 
Raimbault |25 célibataire 
Poincaré 45 marié 

nom âge |prénom 
Einstein 45 Albert 
Lavoisier |41 Antoine 
Planck 52 Max 
Raimbault 125 Arthur 
Poincaré 45 Henri 


En pratique, 1l est aussi très difficile de faire vérifier automatiquement la mise en deuxième 
forme normale. Il faut trouver un jeu de données représentatif. 


3°" forme normale : 


Une relation est dite en troisième forme normale si chaque attribut qui ne compose pas la clef 
primaire, dépend directement de son identifiant et à travers une dépendance fonctionnelle. Les 
relations précédentes sont toutes en forme normale. Montrons un exemple de relation qui n'est 
pas en forme normale. Soit la relation Personne ( nom : chaîne, age : entier, civilité : 
Etatcivil, salaire : monétaire) où par exemple le salaire dépend de la clef primaire et que 
l'attribut civilité ne fait pas partie de la clef primaire (nom , âge) : 
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nom âge Civilité salaire 
Einstein |45 marié 1000 a. ‘ ss 
Lavoisier |41 marié 1000 ; Si 
Planck 52 veuf 1800 
Raimbault |25 célibataire |1200 
Poincaré 45 marié 1000 


L'attribut salaire dépend de l'attribut civilité, ce que nous écrivons salaire = f(civilité), mais 
l'attribut civilité ne fait pas partie de la clef primaire clef = (nom , âge), donc Personne n'est 


pas en 3°°° forme normale : 


Il faut alors décomposer la relation Personned en deux relations Personne41 et Personne42 
chacune en troisième forme normale: 


Personned41 : 


nom âge Civilité# 
Einstein 45 marié 
Lavoisier |41 marié 
Planck 52 veuf 
Raimbault |25 célibataire 
Poincaré 45 marié 
Personned42 : 

Civilité salaire 

marié 1000 
veuf 1800 


célibataire | 1200 


Personne41 en 3°"° forme 


normale, civilité clef étrangère 


Personne42 en 3°"° forme 


normale, civilité clef primaire 


En pratique, 1l est également très difficile de faire contrôler automatiquement la mise en 


troisième forme normale. 


Remarques pratiques importantes pour le débutant : 


e Les spécialistes connaissent deux autres formes normales. Dans ce cas le lecteur 
intéressé par l'approfondissement du sujet, trouvera dans la littérature, de solides 
références sur la question. 


e Si la clef primaire d'une relation n'est composée que d'un seul attribut (choix 
conseillé lorsque cela est possible, d'ailleurs on trouve souvent des clefs primaires 
sous forme de numéro d'identification client, Insee,...) automatiquement, la 
relation est en 2°"° forme normale, car chaque autre attribut non clef étrangère, ne 
dépend alors que de la valeur unique de la clef primaire. 
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Penser dès qu'un attribut est fonctionnellement dépendant d'un autre attribut qui 
n'est pas la clef elle-même à décomposer la relation (créer deux nouvelles tables). 


En l'absence d'outil spécialisé, il faut de la pratique et être très systématique pour 
contrôler la normalisation. 


Base de données relationnelles BD-R: 


Ce sont des données structurées à travers : 


Une famille de domaines de valeurs, 

Une famille de relations n-aires, 

Les contraintes d'intégrité sont respectées par toute clef étrangère et par toute clef 
primaire. 

Les relations sont en 3°" forme normale. (à minima en 2°"° forme normale) 


Les données sont accédées et manipulées grâce à un langage appelé langage 
d'interrogation ou langage relationnel ou langage de requêtes 


Système de Gestion de Base de Données relationnel : 


C'est une famille de logiciels comprenant : 


Une BD-R. 

Un langage d'interrogation. 

Une gestion en interne des fichiers contenant les données et de l'ordonnancement 
de ces données. 

Une gestion de l'interface de communication avec les utilisateurs. 

La gestion de la sécurité des accès aux informations contenues dans la BD-R. 


Le schéma relation d'une relation dans une BD relationnelle est noté graphiquement comme 


ci-dessous 


Passager Personne 


Nom 


Nom 


Prénom Prénom 


N° vol âge 
Nbr bagages civilité 
N°client 


Les attributs reliés entre ces deux tables indiquent une liaison entre les deux relations. 
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Voici dans le SGBD-R Access, la représentation des schémas de relation ainsi que la liaison 
sans intégrité des deux relations précédentes Passager et Personne : 


|__| _Nomduchamp | Type de données 
Texte 


Texte — . 
Humérique Zone de liste modifiable 


Texte @— D» Liste valeurs 


EUR 


A 
un 


"marié";"veuf";"célibataire";"divorcé";"pacs" 


Texte 
Texte 
Numérique 
Numérique 
Numérique 


Bu] Einstein _| | 45|marié | 
Bu] Lavoisier [Antoine | 41]marié | 
D] Planck _|Max | s2lveuf | 
E | 45|marié | 

25 


célibataire 


Poincaré |Henri 


Les besoins d'un utilisateur d'une base de données sont classiquement ceux que l'on trouve 
dans tout ensemble de données structurées : insertion, suppression, modification, recherche 
avec ou sans critère de sélection. Dans une BD-R, ces besoins sont exprimés à travers un 
langage d'interrogation. Historiquement deux classes de langages relationnels équivalentes en 
puissance d'utilisation et de fonctionnement ont été inventées : les langages algébriques et les 
langages des prédicats. 
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Un langage relationnel n'est pas un langage de programmation : 1l ne possède pas les 
structures de contrôle de base d'un langage de programmation (condition, itération, ..….). Très 
souvent il doit être utilisé comme complément à l'intérieur de programmes Delphi, 
Java... 


Les langages d'interrogation prédicatifs sont des langages fondés sur la logique des prédicats 
du 1” ordre, le plus ancien s'appelle Query By Example QBE. 


Ce sont les langages algébriques qui sont de loin les plus utilisés dans les SGBD-R du 
commerce, le plus connu et le plus utilisé dans le monde se dénomme le Structured Query 
Language ou SQL. Un tel langage n'est qu'une implémentation en anglais d'opérations 
définies dans une algèbre relationnelle servant de modèle mathématique à tous les langages 
relationnels. 


3. Principes fondamentaux d'une l'algèbre relationnelle 


Une algèbre relationnelle est une famille d'opérateurs binaires ou unaires dont les opérandes 
sont des relations. Nous avons vu que l'on pouvait faire l'union, l'intersection , le produit 
cartésien de relations binaires dans un chapitre précédent, comme les relations n-aires sont 
des ensembles, il est possible de définir sur elle une algèbre opératoire utilisant les opérateurs 
classiques ensemblistes, à laquelle on ajoute quelques opérateurs spécifiques à la 
manipulation des données. 


Remarque pratique : 

La phrase "tous les n-uples sont distincts, puisqu'éléments d'un même ensemble 
nommé relation" se transpose en pratique en la phrase " toutes les lignes d'une 
même table nommée relation, sont distinctes (même en l'absence de clef primaire 

| explicite)". 


Nous exhibons les opérateurs principaux d'une algèbre relationnelle et nous montrerons pour 
chaque opération, un exemple sous forme. 


Union de 2 relations 

Soient R et Q deux relations de même domaine et de même degré on peut calculer la 
nouvelle relation S = R L Q de même degré et de même domaine contenant les 
enregistrements différents des deux relations R et Q : 


KR : Q: 
nom âge Civilité / nom âge Civilité 
Einstein 45 marié D | Eupin 45 célibataire 
Lavoisier 41 marié © | Planck 52 veuf 
Planck 52 veuf Mozart 34 veuf 
Gandhi 64 célibataire 
5: 
nom âge Civilité 
Einstein 45 marié 
Lavoisier 41 marié 
Planck 52 veuf 
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Lupin 45 célibataire 
Mozart 34 veuf 
Gandhi 64 célibataire 


Remarque : (Planck, 52, veuf) ne figure qu'une seule fois dans la table R LU Q. 


Intersection de 2 relations 
Soient R et Q deux relations de même domaine et de même degré on peut calculer la 
nouvelle relation S = R © Q de même degré et de même domaine contenant les 
enregistrements communs aux deux relations R et Q : 


Q : 


. = RTE nom âge Civilité 
_—— age EE Einstein 45 marié 
Einstein 45 marié PACE 52 . 
Lavoisier 41 marié Mai 34 Re 
ERUSE E veuf Gandhi 64 célibataire 
S : 
nom âge Civilité 
Einstein 45 marié 
Planck 52 veuf 


Différence de 2 relations 

Soient R et Q deux relations de même domaine et de même degré on peut calculer la 
nouvelle relation S = R — Q de même degré et de même domaine contenant les 
enregistrements qui sont présents dans R mais qui ne sont pas dans Q ( on exclut de R 
les enregistrements qui appartiennent à R A Q): 


. ô: 

5 — ——— nom âge Civilité 

ra See RIRE Einstein 45 marié 
Einstein 45 marié Planck 52 a 
Lavoisier 41 marié Mot 34 . 
FREE 32 veuf Gandhi 64 célibataire 
S : 
nom âge Civilité 
Lavoisier 41 marié 


Produit cartésien de 2 relations 
Soient R et Q deux relations de domaine et de degré quelconques (degré(R)=n, 
degré(Q)=p), avec Domaine(R) n Domaine(Q) = © (pas d'attributs en communs). 
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On peut calculer la nouvelle relation S =R x Q de degré n + p et de domaine égal à 
l'union des domaines de R et de Q contenant tous les couples d'enregistrements à partir 


| d'enregistrements présents dans R et d'enregistrements présents dans Q : 


KR : 
nom âge Civilité 
Einstein 45 : marié km 
Lavoisier 41 marié bre 
Planck 52 veuf 920 
S 
nom âge Civilité ville km 
Einstein 45 marié Paris 874 
Einstein 45 marié Rome 920 
Lavoisier 41 marié Paris 874 
Lavoisier 41 marié Rome 920 
Planck 52 Veuf Paris 874 
Planck 52 Veuf Rome 920 


Selection ou Restriction d'une relation 
Soit R une relation, soit R( a; : Ei, a : E2,..., a: E, ) le schéma de cette relation. 
Soit Cond(a:, 42, ... , 4h ) une expression booléenne classique (expression construite 


sur les attributs avec les connecteurs de l'algèbre de Boole et les opérateurs de 
comparaison <,> ,=,>=,<=,<>) 


On note $ = select (Cond(ai, à , . 
le même schéma que R soit S( a: : Ej, a : E2,..., an : E, ), qui ne contient que les 


. ; dn) , R), la nouvelle relation S construite ayant 


enregistrements de R qui satisfont à la condition booléenne Cond(a;, 42 , ... , An). 

KR : 

nom âge Civilité ville km 
Einstein 45 marié Paris 874 
Mozart 32 marié Rome 587 
Gandhi 64 célibataire Paris 258 
Lavoisier 41 marié Rome 124 > 
Lupin 42 Veuf Paris 608 Select ({ âge > 42 et 
Planck 52 Veuf Rome 405 ville=Paris }, R ) signifie 


que l'on ne recopie dans S 
que les enregistrements de 


Cond(a:, 42 ,..., an) = { âge > 42 et ville=Paris } 


R constitués des personnes 
ayant séjourné à Paris et 


S : plus âgées que 42 ans. 
nom âge Civilité ville km 

Einstein 45 marié Paris 874 

Gandhi 64 célibataire Paris 258 


Projection d'une relation 
Soit R une relation, soit R( a; : Ei, a : E>,..., a: E;) le schéma de cette relation. 
On appelle S = proj(axi , A2 ... , Akp) la projection de R sur un sous-ensemble 
restreint (x1 , dk2 ... , dkp) avec p < n , de ses attributs, la relation S ayant pour 
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| schéma le sous-ensemble des attributs S(ax1 : Exr, ax : Ex »..., xp : Exp ) et 
contenant les enregistrements différents obtenus en ne considérant que les attributs 


(ai ; A2 ..…. , akp). 
Exemple 
KR : 
nom âge Civilité ville km 

Einstein 45 marié Paris 874 
Mozart 32 marié Rome 587 
Lupin 42 Veuf Paris 464 
Einstein 45 marié Venise 981 
Gandhi 64 célibataire Paris 258 
Lavoisier 41 marié Rome 124 
Lupin 42 Veuf Paris 608 
Planck 52 Veuf Rome 405 


S1 = proj(nom , civilité) 


S2 = proj(nom , âge) 


S3 = proj(nom , ville) 


S4 = proj(ville) 


nom Civilité nom âge nom ville ville 
Einstein | marié Einstein |45 Einstein | Paris Paris 
Mozart marié Mozart 32 Mozart Rome Rome 
Lupin Veuf Lupin 42 Lupin Paris Venise 
Gandhi célibataire Gandhi 64 Einstein | Venise 
Lavoisier | marié Lavoisier | 41 Gandhi Paris 
Planck Veuf Planck 52 Lavoisier | Rome 
Planck Rome 
Que s'est-il passé pour Mr Einstein dans S2 ? 
Einstein 4 marié Pari 874 
Einstein 4 marié Verse 981 
Einstein marié 


Lors de la recopie des enregistrements de R dans S2 on a ignoré les attributs âge, ville et km, 
le couple (Einstein , marié) ne doit se retrouver qu'une seule fois car une relation est un 


ensemble et ses éléments sont tous distincts. 


Jointure de deux relations 


Soit Soient R et Q deux relations de domaine et de degré quelconques (degré(R) = n, 
degré(Q) = p), avec Domaine(R) n Domaine(Q) = S (pas d'attributs en communs). 


soit R x Q leur produit cartésien de degré n + p et de domaine D union des domaines 


de R et de Q. 


Soit un ensemble (41, 42, ... , dn+p ) d'attributs du domaine D de R x Q. 
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| La relation joint(R,Q) = select (Cond(a:, 42 , ... , ansp ) , R x Q), est appelée jointure 
| de R et de Q (c'est donc une sélection de certains attributs sur le produit cartésien). 


Une jointure couramment utilisée en pratique, est celle qui consiste en la sélection selon une 
condition d'égalité entre deux attributs, les personnes de "l'art relationnel" la dénomment alors 
l'équi-jointure. 


Exemples de 2 jointures : 


KR : Q: 
nom âge Civilité de 5 IN ville km 
Einstein 45 marié joint(R,Q) »|\Paris 874 
Lavoisier 41 marié | / Rome 920 
Planck 52 veuf 
1°) S = select (km <900,RxQ) 
nom âge Civilité ville km 
Einstein 45 marié Paris 874 
Lavoisier 41 marié Paris 874 
Planck 52 veuf Paris 874 
2°) S = select (km < 900 et Civilité = veuf, R x Q) 
nom âge Civilité ville km 
Planck 52 veuf Paris 874 


Nous nous plaçons maintenant du point de vue pratique, non pas de l'administrateur de BD 
mais de l'utilisateur uniquement concerné par l'extraction des informations contenues dans 
une BD-K. 


Un SGBD permet de gérer une base de données. A ce titre, il offre de nombreuses 
fonctionnalités supplémentaires à la gestion d'accès simultanés à la base et à un simple 
interfaçage entre le modèle logique et le modèle physique : il sécurise les données (en cas de 
coupure de courant ou autre défaillance matérielle), il permet d'accéder aux données de 
manière confidentielle (en assurant que seuls certains utilisateurs ayant des mots de passe 
appropriés, peuvent accéder à certaines données), il ne permet de mémoriser des données que 
si elles sont du type abstrait demandé : on dit qu'il vérifie leur intégrité (des données 
alphabétiques ne doivent pas être enregistrées dans des emplacements pour des données 
numériques, …) 


Actuellement, une base de données n'a pas de raison d'être sans son SGBD. Aussi, on ne 
manipule que des bases de données correspondant aux SGBD qui les gèrent : il vous 
appartient de choisir le SGBD-R qui vous convient (il faut l'acheter auprès de vendeurs qui 
généralement, vous le fournissent avec une application de manipulation visuelle, ou bien 
utiliser les SGBD-R qui vous sont livrés gratuitement avec certains environnements de 
développement comme Delphi ou Visual Studio ou encore utiliser les produits gratuits comme 
mysql). 
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Lorsque l'on parle d'utilisateur, nous entendons l'application utilisateur, car l'utilisateur final 
n'a pas besoin de connaître quoique ce soit à l'algèbre relationnelle, 1l suffit que l'application 
utilisateur communique avec lui et interagisse avec le SGBD. 


Une application doit pouvoir "parler" au SGBD : elle le fait par le moyen d'un langage de 
manipulation des données. Nous avons déjà précisé que la majorité des SGBD-R utilisait un 
langage relationnel ou de requêtes nommé SQL pour manipuler les données. 


4. SQL et Algèbre relationnelle 


Requête 


Les requêtes sont des questions posées au SGBD, concernant une recherche 
de données contenues dans une ou plusieurs tables de la base. 


Par exemple, on peut disposer d'une table définissant des clients (noms, prénoms, adresses, 
n°de client) et d'une autre table associant des numéros de clients avec des numéros de 
commande d'articles, et vouloir poser la question : quels sont les noms des clients ayant passé 
des commandes ? 


Une requête est en fait, une instruction de type langage de programmation, respectant la 
norme SQL, permettant de réaliser un tel questionnement. L'exécution d'une requête permet 
d'extraire des données en provenance de tables de la base de données : ces données réalisent 
ce que l'on appelle une projection de champs (en provenance de plusieurs tables). Le résultat 
d'exécution d'une requête est une table constituée par les réponses à la requête. 


Le SQL permet à l'aide d'instructions spécifiques de manipuler des données à l'intérieur des 
tables : 


Instruction SQL Actions dans la (les) table(s) 
INSERT INTO <...> Ajout de lignes 
DELETE FROM =<...> Suppression de lignes 
TRUNCATE TABLE <...> Suppression de lignes 
UPDATE <...> Modification de lignes 
SELECT <...>FROM <...> Extraction de données 


Ajout, suppression et modification sont les trois opérations typiques de la mise à jour d'une 
BD. L'extraction concerne la consultation de la BD. 


Il existe de nombreuses autres instructions de création, de modification, de suppression de 
tables, de création de clefs, de contraintes d'intégrités référentielles, création d'index, etc. 
Nous nous attacherons à donner la traduction en SQL des opérateurs principaux de l'algèbre 
relationnelle que nous venons de citer. 
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Traduction en SQL des opérateurs relationnels 


C'est l'instruction SQL "SELECT <...>FROM <...>" qui implante tous ces opérateurs. Tous les 
exemples utiliseront la relation R = TableComplete suivante et l'interpréteur SQL d'Access : 


Æ TableComplete : Table 


_| nom | äge | civilité | ville | km | 
[Einstein | 45|marié 7 |Paris | 874 


Bn|Planck | 52]Veuf [Rome | 405 


Projection d'une relation R 


S = proj(axi ; 4x2 ... , xp) 
SQL : SELECT DISTINCT ax , 4x2 ... , àxp FROM R 


Instruction SOL version opérateur algèbre : Table obtenue après requête : 


SELECT DISTINCT nom  civilité FROM 
oo __[ nom | civilité 


Lancement de la requête SOL : 


gs RequêteS1 : Requête Sélection 


SELECT DISTINCT [nom], [civilité] 


FROM TableComplete; 


Planck 


[a 
FE 
[1 
[EE 
Fi 
[2 


Le mot DISTINCT assure que l'on obtient bien une 
nouvelle relation. 


Table obtenue après requête : 


Instruction SQL non relationnelle (tout même 158 RequéteS1 : Requête Séle 


redondant) : 
SELECT nom , civilité FROM Tablecomplete 


Lancement de la requête SOL : 0 > 


&8 RequêteSl1 : Requête Sélection 


SELECT [nom], [civilité] 
FROM TableComplete; 


Remarquons dans le dernier cas SELECT nom , civilité FROM Tablecomplete que la table obtenue 
n'est qu'une extraction de données, mais qu'en aucun cas elle ne constitue une relation puisqu'une relation 
est un ensemble et que les enregistrements sont tous distincts! 
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Une autre projection sur la même table : 


Instruction SOL version opérateur algèbre : 
SELECT DISTINCT non, ville FROM 
Tablecomplete 


Lancement de la requête SOL : 


gs RequêteS? : Requête Sélection 


SELECT DISTINCT [nom], [ville] 
FROM TableComplete; 


==> 


Table obtenue après requête : 


ge RequêteS2 : Requête Sél 


Venise 


Paris 


Lavoisier [Rome 
Paris 


Sélection-Restriction 
S = select (Cond(a;, 4, 


UE dn ) , R) 
SQL : SELECT * FROM R WHERE Cond(ai, & , 


s > An) 


| Le symbole * signifie toutes les colonnes de la table (tous les attributs du schéma) 


Instruction SOL version opérateur algèbre : 
SELECT * FROM Tablecomplete WHERE 
âge > 42 AND ville = Paris 


Lancement de la requête SOL : 


8 TableComplete Requête : Requête Sélection 


SELECT * FROM TableComplete 
WHERE [âge]>42 AND [ville]="Paris'" 


Table obtenue après requête : 


| | nom | âge | civilité | ville | km | 
Einstein | 45/[marié [Paris | 674 
bn] Gandhi | G4|célibataie [Paris | 258 


On a sélectionné toutes les personnes de plus de 42 ans 
ayant séjourné à Paris. 


Combinaison d'opérateur projection-restriction 


Projection distincte et sélection : 
SELECT DISTINCT nom, civilité, âge FROM 
Tablecomplete WHERE âge >= 45 


Lancement de la requête SOL : 


8 TableComplete Requête : Requête Sélection 


SELECT DISTINCT [nom], [civilité], [âge] 
FROM TableComplete 
WHERE [âge]>=45 ; 


Table obtenue après requête : 


&SE TableComplete Requête : Requête Sé 


F3 Einstein |marié 


B Gandhi |célibataire 
DPPlanck [veut 


On a sélectionné toutes les personnes d'au moins 45 ans et 
l'on ne conserve que leur nom, leur civilité et leur âge. 


Produit cartésien 
S=RxQ 
SQL : SELECT * FROM R,Q 
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Afin de ne pas présenter un exemple de table produit trop volumineuse, nous prendrons 
comme opérandes du produit cartésien, deux tables contenant peu d'enregistrements : 


_| Cnom_} prénom __civilité | || | Cnom> |  n’insee 
 [Einstpin [Albert | 45/[marié | |{ = {Univerdté | 12112472) 
L[Lavoigier [Antoine | 4f]marié | |[={Collègg | 25478550] 

ba fiInstitut| | 54578559] 


Produit cartésien : 
SELECT * FROM Employeur , Personne 


8 Employeur Requête : Requête Sélection 


Persënne.nom|_ prénom | age | civilité | Employur.nom| n°insee | 
Albert 
D] Lavoisier [Antoine | 41]maré [institut | 54578559 


Nous remarquons qu'en apparence l'attribut nom se retrouve dans le domaine des deux relations ce qui semble 
contradictoire avec l'hypothèse "Domaine(R) n Domaine(Q) = © (pas d'attributs en communs). En fait ce n'est 
pas un attribut commun puisque les valeurs sont différentes, il s'agit plutôt de deux attributs différents qui ont la 
même identification. Il suffit de préfixer l'identificateur par le nom de la relation (Personne.nom et 
Employeur.nom). 


Combinaison d'opérateurs : projection - produit cartésien 


SELECT Personne.nom , prénom, civilité, n°Insee FROM Employeur , Personne 


On extrait de la table produit cartésien uniquement 4 colonnes : 


_][ nom | prénom | civilité | n’lnsee 
L [Einstein [Albert [marié | 12112472 
L [Lavoisier [Antoine |marié | 12112472 


bn |Finstein [Albert |marié | 25478650) 
b| Lavoisier | Antoine [marié | 25478660) 
Bn|Einstein [Albert [marié | 54578680) 
D] Lavoisier [Antoine [marié | 54578669) 


Intersection, union, différence, 
S=R nr Q 
SQL : SELECT * FROM R INTERSECT SELECT * FROM Q 


S=RLUQ 
SQL : SELECT * FROM R UNION SELECT * FROM Q 


S=R-Q 
SQL : SELECT * FROM R MINUS SELECT * FROM Q 
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Jointure de deux relations 
Soient R et Q deux relations de domaine et de degré quelconques (degré(R) = n, 


La jointure joint(R,Q) = select (Cond(a, 42, ... , änsp) , R x Q). 


SQL : SELECT * FROM R ,Q WHERE Cond(ai, 42, .… , äntp) 


degré(Q) = p), avec Domaine(R) n Domaine(Q) = S (pas d'attributs en communs). 


__|[ _Cnom D | n‘Insee | __nom | prénom | n° vol [Nbr bagages 
[Université | 12112472 Einstein [Albert | 45622] 2 
L [Collège | | 25478550 Lavoisier [Antoine | 45644] 4 
bafinstitut | | 54578559 Raimbautt [Arthur | 12896) 2 
644] 3 

_______t 

_Bn __ 0 


75906| B 
| 


2 

4 

2 

Poincaré 3 
4 1 


gs Employeur Requête]Join : Requête Sélection 


SELECT * 
FROM Employeur, Passager 
WHERE Passager.[n" vol] > 20000; 


gi Employeur Requête]Join : Requête Sélection 


Les bases de l'informatique - programmation - {;4:. 05.09.2004 ) page 


__|Emibloyeur.no|  n‘Insee [Passager] prénom | n° vol [Nbr bagage N° client | 
bn {Université | 12112472/Einstein [Albert | 45622) 2] 154565) 
bn [Université | 12112472]Lavoisier 
bn | Université | 12112472]|Poincaré [Henri | 45644] 3] 781201 
b [Université Einstein _|Albert | 75906] O| 658547 
b [Université 

b|Colège 

b|Colège 

b [Collège 

b [Collège 

bn] Collège 

b [institut 

b [institut 

Bal institut 

[institut 

{institut | 54578658|Lavoisier [Antoine | 45644] 4] 235002 
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Remarque pratique importante 


Le langage SQL est plus riche en fonctionnalités que l'algèbre relationnelle. En effet SQL 
intègre des possibilités de calcul (numériques et de dates en particulier). 


Soit une table de tarifs de produit avec des prix hors taxe: 


Æ Tarifs : Table 


100 00 € 
bn|Téléviseur | 100000 € 


1°) Usage d'un opérateur multiplicatif : calcul de la nouvelle table des tarifs TTC abondés de 
la TVA à 20% sur le prix hors taxe. 


Æ Tarifs : Table 


__ Article | 
te — Requête SQL : Tarifs TTe 
bnitable |  ‘oune 
rien | 
SELECT Article , PrixHT*1.20 AS PrixTTC 
FROM Tarifs; 
__| Article | PrixTTC | 


Bnchaise |" 12 
Bnjtable | 12) 
Bn|Téléviseur 1200 


2°) Usage de la fonction intégrée SUM : calcul du total des prix HT. 


__| 7 Article | 
bchaise | 
table | 
bfTéléviseur | 


Requête SQL : Total HT 


100,00 € gË Total HT : Requête Sélection 


SELECT SUM{PrixHT] AS Total 
FROM Tarifs; 


|__| Total | 
Ib 111000€ 
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5. Exemple de communication entre Delphi et les BD 


Chaque langage permet d'une façon plus ou moins simple, d'accéder à une BD. Ce qui revient 
à dire que chaque constructeur de langage met en place sa propre solution pour qu'une 
application s'interface avec un SGBD à travers des commandes SQL ( on appelle cela une 
solution propriétaire). Du côté de l'utilisateur, l'application rend le plus transparent possible la 
navigation sous SQL. 


Delphi de Borland propose et a proposé des solutions propriétaires qui évoluent au cours du 
temps et des versions. En outre, les SGBD évoluent eux aussi, ce qui rend quasi impossible un 
choix simple et portable d'une solution standard. Enfin, 1l y a une grande différence de 
fonctionnalités entre un SGBD comme Access et Oracle ce qui ne va pas dans le sens de 
l'interopérabilité. 


Principe général à adopter lorsque l'on veut écrire une application qui accède à une base déjà 
existante. Voir dans la documentation du langage si la version du SGBD est supportée par la 
version du langage Delphi que vous comptez utiliser. Ensuite, la documentation propose une 
stratégie de communication (utilisation de certaines classes) plus adaptée au SGBD. 


Il existe parmi les choix proposés par Delphi, un moyen d'accès qui se nomme le BDE 
(Borland Data Engine) qui, bien qu'il soit en fin de vie est présent dans les versions 5, 6 et 7 
professionnelle ou architecte, entreprise client-serveur de Delphi. Les versions perso ne 
contiennent rien qui permet d'accéder aux bases de données. O.Dahan et P.Thot dans leur 
excellent ouvrage "Applications professionnelles Delphi 7 studio" parlent du BDE en tant 
qu'outil pour le monde professionnel : "le BDE n'est plus une solution d'avenir. Toutefois 
enrichi par des années d'évolution, ce produit sait rendre des services qui ne peuvent être 
satisfaits par les autres solutions disponibles. Connaître ces avantages peut vous sauver la 
mise dans certaines situations." 


Nous supposerons que vous disposez d'Access97 (contenu dans Office pro97), au minimum 
une base Access déjà existante et une version de Delphi contenant le BDE. 


L'organisation physique d'une base de données dépend du SGBD qui la gère : certaines bases 
sont physiquement représentées par un seul fichier dans lequel sont stockées toutes les tables, 
requêtes... (Microsoft Access fait cela par exemple), d'autres sont physiquement représentées 
par un dossier sur disque, et les tables, requêtes... sont stockées sous la forme de fichiers 
séparés dans ce dossier. 


5.1 Principe du BDE 

Vous pouvez accéder au BDE par le Panneau de Configuration en lançant "Administrateur 
BDE". Le BDE permet la communication de Delphi avec les Bases de données. Borland 
utilise un ensemble de DLL dans lesquelles sont codées les SGBD. 

Pour pouvoir gérer des SGBD d'autres types (par exemple Microsoft Access) vous devez 


avoir acheté les DLL nécessaires (par exemple si vous avez acheté Microsoft Access, la DLL 
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nécessaire est IDDA3532.DLL, qui est automatiquement installée sous Windows lorsque vous 
installez Access, et le BDE pourra l'utiliser). 


Il y a 2 sections dans le BDE : 


e Base de données : dans cette section, on déclare des alias de bases de données (c'est à 
dire des noms fictifs pour une base de données physique), et on indique sa position 
physique sur disque, et le type de SGBD qui peut la gérer (le type de pilote dans notre 
cas, qui est associé à un SGBD). 


Bases de données | Configuration | 


BCDEMOS 
CBä_EH_DE 

CBä_TL_DB 

dBÂSE Files 

DBDEMOS 

DefaultDD 

Données Exemplaires Xtreme 
Excel Files 

FoxPro Files 

IBLocal 

MS âccess 97 Database 
Text Files 


ajaistaiafafdraraiaiaide 


+464 


e Configuration : c'est là que les noms des pilotes sont déclarés, et associés 
physiquement aux DLL qui permettent de gérer le SGBD associé à un type donné. 


Bases de données Configuration 


Éh Pilotes 

2.6 Nat 
@ PSPRADOX 
@ DE2 
@ DBASE 
@ FOxXPRO 
@ INFORMIX 
@ INTRBASE 
@ MSACCESS 
@ MSSQL 
@ ORACLE 
@ SYBASE 

+ © ODEC 


= Système 


+ 


5.2. Les classes Delphi de communication avec les bases de données 
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Trois classes fondamentales pour qu'une application accède à une BD 


onglet BDE de la palette : 


= = 45 € 
E7 a 6 55 € 


ETTE 


Permet d'effectuer des requêtes dans une BD 


F7 TQuery 


=1 TDataBase 


Permet de connecter physiquement une application 
Delphi à un fichier de BD 


1 TTable 


Permet d'accéder à une table de la BD 


Une classe pour communiquer avec les classes précédentes et l'utilisateur 


De AM = 


onglet ControlesDB de la palette : 


ContrôleBD | 


asridéan1e 


2 TDataSource 


Permet aux composants de navigations (ceux de 
l'onglet "ControlesDB" de la palette de Delphi, 
d'accéder aux objets fournis par un Ttable ou un 


TQOuery 


Schéma de communication dans une application accédant à une BD : 


Exemple : soit une BD Access nommée BaseExercicel .mdb, contenant une table nommée 


TableClients avec 4 enregistrements : 


Tables| Requé Formu] B À 


La BD-R 
BaseExercicel .mdb 


La TableClients est composée de 4 enregistrements : 


Æ TableClients : Table | 


__[ Nom | Prénom | Adresse |" CP | 
B|ALKARTI [Joseph [3 route des Meries  |54023 Cartes 


b |BOULAIS |Syhie  |5 allée des Pins [05123 | 
L [GANZ 27 avenue St Laurent [78129 lsyfes 


Lu | PROUDON 105 rue des Platanes [45123 Mentisse 
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Dans l'application Delphi, il faut déposer un composant TDataBase que nous relions à la BD 
physique : 


On double clique sur le composant DataBase let 


— > La BD-R on obtient une fenêtre de dialogue permettant la 
DataBasel 


connexion physique. 


BaseËxercicel.mdb 


La fenêtre de dialogue obtenue : 


Base de données FExercicei.Databasel 


Base de données 


Nom d'alias : Nom de pilote : 


N | 
| rl MSäCCESS 
Défaut | 


Paramètres de connexion : 


DATABASE NäME=c:\CoursBases Exercicel \Solution\BaseE xercice « 
USER NäME= 
OPEN MODE=RESD/WRITE 
LANGDRIVER= 

SYSTEM DATABASE= 
PASSWORD= 


Inspecteur d'objets 
TDatabase 


Database 


Propriétés | Evénements | 


Nous venons de réaliser la première étape : 


Æ Fichier de Base 
= de données 


le composant DataBase1 voit la BD sous le 
pseudo-nom (alias) de UneBase. 


J SessionName 


Dans la seconde étape du travail, nous devons donner la possibilité à notre application de 
travailler avec une table de la BD, en l'occurrence ici, avec la table TableClients de 
BaseExercicel.mdb, nous déposons un composant Table1 de type TTable pour cette opération : 
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Inspecteur d'objets 
Tablel 


Propriétés | Evénements | 
…_ äutoRefresh 


TTable 


Nous venons de réaliser la seconde étape : 


Table 
le composant Table1 accède à la table 
TableClients de la BD. 


Nous terminons par la partie IHM de l'application : nous utilisons un composant de navigation 
TDBGrid qui affiche et manipule les enregistrements d'une table dans une grille tabulaire. Il 
n'est pas directement connecté au composant Tablel, nous avons vu que c'est la classe 
TDataSource qui fait la liaison entre le composant d'IHM (ici nous avons choisi TDBGrid) et 
le TTable connecté à la table TableClients dans la BD : 


Inspecteur d'objets 


DataSourcel TDataSource 


Propriétés | Evénements | 


ES 


DataSourcel 


nsessensnnese ssnssenesnnesenesesesononesssenesesenensnesesonesesénonaneses Tablel : TTable 


Inspecteur d'objets 
DEGrid1 


Propriétés | Evénements | 


re nr en TDBGrid = 


TDBGrid 


Nous avons fini le processus de mise en place de la connexion de l'application et de la 
navigation dans la table TableClients de la BD : 
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Voici l'IHM avec les 4 composants 


Exemple Accès à un BD - MS Access 


Code source Delphi 5 , 6, 7 


unit uFExercicel ; 
interface 
uses 


Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, 
ExtCtrls, DBCtris, Grids, DBGrids, StdCtrls, Mask, DBTables, Db; 


type 
TFExercicel = class(TForm) 
DBGrid1: TDBGrid; 


Table1: TTable; 

DataSourcel: TDataSource; 

Databasel: TDatabase; 

Label1 : TLabel; 

Label2: TLabel; 

procedure FormCreate(Sender: TObject); 


io. 
public Faire afficher le contenu de la Table “TableClients"' 
{ Déclarations publiques } de la base de données "BaseExercicel.mdb" dans le DBGrid suivant: 
end; | [Nom [Prénom [Adresse [EP [vile [2 
äLKERTI PE 3 route des Merles 54023 Cartes 
var | Sylvie 5 allée des Pins 05123 Teluies 
FExercicel : TFExer cicel; Kail 27 avenue St Laurent #8129 lsyfes 
App_Path:string; Amélie 105 rue des Platanes 45123 Mentisse 
implementation = 
+ f 
{$R *.DFM} 


procedure TFExercice1.FormCreate(Sender: TObject); 

begin 

App._Path:=extractfilepath(application.exename); 
DataBasel.params[0]:='DATABASE NAME='+App_Path+'BaseExercicel .mdb'; 
//paramètre dynamiquement le chemin de la base 

//Ide données (les lignes vides de paramètre doivent 

/Idéjà exister) 

/Jou alternativement à la ligne précédente: 

{DataBasel.params.values/'DATABASE NAME']:=App_Path+'BaseExercicel.mdb';} 


Les bases de l'informatique - programmation - (::. 05.09.2004 ) page 733 


DataBasel.connected:=true; /connexion sur la base de données 


/Kévidemment il faut d'abord paramétrer 


//correctement le composant DataBase1) 
Tablel.open; Ouverture de la table attachée au composant Table1 
{il faut avoir bien paramétré le composant Table lauparavant 


end; 


end. 
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Exercices chapitre 7 


Ex-1 : pilotage récapitulatif 


Nous voulons construire une interface permettant la saisie par l’utilisateur de deux entiers et l’autorisant à 
effectuer leur somme et leur produit uniquement lorsque les entiers sont entrés tous les deux. Aucune sécurité 
n’est apportée pour l’instant sur les données. 


«1 Exemple de saisie de calcul 


Entrez un entier 
Voici l'état visuel de l'interface au 
lancement du programme : Somme = 0 


Entrez un entier Pot = o 


2 zones de saisie 
2 boutons d'actions 
2 zones d'affichages des résultats Calcul EFFACER 


«1 Exemple de saisie de calcul 


Entrez un entier 
Dès que les deux entiers sont 124 
entrés, le bouton Calcul est activé: Somme = 0 


Entrez un entier Produit = 0 


EFFACER | 


Pl Exemple de saisie de calcul 


Lorsque l’on clique sur le bouton Entrez un entier 

Calcul, le bouton EFFACER est 124 

activé et les résultats s'affichent Somme = [FE 
dans leurs zones respectives : 


Entrez un entier Produit = 
RE 


EFFACER | 
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Un clic sur le bouton EFFACER ramène l'interface à l’état initial. 


Exercices BD et Delphi 


On donne la BD nommée BaseExercice.mdb et la relation TableClients ci-dessous : 


__[__Nom | Prénom | Adresse | CP | Ville 
b [ALKARTI [Joseph [3 route des Merles |54023  |Cartes 
b JBOULAIS [Sylvie |5 allée des Pins |05123  |Teluies 
B|GANZ [Ka |27 avenue St Laurent|78129  |lsyfes 
b [PROUDON [Amélie [105 rue des Platanes/[45123  |Mentisse 


Ex-2 : construire une IHM Delphi permettant d'afficher la table TableClients dans un TDBGrid , comme ci- 
desssous : 


Exemple Accès à un BD - MS Access PTE 


Faire afficher le contenu de la Table "T ableClients" 
de la base de données "BaseE%*ercicel.mdb" dans le DBGrid suivant: 


Joseph 3 route des Merles 54023 Cartes 
Sylvie 5 allée des Pins 05123 Teluies 
Karl 27 avenue St Laurent 78129 Isyfes 


ämélie 105 rue des Platanes 45123 Mentisse 


v5 


Ex-3 : construire une IHM Delphi de formulaire de saisie la table TableClients en utilisant les composant 
TDBEdit, TDBNavigator, TDBGrid , comme ci-desssous :: 


TDBNavigator 
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Formulaire de saisie 


GUDOOSESEE | 


ALT Lo 
3 route des Merles 
54023 | 


3 route des Merles 
5 allée des Pins 
27 avenue St Laurent 
| PROUDON Amélie 105 rue des Platanes 45123 Mentisse 


Ex-4 : construire une IHM Delphi de lancement d'une requête sur la table TableClients et une autre 
TableCommandes en utilisant le composant Tquery. 


La commande SQL à lancer est la suivante : 


SELECT TableClients.Nom, TableClients.Prénom, Sum(TableCommandes.Montant) 
FROM TableClients INNER JOIN TableCommandes ON TableClients.Nom = TableCommandes.Nom 
GROUP BY TableClients.Nom, TableClients.Prénom 


IHM à programmer : 


Les bases de l'informatique - programmation - (4: 05.09.2004 ) page 737 


À Traitement d'une requête | FF (OI x{ 
Ici résultat de la requête (à faire]: 


Sylvie 1 04055€ 
Karl 1491,22€ 
I PROUDON &ämélie 85715€ 


Ici affichage des tables pour information 


Table "TableClients" 


_ [Nom [Prénom [Adresse [CP [Vite [Al 


E àäLKSRTI Joseph 3 route des Merles 54023 Cartes 

1} BOULAIS Sylvie 5 allée des Pins 05123 Teluies ps 

| [Gaz Karl 27 avenue St Laurent 78123 Isyfes = 
4 + l 


Table “TableCommandes" 


L]NumeroConmende[Nem —__ [Mona | TDBGrid 


GÉNZ 123547€ 


Réaliser une requête affichant les noms et prénoms 
jl C0002 GANZ 245,15 € des clients ayant effectué une commande, 

El C0003 PROUDON 857,15€ ainsi que la somme des montants des 

| C0004 BOULAIS 562,30 € commandes passées pour chacun de ces clients 
HE C0005 BOULAIS 478,25 € sl 


Ex-5 : Soit une BD contenant des informations de produits vendus dans un commerce. La BD contient deux 
tables, une table magasin : 


Æ Magasin : Table 


CodeArticle SeuilAlerte 
20 
60 
50 
[Trousse secours |" 6] 10 
15 
20 


Et une table Prix Articles: 


Æ Prixärticles : Table 


Le champ CodeArticle est une clef primaire de chaque table 
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La commande SQL à lancer est la suivante : 


SELECT Magasin.CodeArticle, Magasin.DésignArticle, Magasin.QuantitéStock, Magasin.SeuilAlerte 
FROM Magasin ORDER BY Magasin.CodeArticle 


Construire une IHM Delphi de lancement della requête ci-dessus sur la table Magasin en utilisant le composant 


À Lancer une requête -{0/ x! 


_[Désignäticle 


jottes 20 OK 399,00 € 
| |Brosse pail dur 56 60 ALERTE! 29,90€ 
| |Savon doux 78 50 OK 23.40€ 
E Trousse secours 6 10 ALERTE 245,00 € 
| |Cirage noir 46 15 OK 34,95€ 
| | Ampoule 40w 13 20 ALERTEN! 540€ 


TDBGrid 


Constituer Queryl avec les champs de la table "Magasin: Codeärticle, Désignärticle 
QuantitéStock, Seuilälerte, puis un champ calculé "Message" et un champ référence "Prix" 


Le champ calculé "Message" contiendra le texte "ALERTENL" 
pour chaque enregistrement pour lequel QuantitéStock<=Seuilälerte, sinon le texte "OK" 


Le champ référence “Prix” provient du champ “Pris” de la table “Prixérticles" (chaque code 
article du Queryl référence le prix du code article correspondant dans 
la table “Prixärticles"] 


äfficher toutes ces informations comme suit dans le DBGrid ci-dessus 


Ex-6 : Expressions arithmétiques et arbre binaire : nous détaillons dans cet exemple, la démarche de 
création d'un programme ayant pour but de construire et de parcourir un arbre de syntaxe abstrait des 
expressions arithmétiques fondées sur une C-grammaire. 


Nous procédons par étapes séparées afin de bien faire comprendre le processus de conception du 
programme. La première étape consiste à écrire un programme d'analyse des expressions permettant 
de repérer les variables représentées par des lettres et les opérateurs. Il ne s'agit pas ici d'un processus 
lexical, mais d'un processus syntaxique déjà abordé dans le cours. 


Une fois le programme en version analyse syntaxique élaboré, nous passons à l'étape de génération de 
l'arbre binaire abstrait représentant l'expression en cours d'analyse. 


Grammaire des expressions utilisée : 


Vn = {<expr>, <terme>, <facteur>, <caractère> } 
Vi={+. , ( se * ,4 es Z} 


Axiome : <expr> 
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Règles : 


<expr : 


<facteur- : 


caractères 


<caractères> := a|b|c|.….|z 
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Solution des exercices 


Ex-1 : pilotage récapitulatif- solution complète détaillée. 


Graphe événementiel complet de l'interface 


Avec comme conventions sur les messages : 
X, = exécuter les calculs sur les valeurs entrées. 


X: = exécuter l’effacement des résultats. 


M, = message à l’editl de tout effacer. 


M, = message à l’edit2 de tout effacer. 


Table des actions événementielles associées au graphe 


Changer Calcul activable 
Edit1 (si changer Edit? a eu lieu) 


Changer Calcul activable 
EDIT2 (si changer Editi a eu lieu) 


Clic Exécuter X1 
EFFACER activable 
CALCUL Afficher les résultats 
EFFACER désactivé 
Clic CALCUL désactivé 
EFFACER Message MI 
Message M2 


Table des états initiaux des objets sensibles aux événements 


Edit1 
Edit2 


Buttoncalcul 
Buttoneffacer 
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e Nous voulons disposer d’un bouton permettant de lancer le calcul lorsque c’est possible et 
d’un bouton permettant de tout effacer. Les deux boutons seront désactivés au départ. 

e Nous choisissons 6 objets visuels : deux TEdit, Edit1 et Edit2 pour la saisie ; deux 
Tbutton, ButtonCalcul et Buttoneffacer pour les changements de plans d’action ; deux 
Tlabel LabelSomme et LabelProduit pour les résultats 


Les objets visuels Delphi choisis 


Edit1: TEdit; 

Edit2: TEdit; 

LabelSomme: TLabel; . TLabel } 1 
LabelProduit: TLabel; Entrez un entier 


ButtonCalcul: TButton; 
TE ai? 
Calcul | 


Buttoneffacer: TButton; 


EFFACER | Cao (rButton} EE à | 


Construction progressive du gestionnaire d'événement Onchange 


Nous devons réaliser une synchronisation des entrées dans Editi et Edit? : le déverrouillage 
(activation) du bouton ” ButtonCalcul ” ne doit avoir lieu que lorsque Editi et Edit2 
contiennent des valeurs. Ces deux objets de classe TEdit, sont sensibles à l’événement 
OnChange qui indique que le contenu du champ text a été modifié, l’action est indiquée dans 
le graphe événementiel sous le vocable " changer ”. 


La synchronisation se fera à l’aide de deux drapeaux binaires (des booléens) qui seront levés 
chacun séparément par les TEdit lors du changement de leur contenu. Le drapeau Som ok est 
levé par l’Edit1, le drapeau Prod_ok est levé par l’Edit2. 


Implantation : deux champs privés booléens 
Som_ok , Prod_ok : boolean:; 


Le drapeau Som_ok est levé par l’Edit1 lors du changement du contenu de son champ text, 
sur l’apparition de l’événement OnChange, il en est de même pour le drapeau Prod_ok et 
l’Edit2 : 


Implantation n°1 du gestionnaire de OnChange : 
procedure TForm1.EditiChange(Sender: TObject);| procedure TForm1.Edit2Change(Sender: TObject); 
begin begin 
Som_ok:=true; // drapeau de Edit1 levé Prod_ok:=true; // drapeau de Edit? levé 


end; end; 


Une méthode privée de test vérifiera que les deux drapeaux ont été levés et lancera 
l’activation du ButtonCalcul. 
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procedure TForml.TestEntrees; 
{les drapeaux sont-ils levés tous les deux ?} 
begin 


if Prod_ok and Som_ok then 
ButtonCalcul.Enabled:=true // si oui: le bouton calcul est activé 
end; 


Nous devons maintenant tester lorsque nous levons un drapeau si l’autre n’est pas déjà levé. 
Cette opération s’effectue dans les gestionnaires de l’événement OnChange de chacun des 
Editl et Edit2 : 


Implantation n°2 du gestionnaire de OnChange : 
procedure TForm1.EditiChange(Sender: TObject);| procedure TForm1 .Edit2Change(Sender: TObject); 
begin begin 
Som_ok:=true; / drapeau de Edit1 levé Prod_ok:=true; // drapeau de Edit? levé 
TestEntrees; TestEntrees; 
end; end; 


Construction des gestionnaires d'événement Onclick 


Nous devons gérer l’événement clic sur le bouton calcul qui doit calculer la somme et le 
produit, placer les résultats dans les deux Tlabels et activer le Buttoneffacer. 


Implantation du gestionnaire de OnClick du ButtonCalcul : 


procedure TForm1.ButtonCalculClick(Sender: TObject); 
var S , P : integer:; 
begin 
S:=strtoint(Editl.text); / transtypage : string à integer 
P:=strtoint(Edit2.text); / transtypage : string à integer 
LabelSomme.caption:=inttostr(P+S); 
LabelProduit.caption:=inttostr(P*S); 
Buttoneffacer.Enabled:=true // le bouton effacer est activé 
end; 


Nous codons une méthode privée dont le rôle est de réinitialiser l’interface à son état de 
départ indiqué dans la table des états initiaux : 


: Activé procedure TForm1.RAZTout; 


— Buttoneffacer.Enabled:=false; /le bouton effacer se désactive 
Activé ButtonCalcul.Enabled:=false; //le bouton calcul se désactive 
LabelSomme.caption:="0"; /’ RAZ valeur somme affichée 


à DZ LabelProduit.caption:="0"; // RAZ valeur produit affichée 
Edit1.clear; / message M1 
Edit2.clear; / message M2 
Prod_ok:=false; // RAZ drapeau Edir2 
Buttoneffacer | désactivé Som_ok:=false; // RAZ drapeau Edit] 
end; 


Nous devons gérer l’événement click sur le Buttoneffacer qui doit remettre l’interface à son 
état initial (par appel à la procédure RAZTout ) : 
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Implantation du gestionnaire de OnClick du Buttoneffacer: 


procedure TForml1.ButtoneffacerClick(Sender: TObject); 
begin 


RAZTout; 
end; 


Au final, lorsque l'application se lance et que l'interface est céée nous devons positionner tous 
les objets à l’état initial (nous choisissons de lancer cette initialisation sur l’événement 
OnCreate de création de la fiche): 


Implantation du gestionnaire de OnCreate de la fiche Forml: 


procedure TForm1.FormCreate(Sender: TObject); 
begin 


RAZTout; 
end; 


Si nous essayons notre interface nous constatons que nous avons un problème de sécurité à 
deux niveaux dans notre saisie : 


a Le premier niveau est celui des corrections apportées par l’utilisateur (effacement de 
chiffres déjà entrés) et la synchronisation avec l’éventuelle vacuité d’au moins un des 
champs text après une telle modification : en effet l’utilisateur peut effacer tout le contenu 
d’un " Edit " et lancer alors le calcul, provoquant ainsi des erreurs. 


a Le deuxième niveau classique est celui du transtypage incorrect, dans le cas où 
l'utilisateur commet des fautes de frappe et rentre des données autres que des chiffres (des 
lettres ou d’autres caractères du clavier). 


Améliorations de sécurité de premier niveau par plan d’action 


Nous protégeons les calculs dans le logiciel, par un test sur la vacuité du champ text de 
chaque objet de saisie TEdit. Dans le cas favorable où le champ n’est pas vide, on autorise la 
saisie ; dans l’autre cas on désactive systématiquement le ButtonCalcul et l’on abaisse le 
drapeau qui avait été levé lors de l’entrée du premier chiffre, ce qui empêchera toute erreur 
ultérieure. L’utilisateur comprendra de lui-même que tant qu’il n’y a pas de valeur dans les 
entrées, le logiciel ne fera rien et on ne passera donc pas au plan d’action suivant (calcul et 
affichage). Cette amélioration s’effectue dans les gestionnaires d’événement OnChange des 
deux TEdit. 


Implantation n°2 du gestionnaire de OnChange : 


procedure TForm1.EditiChange(Sender: TObject);| procedure TForm1.EditiChange(Sender: TObject); 
begin begin 
if Edit1.text<'" then / champ text non vide ok ! if Edit2.text<'" then / champ text non vide ok ! 
begin begin 

Som_ok:=true; Prod_ok:=true; 

TestEntrees; TestEntrees; 


end end 

else else 

begin begin 
ButtonCalcul.enabled:=false; // bouton désactivé ButtonCalcul.enabled:=false; //bouton désactivé 
Som_ok:=false; / drapeau de Editl baissé Prod_ok:=false; / drapeau de Edit2 baissé 

end end 
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On remarque que les deux codes précédents sont très proches, ils diffèrent par leTEdit et le 
drapeau auxquels ils s'appliquent. Il est possible de réduire le code redondant en construisant 
par exemple une méthode privée avec deux paramètres. 


Améliorations de sécurité de second niveau par automate de filtrage 


Nous pouvons améliorer cet état de la saisie des caractères chiffres en construisant un 
analyseur de filtrage qui ne conserve que les caractères valides tapés dans chaque TEdit. La 
syntaxe de l’entrée est fournie par le diagramme suivant : 


Nous construisons un AEFD (automate d'états finis) reconnaissant ces chiffres et il nous 
servira de système de filtrage des caractères entrés. 


L’AEFD de filtrage : 


procedure Hiltrage(entree :string;var resultat:string); 
var i:integer; 
saisie :string; 
CarValides:set of char; 
begin 
CarValides:=['0"..9"]; / les chiffres seulement 
saisie:=entree; 
if length(saisie)<0 then 
begin 
i:=1l; 
while saisie[i] in CarValides do i:=i+1; // le premier caractère non juste 
if not(saisie[1] in CarValides) then delete(saisie,i, 1); 
end; 
resultat:=saisie 
end; 


Implantation n°3 du gestionnaire de OnChange : 


procedure TForm1.EditiChange(Sender: TObject); 
var sortie :String ; 
begin 
Filtrage(Edit1.text,sortie); 
Edit1.text:=sortie; 
Som_ok:=true; // drapeau de Edit1 levé 
TestEntrees; 
end; 


procedure TForm1.Edit2Change(Sender: TObject); 
var sortie :String ; 
begin 
Filtrage(Edit2.text, sortie); 
Edit2.text:=sortie; 
Prod_ok:=true; // drapeau de Edit? levé 
TestEntrees; 
end; 
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Combinons le niveau 1 et le filtrage effectué lors de la saisie des entrées dans les 
gestionnaires d'événement OnChange des deux Tedit. Chaque changement du contenu du 
champ text d’un Edit (comme l’entrée d’un nouveau caractère) provoque le déclenchement de 
l’événement OnChange qui rejette alors les caractères non valides. 


Implantation n°4 du gestionnaire de OnChange : 


procedure TForm1.EditiChange(Sender: TObject); 
var sortie :String ; 
begin 
Filtrage(Editl1.text,sortie); 
Edit1.text:=sortie; 
if Edit1.text<" then// champs text non vide ok ! 
begin 
Som_ok:=true; 
TestEntrees; 
end 
else 
begin 
ButtonCalcul.enabled:=false; // sinon bouton désactivé 
Som_ok:=false; // drapeau de EditI baissé 
end 
end; 


procedure TForm1.Edit2Change(Sender: TObject); 
var sortie :string ; 
begin 
Filtrage(Edit2.text, sortie); 
Edit2.text:=sortie; 
if Edit2.text<" then / champs text non vide ok ! 
begin 
Prod_ok:=true; 
TestEntrees; 
end 
else 
begin 
ButtonCalcul.enabled:=false; // sinon bouton désactivé 
Prod_ok:=false; / drapeau de Edit2 baissé 
end 
end; 


En combinant la sécurité du premier et du second niveau dans le gestionnaire d’événement 
OnChange nous obtenons un niveau acceptable de sécurisation de notre logiciel grâce à son 
interface. Il nous manque encore une protection sur les débordements de calcul (dépassement 
de l’intervalle sur les integer qui ne provoquent pas d’incidents mais induisent des résultats 
erronés) pour assurer une sécurité optimale de fiabilité. 

Pour terminer la réalisation de cet exemple, nous pouvions aussi procéder à un autre genre de 
protection sans avoir à écrire un analyseur de filtrage (qui était dans ce cas un AEFD), en 
utilisant directement les facilités de protection fournies par les exceptions. 


Améliorations de sécurité de second niveau par exceptions 
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Dans cette éventualité, l'on déporte le problème de la protection non plus sur le séquencement 
des plans d’actions mais au cœur même de l’action en protégeant directement le code où 
l’erreur se produit par un gestionnaire d’exception. Afin de présenter un traitement complet de 
l’exemple nous anticipons légèrement sur le chapitre sur la programmation défensive ; le 
lecteur pourra donc en première lecture sauter ce paragraphe s’il le désire et y revenir plus 
tard. 


On fait exécuter le programme en provoquant volontairement l’erreur (on entre des lettres au 
lieu de chiffres) ; le logiciel signale la levée de l’exception EconvertError et nous 
programmons le gestionnaire associé à cette levée d’exception. Elle apparaît lorsque la 
fonction Strtolnt essaye de transtyper le champ text de l’Edit et échoue ; c’est donc cette ligne 
de code qui doit être protégée : 


try 

S:= Strtolnt(edit1.text); 
except on EconvertError do 
begin 


Edit1.text:="0"; 
S:=0 
end 
end; 
Nous avons décidé ici de mettre O0 dans le champ text de l’Editl et de forcer la valeur de la 
variable de calcul S à 0. Ce traitement est identique pour la variable P à partir du champ text 
de l’Edit2. Ces deux traitements de protection sont effectués lors du click sur ButtonCalcul 
(traitement de l’erreur après saisie). 


procedure TForm1.ButtonCalculClick(Sender: TObject); 
var S,P:integer; 
begin 
try 
S:= Strtolnt(edit1.text); 
except on EconvertError do 
begin 
Edit1.text:="0"; 
S:=0 
end 
end; 


try 

P:= Strtolnt(edit2.text); 
except on EconvertError do 
begin 

Edit2.text:='0"; 

P:=0 


end 

end; 

LabelSomme.caption:=inttostr(P+S); 
LabelProduit.caption:=inttostr(P*S); 
Buttoneffacer.enabled:=true // le bouton effacer est activé 
end; { ButtonCalculClick} 


Regroupement du code 
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Reprenons le code du premier niveau par plan d'action en le regroupant dans la méthode 
privée Autorise possédant deux paramètres, le premier est la référence d'un des deux TEdit, le 
second le drapeau booléen associé : 


procedure TForml.Autorise ( Ed : TEdit ; var flag : boolean ); 
begin 
if Ed.text<' ‘then // champ text non vide ok ! 
begin 
flag :=true; 
TestEntrees; 
end 


else 

begin 
ButtonCalcul.enabled:=false; //houton désactivé 
flag:=false; / drapeau de Ed baissé 

end 

end; 


Nouvelle implantation n°2 du gestionnaire de OnChange : 


procedure TForm1.EditiChange(Sender: TObject);| procedure TForm1.Edit2Change(Sender: TObject); 
begin begin 


Autorise ( Editl , Som_ok ); Autorise ( Edit2 , Prod_ok }); 
end; end; 


Code final où tout est regroupé dans la classe TForm1 


unit UFcalcul; 
interface 


uses 
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, ExtCtrls; 


type 
TForm1= class ( TForm ) 
Editl: TEdit; 
Edit2: TEdit; 
ButtonCalcul: TButton; 
LabelSomme: TLabel; 
LabelProduit: TLabel; 
Buttoneffacer: TButton; 
procedure FormCreate(Sender: TObject); 
procedure Edit1Change(Sender: TObject); 
procedure Edit2Change(Sender: TObject); 
procedure ButtonCalculClick(Sender: TObject); 
procedure ButtoneffacerClick(Sender: TObject); 
private / Déclarations privées } 
Som_ok , Prod_ok : boolean; 
procedure TestEntrees; 
procedure RAZTout; 
procedure Autorise ( Ed : TEdit ; var flag : boolean }; 
public / Déclarations publiques } 
end; 


implementation 
{> Méthodes privées --------------"""" À 
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procedure TForml1.TestEntrees; 
{les drapeaux sont-ils levés tous les deux ?} 
begin 
if Prod_ok and Som_ok then 
ButtonCalcul.Enabled:=true // si oui: le bouton calcul est activé 
end; 


procedure TForm1.RAZTout; 

begin 
Buttoneffacer.Enabled:=false; /le bouton effacer se désactive 
ButtonCalcul.Enabled:=false; //le bouton calcul se désactive 
LabelSomme.caption:="0"; // RAZ valeur somme affichée 
LabelProduit.caption:="0"; // RAZ valeur produit affichée 
Edit1.clear; / message M1 
Edit2.clear; / message M2 
Prod_ok:=false; // RAZ drapeau Edit2 
Som_ok:=false; // RAZ drapeau Edit1 

end; 


procedure TForm1.Autorise ( Ed : TEdit ; var flag : boolean ); 
begin 
if Ed.text<>'" then / champ text non vide ok ! 
begin 
flag :=true; 
TestEntrees; 
end 
else 
begin 
ButtonCalcul.enabled:=false; //bhouton désactivé 
flag:=false; / drapeau de Ed baissé 
end 


{> Gestionnaires d'événements ------------------ } 
procedure TForm1.FormCreate(Sender: TObject); 
begin 
RAZTout; 
end; 


procedure TForm1.EditiChange(Sender: TObject); 
begin 

Autorise ( Editl , Som_ok }; 
end; 


procedure TForm1.Edit2Change(Sender: TObject); 
begin 

Autorise ( Edit2 , Prod_ok }; 
end; 


procedure TForm1.ButtonCalculClick(Sender: TObject); 
var S , P : integer; 
begin 
S:=strtoint(Edit1.text); / franstypage : string à integer 
P:=strtoint(Edit2.text); / transtypage : string à integer 
LabelSomme.caption:=inttostr(P+S); 
LabelProduit.caption:=inttostr(P#S); 
Buttoneffacer.Enabled:=true // le bouton effacer est activé 
end; 


Les bases de l'informatique - programmation - (:6:. 05.09.2004 ) 


page 


749 


procedure TForml1.ButtoneffacerClick(Sender: TObject); 
begin 

RAZTout; 
end; 


end. 


Un gestionnaire d'événement centralisé grâce au : 
-__polymorphisme d'objet 
-__ pointeur de méthode 


Dans le code précédent, chaque Edit possède son propre gestionnaire de l'événement OnChange : 


procedure EditiChange(Sender:TObject); 


OnChange 
procedure Edit2Change(Sender:TObject); 


OnChange 


procedure TForm1.EditiChange(Sender: TObject);| procedure TForm1 .Edit2Change(Sender: TObject); 
begin begin 


Autorise ( Editl , Som_ok ); Autorise ( Edit2 , Prod_ok }); 
end; end; 


On peut aussi mettre en place un gestionnaire unique de l'événement OnChange, puis de le 
lier à chaque zone de saisie Editl et Edit2 (souvenons-nous qu'un champ d'événement est un 
pointeur de méthode) : 


procedure TexteChange(Sender:TObject); 


OnChange 


OnChange 


Nous définissons d'abord une méthode public par exemple, qui jouera le rôle de gestionnaire 
centralisé d'événement, nous la nommons TexteChange. 
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Cette méthode pour être considérée comme un gestionnaire de l'événement OnChange, doit 
obligatoirement être compatible avec le type de l'événement Onchange. Une consultation de 
la documentation Delphi nous indique que : 


property OnChange: TNotifyEvent; 


L'événement OnChange est du même type que l'événement OnClick ( TnotifyEvent = 
procedure(Sender:Tobject) of object ), donc notre gestionnaire centralisé TexteChange doit avoir 
l'en-tête suivante : 


procedure TexteChange ( Sender : Tobject ); 


Le paramètre Sender est la référence de l'objet qui appelle la méthode qui est passé 
automatiquement lors de l'exécution, en l'occurrence ici lorsque Editl appellera ce 
gestionnaire c'est la référence de Editi qui sera passée comme paramètre, de même lorsqu'il 
s'agira d'un appel de Edit2. 


Implantation du gestionnaire centralisé 


procedure TForm1.TexteChange(Sender: TObject); 
begin 
if Sender is TEdit then 
begin 
if (Sender as TEdit }=Edit1 then .. . . 
Autorise ( (Sender as TEdit }, Som_ok ) Si l'émetteur est Editl on le transtype en TEdit 
else pour pouvoir le passer en premier paramètre à la 
Autorise ( (Sender as TEdit } , Prod_ok }: méthode Autorise sinon c'est Edit2 et l'on fait la 
même opération. 


On teste si l'émetteur Sender est bien un TEdit, 


polymorphisme d'objet : 


end 
end; 


On lie maintenant ce gestionnaire à chacun des champs OnChange de chaque TEdit dès la 
création de la fiche : 


procedure TForm1.FormCreate(Sender: TObject); 
begin 
RAZTout; ; 
Edit1.OnChange := TexteChange : chaque champ Onchange pointe vers le même 
Edit2.OnChange := TexteChange ; gestionnaire (méthode) 


end; 


pointeur de méthode : 


TForm1= class ( TForm ) 
Editl: TEdit; 
procedure FormCreate(Sender: TObject); 
procedure ButtonCalculClick(Sender: TObject); 
procedure ButtoneffacerClick(Sender: TObject); 
private / Déclarations privées } 
Som_ok , Prod_ok : 
procedure TestEntrees; 
procedure RAZTout; 
procedure Autorise ( Ed : TEdit ; var flag : boolean }; 
public / Déclarations publiques } 
procedure TexteChange(Sender: TObject); 
end; 
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Ce logiciel d’interface simplifiée a permis de mettre en œuvre tous les concepts de base d’une interface à 
l’exception des temps d’attente qui ne sont pas pertinents dans cet exemple : 


les objets d’entrée-sortie sont fournis par le RAD, 

le pilotage a été réalisé à l’aide du graphe événementiel, 

l’enchaînement a été implanté à travers la synchronisation dans le graphe événementiel, 

une partie de la sécurité a été obtenue en décomposant l’interaction homme-logiciel en deux plans 
d’action : le plan de saisie et le plan de calcul-affichage. 


Corrections des exercices sur les BD (2,3,4,5) 


Rappelons que vous pourrez développer avec delphi des logiciels d’accès à une BD Access 
uniquement si vous possédez les deux logiciels suivants : 


e Le SGBD-R Microsoft Access 

e Une version de Delphi contenant le BDE ( version professionnelle, version 
développeur, version entreprise, version...) Les versions standard et gratuites dites 
personnelles, ne contiennent pas de composants de Base de Données et vous ne 
pourrez pas développer ces exercices. 


Le minimum requis pour faire fonctionner les exercices ci-après est : 
e Delphi professionnel 5 
e Access 97 
e Windows Xp 


(ils ont aussi été testés avec Delphi 7 professionnel et Access 2002 sous Xp) 


Démarche de présentation des solutions des exercices : 


e __ Nous décrivons sous forme synoptique comment créer la base de données BD. 
e Nous montrons ensuite comment gérer des alias de BD à travers le BDE de Borland 
e Puis pour chacun des 4 exercices : 

e__ Nous donnons la construction de l'interface de l'exercice avec Delphi. 

e__ Nous donnons le code source de l'exercice en Delphi. 


Décrivons d'abord pas à pas la création de la BD avec le SGBD-R Access (les images 
présentées correspondent ici à la version Access 2002). 


1°) créer une base de données (vide au départ) : 
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Affichage Insertion Outils Fenêtre 2 Tapez une question 
&RYFIiRel st. 


+ + Nouveau ee 
Ouvrir un fichier 
BaseExercice 1.mdb 
Autres fichiers. 


(F] Base de données vide 
Page vide d'accès aux données 
an Projet (données existantes) 
EN Projet (nouvelles données) 
Créer à partir d'un fichier 
existant 
11] Choisir un fichier… 
Créer à partir d'un modèle 
Modeles généraux... 
6] Modèles sur Microsoft.com 


(# Ajouter un Favori réseau. 


Aide sur Microsoft Access 
[Ml Afficher au démarrage 


= Fichier Edition Affichage Insertion Outils Fenêtre 2 Ta ne question 


DS eRnYy ieelos.E.|5.|t# s| ce fn. | @. 


Fe ee 
as! 


L4E CE 


Nous devons nommer et typer les champs de la table : 
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= Fichier Edition Affichage Insertion Outils Fenêtre 2 
E-/B4l8Ry;|imelo.c.|s 


Masque de saisie : 
Légende : Le type de données 
détermine les valeurs 
que l'utilisateur peut 
stocker dans le 
champ. Pour obtenir 
de l'aide, appuyez sur 
EL 


Aucune clé primaire n'a été définie. 


Une dé primaire est fortement recommandée, même si elle n'est pas requise, Une table doit avoir une clé primaire 
pour vous permettre de définir une relation entre cette table et d'autres tables de la base de données. 
Voulez-vous la créer maintenant ? 


Nous acceptons de définir notre clef primaire en répondant oui à cette invite. Nous définissons 
une clef primaire possédant 2 champs : le nom et le prénom. Nous sélectionnons les deux 
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lignes nom et prénom dans l’assistant de création de la table et avec le bouton droit de souris, 
nous indiquons que ces deux champs (les 2 lignes sélectionnées) constituent la clef primaire 
de notre relation : | 


Fichier Edition Affichage Insertion Outils Fenêtre 2 def primaire v 


EH &R Va Be n-c- tr + eN 6-0. 


Æ] TableClients : Tab 
| Non Texte 


Texte 
Numérique 


Liste de choix | 


La description du 
Propriétés champ est optionnelle. 
Pour obtenir de l'aide, 
appuyez sur F1. 


Access nous signale par une petite icône de clef les champs composant la clef primaire de la 
relation : 


Insertion Outils Fenêtre 2 def primaire 
melon -c-|ls#+e)eN 54.0. 
on Texte El 
[8 [Prénom Texte = 
| [Adresse Texte L | 
L [cp Numérique F2 


Dranriétés du champ 


La structuration de la table TableClients est enfin terminée et l’assistant du SGBD Access 
nous fournit la table vide prête à être saisie : 
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= Fichier Edition Affichage Insertion Format Enregistrements Outils Fenêtre 2 
N-HA eRY mel ne NA SE vIAnmEs- 


BaseExercicei : Base de données (format de fichier Access 2000) LJ0)ES 


Œouvrir £ Modifier {Nouveau | X | 20 EE 
Créer une table en mode Création 
Créer une table à l'aide de l'Assistant 
e table en entrant des données 


Voici affiché par l’interface du SGBD Access, notre table une fois remplie manuellement : 
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- Fichier Edition Affichage Insertion Format Enregistrements Outils Fenêtre 2 


M-IHalenRyiimels|leiurlvavialr*x|E 4. 


Æ]J Créer une table en mode Création 
Créer une table à l'aide de l'Assistant 
Créer une table en entrant des données 


Joseph 3 route des Mei 54023 Cartes 
Sylvie 5 allée des Pins 5123 Teluies 
Karl 27 avenue St Li 78129 Isvfes 

| |[PROUDON Amélie 105 rue des Ple 45123 Mentisse 


+] 0 
Enr: 141 4 | 5 D {b1{>X#] sur 5 


Cette BD est sauvegardée sous le nom : BaseExercice1.mdb 


Æ TableClients : Table 


[Nom | Prénom | Adresse |" CP 
BALKARTI [Joseph [3 route des Merles |54023 
BBOULAIS  |Syhie [5 allée des Pins 105123 
D |GANZ [Karl [27 avenue St Laurent |78129 
|PROUDON [Amélie [105 rue des Platanes [45123 


Cartes 
Teluies 
Isyfes 
Mentisse 


2°) Gestion des alias de BD à travers le BDE 


Nous nous servons du moteur de base de données appelé le BDE de Borland pour accéder à 
notre base Access à partir d’un programme Delphi. Nous utilisons l’outil d’administration du 
BDE nommé « Administrateur BDE » mis à disposition par Delphi dans le dossier « Panneau 
de configuration ». Il est alors possible de paramétrer (établir la connexion physique avec la 
BD) le BDE directement grâce à l'administrateur du BDE fournit avec Delphi : 
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Eichier Edition Affichage Favoris Outils 2? 


Q Précédente + © æ # Rechercher Ç> Dossiers HF& 


Adresse C Panneau de configuration 


2 \ EN Affichage 
M Panneau JC 8 % Ajout de matériel 
Basculer vers l'affichage des ï Th Ajout/Suppression de programmes 
catégories a serre des tâches et menu Démarrer 
Sp Clavier 
RENE . en Comptes ra 
Lei Connexions réseau 


Dans le cours les exemples ont utilisé un pilote dit natif "MSACCESS" fourni par Borland et 


paramétrant le BDE à partir du composant TDatabase. Dans les exercices, nous allons utiliser 
un autre genre de pilote de type ODBC (l'Open Data Base Connectivity est un standard 


d'accès aux BD) de Microsoft à la place du pilote natif fourni. 


Nous appelons l'administrateur du BDE à partir du panneau de configuration (cf. chap 7.5), 


puis nous demandons à créer un nouvel alias de connexion physique par pilote ODBC : 


Objet Edition Voir Options Aide 


œ X «© Ca 


Tous les alias de bases de données 


Bases de données | Configuration | 


Pilotes ODBC | Traçage | 


dBàSE Files 
DBDEMOS 
Default DD 
Fichiers Excel 

H-88 IBLocal 

“6 MS âccess Database 


Sources de données utilisateur : 


# 
En 
aide 


dBASE Files 


Bouton droit 
de|souris 


Rafraichir Ctri+R 


Nouveau... Ctri+N 


Microsoft dBase Driver (*.dbf) 
Fichiers Excel Microsoft Excel Driver (xs) 
MS BEBE Microsoft Access Driver (.mdb) 


Groupement de connexions | 


clicker sur 
Ajouter 


À propos 


Sources de données utilisateur | Sources de données système | Sources de données fichier | 


Une source de données utilisateur ODBC stocke des infomations relatives à 
| la connexion du foumisseur de données spécifié. Elle est visible uniquement 
pour vous et sur cette machine. 


Ouvrir configuration. 
Fusionner configuration... 


Enregistrer configuration sous... 
Options. 


Nous ajoutons dans l’onglet « Sources de données utilisateur » notre BD 


«BaseExercicel.mdb » 


a) en sélectionnant le pilote ODBC fourni par Microsoft dans Access, dénommé « Microsoft 


Access Driver » 
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Créer une nouvelle source de données 3 


Sélectionnez un pilote pour lequel vous souhaitez définir une source 
de données. 


Driver da Microsoft pars arquivos texto (bd; * csv) 4.00.6019/ 4 
Driver do Microsoft Access (* mdb) 4.006019] = 
Driver do Microsoft dBase (*.dbf) 4.00.6019= 
Driver do Microsoft Excel(* xis) 4.00.6019 
Driver do Microsoft Paradox (*.db } 4.00.6018 
Driver para 0 Microsoft Visual FoxPro 1.00.02.0 
Microsoft Acc 4.00.6019 
Microsoft AÉCRRS- Fr { mdb} 4.00. 601%) | 


nm mti mm Mcsms 1e JL 4 NN PAANE 


«< ] Il | 2) 


< Précédent 


b) en reliant ce pilote avec un nom d’alias que nous choisissons (ici : MaBase) et notre BD 
« BaseExercicel.mdb » dont nous donnons le chemin physique précis : 


Donner un nom personnel (alias) pour le BDE 
à votre Base de Données 


Installation ODBC pour Microsoft Acée: 


nement 


Indiquez le chemin complet de votre BD 
en cliquant sur le bouton Sélectionner. 


f° Aucun 
( Base de données : 


Base de données systeme. 


La fenêtre d’administration de sources de données ODBC a enregistré notre nouvelle Base 
avec son nom « MaBase » : 
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Pilotes ODBC | Traçæe | | 


Sources de données utilisateur | Sources de données système | Sources de données fichier | 


Sources de données utilisateur : 


dBASE Filles 
Fichiers Excel 


Microsoft dBase Driver (*.dbf} 
Microsoft Excel Driver (xls) 
base Microsoft Access Driver (* mdb) 
MS Acceës Database Microsoft Access Driver ( mdb} 


L'administrateur du BDE contient et affiche maintenant une BD nouvellement accessible qui 
se dénomme « MaBase » : 


Objet Edition Voir Options Aide 


e Xn ca 


Tous les alias de bases de données 


Définition de Mabase 


Bases de données | Configuration | Définition | 


É | Bases de données Type Microsoft Access Driver (* mdb] 
+ dBASE Files BATCH COUNT 200 
DEDEMOS BLOB SIZE 32 

DefaultDD BLOBS TO CACHE 64 

Fichiers Excel DATABASE NAME 

IBLocal EN&BLE BCD FâLSE 

t e ENSBLE SCHEMA CACHE FâLSE 
LäNGDRIVYER 

M£X ROWS 1 

ODBC DSN Mabase 
OPEN MODE RESD/WRITE 
RO\WSET SIZE 20 

SCHEMS CACHE DIR 


+ 


[ 
L 


Lt 


MS Access Database 


[ 
L 


ajaiitaidarai 


SCHEM£ CACHE SIZE 
SCHEM CACHE TIME 
SGLPASSTHRU MODE 
SOLORYMODE 

USER NME 


8 
1 
SHARED AUTOCOMMIT 


Ces opérations terminées, la BD « BaseExercicel.mdb » est dès lors utilisable sous le nom 


MaBase par des programmes Delphi en consultation ou en mise à jour. 


Ex-2 : construire une IHM Delphi - consultation 


3°) construction de l’interface de consultation de la BD en Delphi 
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La démarche complète de création de l’interface avec Delphi se trouve au paragraphe 5.3.2 du 
chapitre 7.5 sur l’utilisation des bases de données. 


&ccèsBD ContrôleBD | dbExoress | BDE | ADO | InterBase | Intemet | Dialogues | Win 3. 


CRC ENS PEFRELLEER 


dbExoress BDE | ADO | InterBase | Interne 


IÆÆ = F— C4 = — 
ù F7 4 3? N = 


Sustème AccèsBD | ContrôleBD | 


TDBGrid FE in TER 


TDatabase 


TTable 


Lu 
TDataSource 


Parmi les 4 composants précédents un seul est un composant visuel le TDBGrid : 


Pour préparer le programme, 1l nous faut relier le TDataBase à la base de données physique 
(cela est fait à travers le BDE) : 
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Propriétés | Evénements | 


&liasName 

Connected False 
DatabaseName |MaBase 
DriverName 

Exclusive False 
HandleShared False 
KeepConnection | True 
LoginPrompt False 


Pour effectuer cette liaison, il nous suffit de 
donner dans le champ DataBaseName du 
TDataBase, le nom de l’alias que nous avons 
utilisé dans le BDE : «MaBase » 


Name Databasel 
Params [T Strings] 
ReadOnly False 
SessionName Default 
Tag (il 


Translsolation tiReadCommitted 


Tous affichés 


Comme nous voulons afficher la table « TableClients », 1l nous faut utiliser le composant 
TTable qui permet d'accéder aux données d'une table de base de données en utilisant le BDE ; 
Il faut indiquer au TTable quelle est le nom de la BD à laquelle il doit être connecté et la 
table de cette base à laquelle 1l doit être relié : 


Inspecteur d'objets {x 
Tablel M 
Propriétés | Evénements | 
DatabaseName |Mabase _ 
Le champ DataBaseName du TTable contient sance ls 
. u . xclusive False 
le nom (alias) de la BD à laquelle il est FieldDefs (TFieldDefs) 
connecté. Filter 
Filtered False 
FilterOptions [l 
IndexDefs (TIndexDefs] 
IndexFieldNames 
IndexFiles [TIndexFiles) 
Le champ TableName du TTable contient le pesane. 4 
nom de la table à laquelle il est relié MasterSource 
Name Tablel 
ObijectVieu False 
ReadOnly False 
SessionWName 
StoreDefs False 
TableName TableClients 
TableType ttDefault v| 
Tous affichés / 
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Le TDataSource est relié à la fois à la table à afficher à travers le TTable et au composant 


visuel d’affichage le TDBGrid: 


Le TDataSource 


Le TDBGrid 


Inspecteur d'objets x 


DataSourcel 


Propriétés | Evénements | 


AutoE dit True 
DataSet Tablel 
Enabled True 
Name DataSourcell| 
Tag (I 


Tous affichés 


Exploration de UexoBD1.pas Inspecteur d'objets | 


DBGridi TDBGrid Y 
Propriétés | Evénements | 

ÆAnchors [akLeft,akT op] pq 
BiDiMode bdLeftT oRight 
BorderStyle bsSingle - | 
Color [C1$00CECE9D 
Columns [TDBGridColumns] “H 

Constraints [TSizeConstraints] 
Ct3D True 
Cursor cDefault 

DataSource DataSourcel 
DefaultDrawing True 
DragCursor crDrag 
DragKind dkDrag 
DraaMode dmManual “) 


Tous affichés 


4°) Code source delphi pour l’affichage du contenu de la table de la BD 


unit uFExercicel; 
interface 


uses 


Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, 
ExtCtris, DBCtris, Grids, DBGrids, StdCtrls, Mask, DBTables, Db; 


type 

TFExercicel = class(TForm) 
DBGrid1: TDBGrid; 
Table1: TTable; 
DataSourcel: TDataSource; 
Databasel: TDatabase; 
Label1 : TLabel; 

Label2: TLabel; 


procedure FormCreate(Sender: TObject); 


private 

{ Déclarations privées } 
public 

{ Déclarations publiques } 
end; 


var 
FExercicel : TFExercicel; 


App_Path:string; 


implementation 
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{$R *. DFM} 


Exemple Accès à un BD - MS Access -10/ x! 


Faire afficher le contenu de la Table “TableClients" 
de la base de données "BaseExercicel.mdb" dans le DBGrid suivant: 


LC ALKARTI AE 3 route des Merles 54023 Cartes 

| | BOULAIS Sylvie 5 allée des Pins 05123 Teluies 

| | GäNZ Karl 27 avenue St Laurent 78129 Isyfes 

| | PROUDON  mélie 105 rue des Platanes 45123 Mentisse 


+ 
4 > 


procedure TFExercice 1.FormCreate(Sender: TObject); 

begin 

DataBasel.connected:=true; /connexion sur la base de données 
/Kévidemment il faut d'abord paramétrer 

{correctement le composant DataBase1) 

Tablel.open; /Ouverture de la table attachée au composant Table1 

“(il faut avoir bien paramétré le composants Table lauparavant 

end; 


end. 


Nous remarquons que le code est très court; ce sont les composant qui font tout le travail 
parce qu'ils ont été paramétrés pendant la conception. 


Autre solution de code : le paramétrage des composants lors de la création de la fiche 


Dans cette deuxième éventualité, le TDataBase et le TTable ne sont pas paramétrés lors du 
dépôt visuel comme dans les schémas présentés c1-haut lors de la conception grâce à 
l'inspecteur d'objets. 


Ils sont paramétrés directement par programmation, pendant l'exécution et lors de la survenue 
de l'événement de création de la fiche : 


procedure TFExercice1.FormCreate( Sender: TObject) ; 
begin 
DataBase1.DatabaseName :='MaBase'; 
DataBasel.connected := true ; //connexion sur la base de données 


Table1 .DatabaseName := 'MaBase'; 

Table1.TableName :='TableClients'; 

Tablel.open ; //Ouverture de la table attachée au composant Table1 
end; 


Ceci montre que ces composants peuvent, pendant l'exécution être paramétrés à nouveau sur 
une autre BD existante et jouer leur rôle d'accès à cette nouvelle base. 


Pour les exercices suivants, nous ne paramétrerons pas le TDataBase et le TTable lors de la 
conception, mais par programme comme indiqué dans ce paragraphe. 
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Ex-3 : construire une IHM Delphi - navigation 


3°) construction de l’interface de navigation dans la BD en Delphi 


Formulaire de saisie dans une BD 


méoneide saisie nee] 


| De 


[=== 


- Réaliser un formulaire de saisie de la Table - - - 


| des Clients "TableClients" de la base de données 


Le TDataSource est relié à la fois à la table à afficher à travers le TTable et au composant 


visuel d’affichage le TDBGrid. Le TDataBase est relié à la base de données physique 


comme dans l'exercice précédent. 


Les quatre TDBEdit représentent des contrôles de saisie pouvant afficher et modifier les 
valeurs d'un champ de la BD. Chacun d'eux est relié par sa propriété DataSource au 
composant TDataSource (nommé DataSourcel) : 


Inspecteur d'objets 


[DBE dirt: TDBEdit =# | 


Propriétés | Evénements | 


BorderStyle  |bsSingle ñ 

CharCase | ecNormal 

Color Clctwhite 
Constraints  |(TSizeConstraints] 

Cursor crDefault 

DataField Nom 


IDataSourcel 


DataSource 
DragCursor  |crDrag 

DragKind dkDrag 

DragMode | dmbanual 

Enabled True etc … 
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Le TDBNavigator est un contrôle utilisé pour se déplacer dans une BD afin d'effectuer des 
actions sur les données(suppression, modification, insertion,.…), il est relié par sa propriété 


DataSource au même composant TDataSource (nommé DataSourcel1) que les TDBEdit et le 
TDBGrid : 


Inspecteur d'objets 


[DENavigatort: TDBNavigator me | 


Propriétés | Evénements | 


Align alone 
Häénchors [akLeft,akT op] 

ConfirmDelete True 
Constraints [TSizeConstraints] 
Cursor 
DataSource 
DragCursor 
DragKind dkDrag 
DragMode dmbianual 
Enabled True 


| > 


4°) Code source delphi pour la navigation dans la table de la BD 
unit UBDExo2 ; 
interface 


uses 
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, 
StdCtris, Grids, DBGrids, ExtCtris, Mask, DBCtrls, Db, DBTables ; 


type 

TFormi = class (TForm) 
DBGrid1 : TDBGrid ; 
Labell : TLabel ; 

Label? : TLabel ; 

Labeld : TLabel ; 

LabelS : TLabel ; 

Label6 : TLabel ; 
GroupBoxl : TGroupBox ; 
DBNavigatorl : TDBNavigator ; 
DBEditi : TDBEdit ; 
DBEdit2 : TDBEdit ; 
DBEdit3 : TDBEdit ; 
DBEdit4 : TDBEdit ; 
DBEdits : TDBEdit ; 
Label7 : TLabel ; 

Label8 : TLabel ; 

Label9 : TLabel ; 

Label10 : TLabel ; 

Label11 : TLabel ; 

Bevell : TBevel ; 

Databasel : TDatabase ; 
Tablel : TTable ; 
DataSourcel : TDataSource ; 
procedure FormCreate( Sender: TObject) ; 
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private 
{ Déclarations privées } 
public 
{ Déclarations publiques } 
App_Path :string ; 

end; 


var 
Formi : TForml ; 


implementation 
{$R *.DFM} 


procedure TForml.FormCreate( Sender: TObject) ; 
begin 
DataBasel.DatabaseName :='MaBase'; 
DataBasel .connected := true ; //connexion sur la base de données 


Table1.DatabaseName := 'MaBase'; 

Table1.TableName :='TableClients'; 

Tablel.open ; //Ouverture de la table attachée au composant Table1 
end; 


end. 


De la même manière que dans l'exercice précédent, le TDBEdit et le TDBNavigator ont été 
paramétrés pendant la conception. Ils peuvent aussi être paramétrés par programme pendant 
l'exécution. 


Autre solution de code : le paramétrage des composants lors de la création de la fiche 


procedure TForml.FormCreate( Sender: TObject) ; 
begin 
DataBasel.DatabaseName :='MaBase'; 
DataBasel.connected := true ; //connexion sur la base de données 
DBNavigator1.DataSource := DataSourcel ; 
DBEdit1.DataSource := DataSourcel ; 
DBEdit2.DataSource := DataSourcel ; 
DBEdit3.DataSource := DataSourcel ; 
DBEdit4.DataSource := DataSourcel ; 
DBEditS.DataSource := DataSourcel ; 
Table1.DatabaseName := 'MaBase'; 
Table1.TableName :='TableClients'; 
Tablel.open ; //Ouverture de la table attachée au composant Table1 
end; 


Ex-4 : Affichage des résultats d'une requête 


3°) Requête affichant nom, prénom et montant des achats 
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Avec Access, dans notre BD nous ajoutons une seconde table : TableCommandes, qui 


contient les achats effectués par les personnes rangées dans la base (considérées comme des 
acheteurs) : 


Microsoft Access 


| Fichier Edition Affichage Insertion Format Enregistrements Outils Fenêtre ? 


IM-HeRYises -|[eelAUYAvMr-*x 54-|0Q 


ëE BaseExercice1 : Base de données Le) 
Æ] Tables | A Requêtes | Formulaires) D États | & Macros | 8 Modules | 


TableClients Ouvrir | 
TableCommandes Modifier | 


Æ TableCommandes : Table EEK) Nouveau | 


__[N° Commande, Nom | Montant 
__|co001 ___]GANZ |  123547€ 
_|C0002 ___|GANZ | 24575€ 
_|C0003 ___[PROUDON | #5715€ 
__|C0004 __ BOULAIS | 56230€ 
GITE HOUSSE 
a | in 


Enr: 14] 4 [ 6 [o1fr +] sur 6 


Mode Feuille de données | | | | ml | 


L'interface de l'exercice, dans laquelle aucun des composants déposés n'est paramétré lors de 


la conception, mais programmé pendant l'exécution afin que le lecteur puisse réutiliser le code 
source. 


4°) Code source delphi de l'exercice 
unit UBDEXxo3 ; 
interface 


uses 
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, 
DBTables, StdCtris, ExtCtris, Db, Buttons, Grids, DBGrids ; 


type 

TFormi = class (TForm) 
DBGrid3 : TDBGrid ; 
DBGrid2 : TDBGrid ; 
DBGridi : TDBGrid ; 
SpeedButton? : TSpeedButton ; 
SpeedButtonl : TSpeedButton ; 
Databasel : TDatabase ; 
TableClients : TTable ; 
DSTableClients : TDataSource ; 
TableCommandes : TTable ; 
DSTableCommandes : TDataSource ; 
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Bevell : TBevel ; 
DataSourcel : TDataSource ; 
Labeld : TLabel ; 
LabelS : TLabel ; 
Label3 : TLabel ; 
Labell : TLabel ; 
Label? : TLabel ; 
Label6 : TLabel ; 
Queryl : TQuery ; 
Label7 : TLabel ; 
Label8 : TLabel ; 


* Traitement d'une requête 


. . 


: : Ici résultat de la requête (lancer la re 


procedure SpeedButton2Click( Sender: TObject) ; 
procedure SpeedButton1Click( Sender: TObject) ; 
procedure FormCreate( Sender: TObject) ; 
private 
{ Déclarations privées } 
public 
{ Déclarations publiques } 
App_Path :string ; 
end; 


var 
Formi : TFormi ; 


implementation 
uses uFAffichage3 ; 


{$R *.DFM} 
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// Affiche dans un Tmemo le contenu du Tstrings Query.SQL (le texte de la requête) 
procedure TForml.SpeedButton2Click( Sender: TObject) ; 
begin 
FAffichage3.memol.lines.assign(Query1.SQL) ; 
FAffichage3.showmodal ; 
end; 


procedure TFormli.SpeedButton1Click( Sender: TObject) ; 
begin 

Query1.open ; // lance la requête incluse dans le champ SQL du TQuery 
end; 


procedure TFormli.FormCreate( Sender: TObject) ; 
begin 
DataBasel.DatabaseName := 'MaBase'; 
DataBasel.connected := true ; //connexion sur la base de données 


TableClients.DatabaseName := ‘MaBase'; 

TableClients.TableName := ‘TableClients'; 

TableClients.open ; //Ouverture de la table attachée au composant : TableClients 
DSTableClients.DataSet := TableClients ; // liaison TDBGrid <--> TTable 
DBGrid2.DataSource := DSTableClients ; 


TableCommandes.DatabaseName := ‘MaBase'; 

TableCommandes.TableName := ‘TableCommandes'; 

TableCommandes.open ; //Ouverture de la table attachée au composant : TableCommandes 
DSTableCommandes.DataSet := TableCommandes ; // liaison TDBGrid <--> TTable 
DBGrid1.DataSource := DSTableCommandes ; 


Query1.DatabaseName :='"MaBase'; 

Query1.SQL.Clear ; 

Query1.SQL.Append('SELECT TableClients.Nom, TableClients.Prénom, ‘ + 

‘Sum(TableCommandes.Montant)' ) ; 

Query1.SQL.Append( FROM TableClients INNER JOIN TableCommandes' + 
ON TableClients.Nom = TableCommandes.Nom' ) ; 

Query1.SQL.Append('GROUP BY TableClients.Nom, TableClients.Prénom') ; 

DataSourcel1.DataSet := Query1 ; // liaison TDBGrid <--> TQuery 

end; 


end. 


Ex-5 : Affichage des résultats calculés d'une requête 


3°) Requête et affichage de résultats calculés 
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Microsoft Access MALE 
| Fichier Edition Affichage Insertion Format Enregistrements Outils Fenêtre 2 


IM-_HeaRy imes-|e@l4z ve T7 k Dä- 0 


EE BaseExercice6 : Base de données Se) 
Tables | Requêtes) Formulair] D États | Æ Macros | PS Modules | 


Magasin Ouvrir | 
Prixärticles ” 

mur — — — ME Magasin Table [= [OX] 
RMC OEREU TEE) PTécdennicie | Désignartice [ouanttéstock SeullAlere | 
__| CodeArticle | Prix | Fpfasoon  [Botes [| 18] 20 
| -[  3%00F)) M [anoo2  [Brossepoidur | 55 60 
__[A0002  [2990F]) M fanoos  [Savondour [| 78 50 
__| 0003] 2340F)) M [anooa [Trousse secours [| 6] 10 
__[aoo04 |" 24500F ns — jun #6 
__[A0005 |" 34% fn PT 
CJaoow | __ 540rFÎN+ 
AL 000 EE 0 pi pl sur 6 


Mode Feuille de données 


Si l'on lance la requête SQL demandée : 


SELECT Magasin.CodeArticle, Magasin.DésignArticle, Magasin.QuantitéStock, Magasin.SeuilAlerte 
FROM Magasin ORDER BY Magasin.CodeArticle 


vers un TDBGrid comme dans l'exemple précédent, voici ce qui sera affiché : 


Codeërticle Désignärticle QuantitéStack 


Bottes L _ 

Brosse poil dur 56 - 
Savon doux F8 50 
Trousse secours 6 10 
Cirage noir 


En fait l'énoncé nous demande à partir de la requête précédente de supprimer à l'affichage la 
colonne "CodeArticle" et d'ajouter deux colonnes en plus, l'une appelée "Message" est 
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obtenue par calcul sur le niveau du seuil d'alerte, l'autre nommée "Prix" correspond au prix de 
chaque "Article" contenu dans la table "TablePrix" : 


| [Désignärticle QuantitéStock |Seuilëlerte Message [Pix | 


b{Bottes 157 20 OK 399.00 € 
E Brosse poil dur 56 60 ALERTEI 29,30€ 
|| Savon doux 78 50 OK 23.40€ 
| [Trousse secours 6 10 ALERTE 245,00 € 
| |Cirage noir 46 15 OK 34,35€ 
| [Ampoule 40w 13 20 ALERTEI 5,40€ 


M 
Il faut donc créer des données intermédiaires permettant ce dernier affichage sur 5 colonnes. 


Au lieu d'envoyer directement dans un TDBGrid le résultat de la requête << SELECT 
Magasin.CodeArticle, Magasin.DésignArticle, Magasin.QuantitéStock, Magasin.SeuilAlerte FROM Magasin ORDER BY 


Magasin.CodeArticle >>, nous l'envoyons dans des objets de champ persistant Delphi (cf. doc 
Delphi). 


Un objet de champ persistant est en première approximation un moyen souple de stocker des 
informations de données, il est équivalent à une sorte de variable locale pour les données de la 
BD. 


Il nous faut créer 6 objets de champ persistant : 4 pour le résultat de la requête + 1 pour le 
champ Prix de la TablePrix + 1 nouveau pour le message d'alerte. Chaque champ a un type 
correspondant exactement au type de données du champ de la BD associée (TstringField pour 
du texte, TintegerField pour du numérique, TcurrencyField pour du monétaire). 


Query1CodeArticle: TStringField; 
Query1DsignArticle: TStringField; 
Query1QuantitStock: TIntegerField; 
Query1SeuilAlerte: TIntegerField; 
Query1Message: TStringField; 
Query1Prix: TCurrencyField; 


La documentation Delphi indique comment créer par programme de tels champ, par exemple 
ci-dessous la création de l'objet Query 1ICodeArticle: TStringField; lié au Tquery : Queryl1 : 


Query1.Close; 

Query1DsignAtticle:= TStringField.Create(Self); / self représente la Tform de dépôt du Query1 
Query1DsignArticle.FieldName := 'DesignArticle'; 

Query1DsignArticle.Index := Query1.FieldCount; 

Query1DsignArticle.DataSet := Queryl; 

Query1.FieldDefs.UpDate; 

Query1.0pen; 


Il en est de même pour les 5 autres objets de champ. Delphi permet une création directement 


pendant la conception par double click sur le composant Query1, une interface de saisie d'une 
liste d'objets de champ apparaît. Ci dessous la liste obtenue après saisie des 6 objets : 
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FExercice4.Query1 


QuantitéStack 
Seuilëlerte 
Message 

Prix 


Le premier objet de champ est saisi comme suit : 


Nouveau champ 


- Propriétés du champ 


Nom: ÎCodedticle Composant : [Guest Codeärticle 
Type : [String + | Taille : [20 


- Type de champ 


© Calculé (© Référence 


— Définition de la référence 


Champs clé | 4 | Dataset: | LA | 
Clés de référence : | -| Champ résultat : | -| 


Annuler | hide | 


Voici sa vue dans l'inspecteur d'objet : 


Inspecteur d'objets 
| Query1Codeärticle: TStringField = | 
Propriétés | Evénements | 


| FieldKind fkD 


Field ame 


… LockupKeyFields | 
… LookupResultField 


… ReadOnly False 


Tous montrés D 


Les trois objets de champ suivants sont sur le même modèle (type de champ : données). 
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Le cinquième champ de Message est calculé : 


Nouveau champ 


- Propriétés du champ 


Nom : [Message Composant : [Queryt Message 
Type : [Sting + | Taille : [20 


— Type de champ 
© Données ‘Calculé (© Référence 


— Définition de la référence 


Inspecteur d'objets 


[Queryt Message: TStringField se | 


Propriétés | Evénements | 


] FieldKind fkCalculated vla 
FieldName Message D 
FisedChar False 
ImportedConstraint 
Index 4 
KeyFields 
LookupCache 
LockupDataSet 
LookupKeyFields 
LockupResultField 
Name QueryiMessage 
Origin 

ProviderFlags {pfinUpdate.pfln where] 
ReadOnly False 


Tous montrés 


Le sixième et dernier champ de Prix est une référence à un champ existant dans la TablePrix, 
il est donc nécessaire de fournir : 


e le nom de la table, 


e le champ de clef primaire, 
e le nom du champ où l'on va chercher la valeur correspondant à la clef 
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Le sixième champ de Message est de type référence : 


Nouveau champ 


Propriétés du champ 


Nom: [Prix Composant : [Query1 Prix 
Type : [Currency + | Taille : | 


- Type de champ | 


© Données (© Calculé Référence 


- Définition de la référence 


Champs clé : [Codediticle »| Dataset : [Priärticles ,| | 
Clés de référence : [Codearticle -| Champ résultat : 


Inspecteur d'objets 


Query1 Prix: TCurrencyField 
Propriétés | Evénements | 


EditFormat | 
FieldKind fkLookup 
Field ame Prix 


ImportedConstraint | 
Index | 5 
KeyFields |Codeärticle 


LookupCache |False 
LookupDataSet  |Prixérticles 
LockupKeyFields  |Codeärticle 
LockupResultField | Prix 


Max\/alue (I 

Minalue (I 

Name | Query1 Prix 

Origin v 


Tous montrés 


Voici le code de calcul d'alerte, permettant de mettre la valeur du message d'alerte en fonction 
du seuil d'alerte prévu : 


if Query1QuantitStock.value <= Query1SeuilAlerte.value then 
Query1Message.value := "ALERTE!!!" 

else 
Query1Message.value := 'OK' 


Le composant Query1 de type TQuery possède une événement OnCalcFields qui se produit 
lorsque l'application évalue les champs calculés. Le champ Query IMessage est un champ 
calculé donc le code de calcul d'alerte peu être opportunément exécuté à chaque fois que la 
requête est lancée : 
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Inspecteur d'objets 


[Queryt: Tüuery sé | 


Propriétés Evénements | 


BeforeE dit 
Beforelnsert 
Before0pen 
BeforePost 
BeforeRefresh 
BeforeScroll 


OnDeleteError 
OnEditError 
OnFilterRecord 
OnNewRecord 
OnPostError 
OnlpdateError 
OnlpdateRecord 


| OnCalcFields QuerylCalcFields SA | 


# 


begin 


end; 


Tous montrés 


4°) Code source delphi de l'exercice 


procedure Tforml1 .Query1CalcFields (DataSet: TDataSet); 


/ le code de calcul d'alerte 


Nous avons créé un nouvel alias de connexion physique par pilote ODBC dénommé 
"UnMagasin", pour une autre BD associée au fichier physique « BaseExercice6.mdb » : 


#° Administrateur BDE C:WProgram Files\Fichiers communs\Borland Shared\BDEMDAPI.CFG 


Objet Edition Voir Options Aide 


& X* KT) (a 


MIE 


Tous les alias de bases de données 
Bases de données | Configuration | 


= É Bases de données 
+-#8 BCDEMOS 
CB&_EH_DB 
CB&_TL_DB 
dBâSE Files 
DEDEMOS 
DefaultDD 
Données Exemplaires Xtreme 
Excel Files 
FoxPro Files 
IBLocal 
Mabase 
Test Files 
‘al UnMagasin 


LH 


# 
" 
+] 
+| 
+ 


L7 
Ne 
"8 
AJ 
Dr. 
, 2e 
in 
‘ô 
à 
‘ô 
==] 
8 
==] 
8 
LI 
_. 
‘ô 
su 
8 
A4 
ñ 


H 


La seconde BD 


Définition de UnMagasin 
Définition | 
Type 
BATCH COUNT 
BLOB SIZE 
BLOBS TO CACHE 


DATABASE NAME 
ENABLE BCD 


ENABLE SCHEMATACHE 


LANGDRIYER 
MAX ROW 
ODBC DSK 
OPEN MODE 
ROWSET SIZE 

HEMA CACHE DIR 
SCHEMA CACHE SIZE 
SCHEMA CACHE TIME 
SQLPASSTHRU MODE 
SQLQRYMODE 
USER NAME 


Microsoft âccess Driver (* mdb 
O0 

32 

64 


UnMagasin 
RESD/WRITE 
20 


8 
1 
SHARED AUTOCOMMIT 


Le type de la base de données 
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unit UBDExod ; 
interface 


uses 
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, 
Buttons, Grids, DBGrids, Db, DBTables, StdCtris ; 


type 
TFExercice4 = class (TForm) 
Databasel : TDatabase ; 
Queryl : TQuery ; 
DataSourcel : TDataSource ; 
DBGrid1 : TDBGrid ; 
SpeedButtonl : TSpeedButton ; 
Query1DsignArticle : TStringField ; 
Query1QuantitStock : TIntegerField ; 
Query1SeuilAlerte : TIntegerField ; 
Query1Message : TStringField ; 
Labell : TLabel ; 
Label? : TLabel ; 
Label3 : TLabel ; 
Labeld : TLabel ; 
Label5 : TLabel ; 
Label6 : TLabel ; 
Label7 : TLabel ; 
Query1CodeArticle : TStringField ; 
PrixArticles : TTable ; 
Query1Prix : TCurrencyField ; 
Label8 : TLabel ; 


Lancer une requête 


procedure SpeedButton1Click( Sender: TObject) ; 
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procedure FormCreate( Sender: TObject) ; 
procedure Query1CalcFields(DataSet : TDataSet) ; 
private 
{ Déclarations privées } 
public 
{ Déclarations publiques } 
end; 


var 
FExercice4 : TFExerciced ; 


FExercice4.Query1 


On a créé comme indiqué plus haut, les 6 champs 
d'objets persistants pendant la conception . 


Ê 
Désignärticle 


QuantitéStack 

Seuilëlerte 

Message } 
Prix 


implementation 
var 
rep_appli :string ; 


{$R *.DFM} 


procedure TFExercice4.SpeedButton1Click( Sender: TObject) ; 
begin 

Query1.Open ; 
end; 


procedure TFExercice4.FormCreate( Sender: TObject) ; 
begin 
DataBasel.DatabaseName := ‘UnMagasin'; 
DataBasel.connected := true 3; //connexion sur la base de données 


PrixArticles.DatabaseName := ‘UnMagasin'; //TTable connecté à la BD 
PrixArticles.TableName := 'PrixArticles'; // TTable connecté à la table PrixArticles de la BD 


DBGrid1.DataSource := DataSourcel ; // liaison TDBGrid <--> TDataSource 


Query1.DatabaseName := "UnMagasin'; 
Query1.SQL.Clear ; 
Query1.SQL.Append( "SELECT Magasin.CodeArticle, Magasin.DésignArticle," + 
Magasin .QuantitéStock, Magasin.SeuilAlerte' ) ; 
Query1.SQL.Append('FROM Magasin ORDER BY Magasin.CodeArticle') ; 
DataSourcel.DataSet := Queryl ; //liaison TDataSource <--> TQuery 
end; 


procedure TFExercice4.Query1CalcFields(DataSet : TDataSet) ; 
begin 
if Query1QuantitStock.value <= Query1SeuilAlerte.value then 
Query1Message.value := "ALERTE!!!" 
else 
Query1Message.value := "OK 
end; 
end. 
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Ex-6 : Expressions arithmétiques et arbre binaire 


Etape n°1 le processus d'analyse 


Nous suivons la stratégie d'analyse évoquée au chapitre 7.2. 


o Afin d'améliorer le traitement des données, nous ajoutons une sentinelle à l'expression, soit le 
caractère "." choisi comme sentinelle. 


o Afin de simplifier le code (l'objectif principal étant la construction de l'arbre abstrait) nous 
n'analysons que des expressions correctes, donc nous ne nous préoccuperons pas des tests 
d'erreurs. 


Nous procédons donc règles par règles et nous donnons au lecteur l'algorithme et 
l'implantation en Delphi de chaque bloc associé à une règle. 


étude de la Règle-1 : 


Lo exp : 


Bloc Analyser expr : 


étude de la Règle-2 : 
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Bloc Analyser terme : 


si SymLu € Init(facteur) alors 

Analyser facteur ; 

tantque SymLu € Init( { *, / } faire 
Symsuivant; 
Analyser facteur ; 

ftant; 

[si SymLu € Init( {+,-,*,/,"."} )Alors Erreur fsi 

fsi 


étude de la Règle-3 : 


<facteur- : 


caractères 


Bloc Analyser facteur : 


si SymLu € Init(caractères) alors 
Symsuivant 
sinon 
si SymLu € Init({"('}) alors 
Symsuivant; 
Analyser expr ; 
si SymLu € Init({')'}) alors 


Symsuivant; 
fsi 
sinon Erreur 
fsi 
fsi 
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procedure facteur ; 
begin 
if SymLu = (then 
begin 
Symsuivant; 
expr; 
if SymLu =)" then 


Symsuivant 
end 
else / on est dans caractères car: expression correcte 
begin 
Symsuivant 
end 
end; /facteur} 


programme complet en Delphi : 


Voici le programme Delphi obtenu pour analyser une expression correctement écrite, pour l'instant si 
l'on exécute ce programme tel quel, il ne produira rien, car nous sommes encore à la première étape du 


travail. 


program expression; 
var 
SymLu: char; 
numcar: integer; 
chaine: string; 


procedure init; 
begin 

numcar := 0; 
end; 


procedure Symsuivant; 
begin 
numcar := numcar + l; 
SymLu := chaine[numcar] 
end; 


procedure expr; 
begin 
terme; 
while SymLu in ['+', '-] do 
begin 
Symsuivant; 
terme; 
end 
end;/expr} 


procedure terme; 
begin 
facteur; 
while SymLu in ['*', /] do 
begin 
Symsuivant; 
facteur; 
end 
end;/terme} 
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procedure facteur ; 
begin 
if SymLu = "(then 
begin 
Symsuivant; 


expr; 
if SymLu =)" then 
Symsuivant 
end 
else / on est dans caractères car: expression correcte 
begin 


Symsuivant 
end 
end; /facteur} 


begin 
init; 
writeln('entrez une expression:"); 
readin(chaine); 
chaine := concat(chaine, ‘.'); 
Symsuivant; 
expr(x); 

end. 


Etape n°2 la construction de l'arbre abstrait 


Nous allons stocker les différents symboles de l'expression au fur et à mesure de son analyse, dans un 
arbre binaire représentant l'arbre abstrait de l'expression comme nous l'avons déjà vu au chapitre 4.2. 


Pour l'exemple à partir de l'expression a*b + c-(d+e) nous construirons l'arbre abstrait figuré ci- 


dessous : 


Implantation de la structure en Delphi avec variables dynamiques : 


type 
parbre = ‘arbre; 
arbre = record 


val: char; 
g, d: parbre 
end; 
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Nous proposons d'écrire une fonction de construction d'un arbre (un constructeur d'arbre) 


o La fonction reçoit en entrée 3 paramètres correspondant au contenu d'un noeud : 
“ la valeur (un char ici), 
“ le pointeur (ou référence) vers le fils gauche de ce noeud, 
“ et le pointeur (ou référence) vers le fils droit de ce noeud. 


o La fonction renvoie un fois le noeud construit, un pointeur (ou référence) sur le noeud nouvellement 
construit. 


Voici le code de la fonction ‘Construit’ proposée selon le type parbre défini plus haut : 


Ci-dessous sur deux exemples montrons ce que produit la function Construit(..). 


Exemple -1 : la construction d'un noeud ayant deux descendants 
(un sous-arbre gauche nommé f£, et un sous-arbre droit nommé fd ) 


:= construit(carac, fg, fd) 


À la fin de la construction la fonction construit a relié l'arbre gauche rouge avec l'arbre droit bleu dans 
le noeud pointé par f, respectivement comme sous-arbre gauche rouge et comme sous-arbre droit bleu, 
le champ valeur du noeud f contient le caractère ‘a’. 


Exemple -2 : la construction d'une feuille 
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f:= construit(carac, nil, nil} 


fs = I 
" .. | L— 
+ 
carac | _ == 
fd = I 
I 
[| 


génération pour la Règle-1 : 


Bloc générer arbre - expr : 


génération pour la Règle-2 : 


Bloc générer arbre - terme : 
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Implantation en Delphi : 


procedure terme (var f: parbre); 
var 
carloc: char; 
floc: parbre; 
begin 
facteur(f); 
while SymLu in ['*', /'] do 
begin 
carloc := SymLu; 
Symsuivant; 
facteur(floc); 
f := construit(carloc, f, floc)/construction de l'arbre} 
end 
end;/terme} 


génération pour la Règle-3 : 


Bloc générer arbre - facteur : 


Implantation en Delphi : 


procedure facteur (var f: parbre); 
begin 
if SymLu = (then 
begin 
Symsuivant; 
expr(f); 
if SymLu =") then 
Symsuivant 
end 
else 
begin 
f := construit(SymLu, nil, nil); {construction de l'arbre } 
Symsuivant 
end 
end; /facteur} 


programme complet en Delphi : 
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Voici un programme Delphi obtenu pour engendrer un arbre abstrait d'une expression correctement 
écrite; ici les procédures terme et facteur ont été incluses dans la partie déclaration de la procédure 
expr, mais elles peuvent être dissociées et se retrouver au même niveau de déclaration sans rien 
changer au fonctionnement du programme. 


program expression; 
{les expressions entrées sont correctes } 
type 
parbre = ‘arbre; 
arbre = record 
val: char; 
g, d: parbre 
end; 
var 
X: parbre; 
SymLu: char; 
numcar: integer; 
chaine: string; 


procedure init; 
begin 
numcar := (; 
x:= nil; 
end; 


function construit (c: char; fe, fd: parbre): parbre; 
var 
floc: parbre; 
begin 
new(floc); 
with floc! do 
begin 
val:= c; 
g:= fg; 
d := fd 
end; 
construit := floc 
end;/construit} 


procedure Symsuivant; 
begin 
numcar := numcar + |; 
SymLu := chaine[numcar] 
end; 


{construction d'un arbre d'expressions à partir de la grammaire :} 
procedure expr (var f: parbre); 
var 
carloc: char; 
ft: parbre; 
procedure facteur (var f: parbre); 
begin 
if SymLu = "(then 
begin 
Symsuivant; 
expr(f); 
if SymLu =)" then 
Symsuivant 
end 
else 
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begin 
f := construit(SymLu, nil, nil); {construction de l'arbre } 
Symsuivant 
end 
end;/facteur} 


procedure terme (var f: parbre); 
var 
carloc: char; 
floc: parbre; 
begin 
facteur(f); 
while SymLu in ['*', /] do 
begin 
carloc := SymLu; 
Symsuivant; 
facteur(floc); 
f := construit(carloc, f, floc)/construction de l'arbre} 
end 
end:/terme} 


begin/expr} 
terme(f); 
while SymLu in ['+', '-'] do 
begin 
carloc := SymLu; 
Symsuivant; 
terme(ft); 
f := construit(carloc, f, ft){construction de l'arbre} 
end 
end;/expr} 


begin 
init; 
writeln('entrez une expression:"); 
readin(chaine); 
chaine := concat(chaine, "."); 
Symsuivant; 
expr(x); 

end. 


Suivons à titre d'exemple la construction par le programme précédent, de l'arbre abstrait de 
l'expression déjà citée plus haut soit : a*b + c-(d+e). 


Nous effectuons une trace pas à pas du début de l'exécution sur l'expression : 


Procédures appelées Résultat produit 
readin(chaine); chaine = a*b + c-(d+e). 
init; x=nil 
Symsuivant SymLu = , dans a*b + c-(d+e). 
expr(x) + 


lterme(x) 

| lfacteur(x) == 

|| [x:= construit(SymLu, nil, nil); 

| | |Symsuivant SymLu = * , dans a*b + c-(d+e). 


expr(x) carloc = * 
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lterme(x) 

| lfacteur(x) 

| [SymLu in ['*', 7] = true 
| carloc := SymLu:; 

|  Symsuivant; 

| facteur(floc); 


expr(x) 
lterme(x) 
| lfacteur(floc); 
| | floc := construit(SymLu, nil, nil); 
|| |Symsuivant 


expr(x) 
lterme(x) 
| |facteur(floc); 
| [x := construit(carloc, x, floc) 


expr(x) 

lterme(x); 

[SymLu in [+ '-] = true 
| carloc := SymLu:; 

| Symsuivant; 

| terme(ft); 

expr(x) 

lterme(x) 

| |terme(ft) 

| | [facteur(ft); 

[|| [ft:= construit(SymLu, nil, nil): 
| ||  [Symsuivant 


expr(x) 

lterme(x) 

| lterme(ft) 

| | [facteur(ft); 

| | [x := construit(carloc, x, ft) 


expr(x) 

lterme(x) 

| |terme(ft) 

| lfacteur(ft) 

| | [SymLu in ['*', /] = false 
[SymLu in [+ '-] = true 

| carloc := SymLu: 

| Symsuivant; 

| lterme(ft); 

expr(x) 

lterme(x) 

| lfacteur(ft); 

||  |SymLu="( =true 
| | Symsuivant; 

|| lexpr(ft); 

| | lterme(ft); 

|| | lfacteur(ft); 
expr(x) 

lterme(x) 


SymLu =b , dans a*b + c-(d+e). 
floc = nil 


carloc = * 
floc — 


SymLu = + , dans a*b + c-(d+e). 


carloc = * 
‘ # 


carloc = + 


SymLu=c , dans a*b + c-(d+e). 
ft = nil 


carloc = + 


Ît — 


SymLu =- , dans a*b + c - (d+e). 


carloc = + 
X 


a" : 


carloc = - 


SymLu =( , dans a*b + c-(d+e). 
ft = nil 


carloc = - 


SymLu = d , dans a*b + c-(d+e). 
ft = nil 


carloc = - 
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| |facteur(ft) 

| | lexprifo us 
| | | [terme(ft) 

[ll 
[ll 
[11 


| 

| |facteur(ft) 

ÉD En | SymLu=+ , dans a*b + c-(d+e). 
expr(x) dans la pile : 
Jterme(x) | 
| |facteur(ft) carloc = - 
| | lexpr(ft) ft — 
| | | [terme(ft) == 
| | | | lfacteur(ft) 
| 1 1 JSymbu in L'#, 1] = false | 
[1 SERRES ,1= true carloc = + 
[||]  carloc = Syinli 
[||] Symsuivant; 
LITE ferme(ft; SymLu =e , dans a*b + c-(d+e). 

facteur(ft | 
[111 1 Hfacteur(t); si 
dans la pile : 
carloc = - 

expr(x) ÎLE — 
lterme(x) == 
| |facteur(ft) 
es ——--——— 1 11 
| | | [terme(ft) td 
| | | | lterme(ft) 
|| | || [facteur(ft) ft — 
[ll] {ft:=construit(SymLu, nil, nil); == 
[11111] |Symsuivant 


SymLu =) , dans a*b + c-(d+e). 


dans la pile : 


expr(x) 
lterme(x) == 
| |facteur(ft) 


| lexpr(ft) 
| |terme(ft) == == 


| 
| | 
LE eme 7 
|| | || [facteur(ft) 
|llll]fft:=construit(carloc ,ff,ft) 
|| 11 FISymLu in [#7] = false ft — 
expr(x) 
lterme(x) 
| [facteur(ft) 
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| | lexpr(ft) K ——+ 
| | | Iterme(ft) 
|| | [SymLu in ['#, "-] = false 
| [x := construit(carloc, x, ft) 
[SymLu in ['*', /] = false 
Fin 


+ + 
Arbre abstrait obtenu après exécution : 4 / Le 
d 


S1 le lecteur souhaite visualiser les contenus des arbres abstraits, il peut utiliser les 3 parcours en 
profondeur vus au chapitre 4.3, nous listons ci-dessous les 3 procédures associées au type parbre de 
l'exercice ainsi que le corps du programme principal appellant ces procédures : 


program expression; 
{les expressions sont correctes et elles sont lues sous les 3 formes 
in, post et pré-fixées } 
type 
parbre = ‘arbre; 
arbre = record 
val: char; 
g, d: parbre 
end; 
var 
X: parbre; 
SymLu: char; 
numcar: integer; 
chaine: string; 


procedure init; 
begin 
numcar := (; 
x := nil; 
end; 


function construit (c: char; fe, fd: parbre): parbre; 
var 
floc: parbre; 
begin 
new(floc); 
with floc! do 
begin 
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Val:=c: 
g:= fe; 
d := fd 
end; 
construit := floc 
end;/construit} 


procedure Symsuivant; 
begin 
numcCar := numcar + |; 
SymLu := chaine[numcar] 
end; 


{construction d'un arbre d'expressions à partir de la grammaire :} 
procedure expr (var f: parbre); 
var 
carloc: char; 
ft: parbre; 
procedure facteur (var f: parbre); 
begin 
if SymLu = (then 
begin 
Symsuivant; 
expr(f); 
if SymLu =") then 
Symsuivant 
end 
else 
begin 
f := construit(SymLu, nil, nil); {construction de l'arbre } 
Symsuivant 
end 
end;/facteur} 


procedure terme (var f: parbre); 
var 
carloc: char; 
floc: parbre; 
begin 
facteur(f); 
while SymLu in ['*', /'] do 
begin 
carloc := SymLu; 
Symsuivant; 
facteur(floc); 
f := construit(carloc, f, floc)/construction de l'arbre} 
end 
end;/terme} 


begin/expr} 
terme(f); 
while SymLu in ['+', '-] do 
begin 
carloc := SymLu; 
Symsuivant; 
terme(ft); 
f := construit(carloc, f, ft)/construction de l'arbre} 
end 
end;/expr} 


procedure edite (f: 
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{infixe parenthesee} 
begin 
if f <> nil then 
with f" do 
begin 
write('('); 
edite(g); 
write(val); 
edite(d); 
write(')') 
end 
end; 


procedure postfixe (f: parbre); 
{sert dans les machine a piles a la compilation} 
begin 
iff <> nil then 
with f” do 
begin 
postfixe(g); 
postfixe(d); 
write(val); 
end 
end; 


procedure prefixe (f: parbre); 
begin 
if f <> nil then 
with f do 
begin 
write(val); 
prefixe(g); 
prefixe(d) 
end 
end; 


procedure infixe (f: parbre); 
begin 
iff <> nil then 
with f” do 
begin 
infixe(g): 
write(val); 
infixe(d); 
end 
end; 


begin 
init; 
writeln('entrez une expression:"); 
readin(chaine); 
chaine := concat(chaine, ‘.'); 
Symsuivant; 
expr(x); 
writeln('Expression parenthésée:"); 
edite(x); 
writeln; 
writeln('Expression notation infixée:"); 
infixe(x); 
writeln; 
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Chapitre 8 : les composants sont des 
logiciels réutilisables 


8.1 Construction de composant avec Delphi 


e  Déivation à partir d'un composant visuel 
e Construction par association de composants visuels 
e Construction d'un composant non-visuel 


8.2 Les messages Windows avec Delphi 


e La programmation dirigée par les messages 
e Mécanisme de la répartition des messages 
e Création et envoi de messages 


8.3 Création d'un événement associé à un message 


e Rappel sur la construction d'un événement 


e Exemple de création d'événements dans un TEdit 


8.4 ActiveX avec la technologie COM 


Les notions d'interfaces COM de microsoft 
ActiveX est un objet COM 

Création d'un ActiveX avec Delphi 

Déploiement et utilisation Web d'une fiche ActiveX 
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Chapitre 8.1 Construction de composant avec 
Delphi 


Plan du chapitre: Ë 


Introduction 


1. Dérivation à partir d’un composant visuel 


1.1 Ajout de méthodes à un composant d’arbre 
1.2 Ajout de propriétés au composant d’arbre 


2. Construire par association de composants visuels 


2.1 Le composant de visualisation d'arbre TWinArbre 
2.2 Evénement OnChange de TWinArbre 

2.3 Evénement OnMouseDown de TWinArbre 

2.4 Le composant final TWinArbre 


2.4.1 Le composant TWinArbre peut se redimensionner 


2.5 Le composant de saisie d'expression arithmétique 


3. Construire un composant non visuel 


3.1 Le composant TListe 
3.2 Utilisation du composant TListe 
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Introduction 


Ce chapitre est consacré à la production de composants logiciels réutilisables. Nous allons 
construire en Delphi trois genres d’exemples de " kits de logiciels " réutilisables et donc créer 
trois composants que vous pourrez améliorer ou modifier. Une fois terminé, chaque 
composant sera placé dans la palette des outils composants de Delphi ou Kylix (version Linux 
de Delphi). 


Nous proposons encore une fois une démarche méthodique afin de construire certains de ces " 
kits ". Pour des composants visuels, nous nous limitons à la construction de composants par 
dérivation de composants existants. Nous montrons comment ajouter des propriétés ou des 
méthodes à un composant existant. Nous montrons aussi comment associer plusieurs 
composants visuels de Delphi pour construire un nouveau composant visuel. Nous 
construisons à la fin un composant non visuel. 


1. Dérivation à partir d’un composant visuel 


Nous allons construire un nouveau composant qui héritera d'une classe déjà existante de la 
VCL (Visual Composant Library), nous prendrons un composant visuel d'arbre. Notre action 
consistera essentiellement à étendre les fonctionnalités d'un composant déjà existant. 


1.1 Ajout de méthodes à un composant d’arbre 


Démarche proposée en 3 étapes : 


Q Premier projet : construire un programme Delphi qui implante exactement les fonctionnalités de la 
nouvelle procédure (nouvelle action) et le tester. 


Q Deuxième projet : construire une nouvelle classe héritant du composant visuel existant, ajouter la 
nouvelle procédure qui vient d’être testée comme une méthode de la classe. Construire un programme 
de test de cette classe. 


Q Troisième projet : transformer la classe en un composant, l’installer dans la palette des composants, 


puis construire un programme de test du composant. Il suffira pour le programme de test de reprendre 
l’essentiel du programme de test de la classe. 


Exemple : un composant d’arbre dérivé du TOutline 


Ce composant est obtenu à partir de 
l’onglet Win 3.1 de la palette des 


composants Delphi. 


InterBase | Internet | Dialoahes ‘Win 3.1 | Exemoles | Rave | Indu-C 


2 9) = (1 El El. 
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Nous avons choisi ce composant pour deux raisons essentielles : 


1° Sur le plan pédagogique c’est un bon outil simple de visualisation des structures d’arbres. Le lecteur 
pourra donc en suivant la démarche proposée ajouter ses propres méthodes de parcours d’arbre de tri 
etc... 


2° Ce composant est présent dans toutes les versions de Delphi, ce qui le désigne comme candidat idéal 
à la dérivation pour nous (il est amélioré depuis par un composant TtreeView plus performant et moins 
simple à mettre en œuvre pour un débutant) 


Fonctionnalité d'affichage de tout un niveau avec une méthode 


Nous désirons que notre composant affiche toutes les branches d’un arbre quelconque jusqu’à 
un niveau de profondeur donné. Appliquons la démarche précédente. 


__ Projet méthode - étape/1 : le programme Delphi D 
D a . 


Nous écrivons 3 méthodes Delphi permettant d’effectuer cette action : 


procedure affiche_racine (tree:Toutline) {remonte à la racine d'où que l'on soit} 


procedure lire_un_niveau (rac:Toutline;indice:integer; | {descente recursive en préordre sur un outline} 
niveau:integer); 


{ visualise tout le niveau choisi par l'utilisateur, utilise 
les 2 méthodes précédentes, elle sera donc public } 


procedure affiche_un_niveau (le_niveau:integer); 


C’est la procédure affiche un niveau qui est appelée afin d’afficher l’arbre jusqu’au niveau voulu : 


Racine Lhracine L@racine 
une une 
E deux une01 
Bltrois| © une0? 
niveau = 0 & deux 
niveau = 1 dou 
= rois 
niveau = 2 
L'Gracine L&ra cine 
&Gune &une 
FE uneot Eune01 
@ une02 Gune02 
L'Eune021 L'Eune021 
NÉ FR née 01 niveau = 4 
& deux011 . 
E deux012 Thin . 
Éftrois. É eux 
| deux01 
niveau = 3 deux01 2 
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ne. Projet méthode - étape/2 : la classe Delphi _— 
Diet Re. 


On crée une classe Ttree2 dérivée du Toutline 


TTree2 = class(TOutline) /la nouvelle classe TTree dérivée de Toutline} 
private 
{ Déclarations private } 
procedure lire_un_niveau (rac:Toutline; indice:integer; niveau:integer); 
procedure affiche_racine (tree:Toutline); 
public 
{ Déclarations public } 
procedure affiche_un_niveau (le_niveau:integer); 
end; 


On déclare un objet de classe Ttree2. 
var 
new_compos : TTree2; /objet Tiree2 déclaré} 


On instancie l’objet de classe Ttree2. 


procedure TForm1.FormCreate(Sender: TObject); 

begin 
new_compos := TTree2.create(self); {objet Ttree2 créé} 
new_compos.parent:=self, {objet Tiree2 affichable} 
new_compos.setbounds(8,8,233,233) 

end; 


On appelle la méthode public de l’objet. 


new_compos.affiche_un_niveau (3); {demande d'affichage niveau = 3} 


__ Projet méthode - étape/3 : le composant Delphi D 
, Zn. 


On ajoute un constructeur à la classe précédente Ttree2 : 


TTree2 = class(TOutline) /la nouvelle classe TTree dérivée de Toutline} 
private 
procedure lire_un_niveau (rac:Toutline; indice:integer; niveau:integer); 
procedure affiche_racine (tree:Toutline); 


public 

constructor Create (Aowner:Tcomponent); override; 
procedure affiche_un_niveau(le_niveau:integer); 
end; 


Dans le constructeur nous reprenons le code du gestionnaire Oncreate de la fiche. 
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constructor TTree2.Create(Aowner:Tcomponent); 
begin 
inherited create(Aowner); 


self.setbounds(8,8,233,233); /position : lefi,top,width,height} 
end; 


On respecte le mode d’enregistrement des composants en Delphi 
procedure register; 


implementation 


procedure register; 
begin 
RegisterComponents('Perso', [TTree2]) 


Le composant sera installé ici, dans l’onglet ]Perso’ 


slogues | Système | GRepot | OCX | Exemplel 


= Code complet du composant Ttree2 D 
____ 


unit Utree2; / Un composant d'affichage d'arbre } 
interface 


uses 
SysUtils, Messages, Classes, Graphics, Controls, Forms, StdCtrls, ExtCtrls, Outline; 


type 
TTree2 = class(TOutline) 
private 
procedure affiche_racine(tree: TTree2); 
procedure TTree2.lire_un_niveau(rac:TTree2; indice:integer; le_niveau : integer); 
public 
constructor Create(Aowner:Tcomponent);override; 
procedure affiche_un_niveau (le_niveau : integer); 
end; 


procedure register; 
implementation 


procedure register; 

begin 

RegisterComponents('Perso', | TTree2]) 

end; 

>>> Méthodes privées de la classe TTree2  ----------------- } 


procedure TTree2.affiche_racine(tree:TTree2); 
{remonte à la racine d'où que l'on soit } 
var num_lev:integer; 
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begin 


if tree.Itemcount<>0 then 
begin 


num_lev:=tree.items|tree.selecteditem].topltem; 


tree.Selectedltem:=tree.items[num_lev].parent.index; 
tree.items[1].expanded:=false; 
end 


end; 


procedure TTree2.lire_un_niveau(rac:TTree2;indice:integer;le_niveau:integer); 
{descente recursive en préordre sur un outline } 
var 


node:ToutlineNode; /pour simplifier les manipulations} 
indice_node_fils,indice_node_pere:integer; 

begin 

if (indice<>-1 )and(rac.Itemcount<>0) then 

begin 

node:=rac.items[indice]; 
indice_node_pere:=rac.items|[indice].parent.index; 
indice _node_fils:=indice; 


if node .Hasltems then /i/ y a des descendants} 

begin 

if node.level<=le_niveau then /uniquement si le niveau est correct} 
begin 

node.expand; {visualiser les descendants à level+1 } 
indice_node_pere:= rac.SelectedItem; //e noeud est le père} 


rac.Selectedltem:=rac.Items[rac.Selectedltem].GetFirstChild; {le ler à gauche} 


indice_node_fils:=rac.Selectedltem; /indice du noeud fils gauche} 
if indice _node_fils<>-1 then 


begin 
lire_un_niveau(rac,indice_ node _fils,le_niveau); 


indice:=rac.Items|[indice_node_pere].GetNextChild(indice_node_fils);/indice du frère suivant} 
end; 

while indice<>-1 do {examen de tous les frères de indice_ node fils} 

begin 

rac.SelectedItem:=indice; {le frère suivant} 
indice_node_fils:=rac.Selectedltem; //e frère suivant est le nouveau fils} 
lire_un_niveau(rac,indice_node_fils,le_niveau); 


indice:=rac.Items|[indice_node_pere].GetNextChild(indice_node_fils); {indice du frère suivant} 
end 


end 
end 
end; 
end; 
{>>> Méthode public de la classe TTree2 ---------------"-"--- } 
procedure TTree2.affiche_un_niveau(le_niveau:integer); 
{pour visualiser tout le niveau choisi par l'utilisateur. } 
var 


indice_noeud:integer; 

begin 

affiche_racine(self); 

if le_niveau<>0 then 

begin 

indice_noeud:= self.selecteditem; 
lire_un_niveau(selfindice_noeud,le_niveau); 
if self. Itemcount<>0 then 

begin 


indice_noeud:=self.Items[1].GetNextChild(indice_noeud); 
while indice_noeud<>-1 do 
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begin 
self.selecteditem:=indice_noeud; 
lire_un_niveau(selfindice_noeud,le_niveau); 
indice_noeud:=self.Items[1].GetNextChild(indice_noeud); 
end 
end 
end 
end; 


LUI 7 CONSTRUCTEUR NN NN MMM /} 
constructor TTree2.Create(Aowner:Tcomponent); 
begin 
inherited create(Aowner); 
self.setbounds(8,8,233,233); /position : lefi,top,width,height} 
end; 


end. 


1.2 Ajout de propriétés au composant d'arbre 


Démarche conseillée : semblable à la précédente 


Q Premier projet : construire un programme Delphi qui implante exactement les fonctionnalités de la 
nouvelle procédure (nouvelle fonctionnalité) et le tester. 


Q Deuxième projet : construire une nouvelle classe héritant du composant visuel existant, et ajouter la 
nouvelle procédure qui vient d’être testée en la reliant à une propriété publique par exemple. Construire 
un programme de test de cette classe avec sa nouvelle propriété. 


Q Troisième projet : transformer la classe en un composant, l’installer dans la palette des composants, 
puis construire un programme de test du composant. Le composant a pratiquement été entièrement 
construit dans l’étape précédente. 


Fonctionnalité d'affichage de tout un niveau avec une propriété 


Nous désirons que notre composant affiche toutes les branches d’un arbre quelconque jusqu’à 
un niveau de profondeur donné à partir d’une propriété Delphi et non plus d’une méthode. 
Nous allons ainsi voir la puissance et la facilité fournies par le RAD. 


Les propriétés ont en Delphi une particularité intéressante : celle de pouvoir être lues ou 
écrites à travers des méthodes internes que l’on peut programmer soi-même. Ceci nous donne 
une latitude importante lorsque nous voulons étendre les fonctionnalités d’une classe. 


L'étape/1 est strictement la même que dans le traitement précédent sur l'ajout d'une nouvelle 
méthode : 


procedure affiche_racine (tree:Toutline) {remonte à la racine d'où que l'on soit} 


procedure lire_un_niveau (rac:Toutline;indice:integer; | {descente recursive en préordre sur un outline} 
niveau:integer); 


procedure affiche_un_niveau (le_niveau:integer); { visualise tout le niveau choisi par l'utilisateur} 


Les bases de l'informatique - programmation - (6. 05.09.2004 ) page 801 


__ Projet propriété - étape/2 : la classe Delphi D 
D a 


On crée une classe Ttree1 dérivée du Toutline. 
TTreel = class(TOutline) /la nouvelle classe Ttreel dérivée de Toutline} 
private 
Fniveau : integer; 
function Getmaxniveau : integer; 
procedure affiche_un_niveau(le_niveau:integer); 


procedure lire_un_niveau (rac:Toutline; indice:integer; niveau:integer); 
procedure affiche_racine (tree:Toutline); 
public 
property profondeur : integer read Getmaxniveau; 
property show_niveau :integer read Fniveau write affiche_un_niveau; 
end; 


La classe possède deux propriétés : 
e _ property profondeur 
e _ property show_niveau 


Etudions l'implantation de chacune d'elle : 


property profondeur : 
Afin de montrer au lecteur les possibilités de lecture et d’écriture des propriétés, nous 
avons rajouté à la classe une nouvelle fonctionnalité : pouvoir consulter pour un arbre 
| donné, la valeur de sa profondeur. Cette action est implantée à travers la propriété 
profondeur qui est en lecture seulement (puisqu’elle est uniquement consultable). 


property profondeur : integer read Getmaxniveau; 


La propriété profondeur lorsqu’elle sera lue lors de l’exécution fera appel à la méthode 
Getmaxniveau. Cette méthode doit être une fonction et doit renvoyer un résultat du même 
type que la propriété (ici un integer). La méthode interne Getmaxniveau renvoyant la 
profondeur de l'arbre, est construite par nos soins. 


Voici un exemple de code possible : 


function TTreel.Getmaxniveau:integer; 
var i,max:integer; 
begin 
if self.Itemcount < 0 then begin 
max:=]; 
for i:=1 to self.Itemcount do 


if max <self.Items[i].1evel then 
max:=self. Items[il].level; 
Getmaxniveau:=max-1; 
end 
else Getmaxniveau:=0 / profondeur racine=0} 
end; 
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Par exemple, lorsqu'une instruction du genre ‘x :— profondeur” est exécutée, Delphi appellera 
la méthode Getmaxniveau qui fournira un résultat. Ce résultat sera lui-même 
automatiquement placé dans la variable x. Comme nous l'avons déjà vu, les propriétés ont la 
particularité d’être des champs que l’on peut lire à travers une fonction. 


Cette particularité est intéressante puisque nous voyons dans l’exemple que c’est au moment 
où l’on appelle Getmaxniveau que le calcul de la profondeur est effectué. Il s’agit d’une 
action dynamique qui nous assure quelle que soit la modification apportée à l’arbre, nous 
aurons toujours sa profondeur réelle. 


Les propriétés en Delphi sont donc comme des médias permettant d’accéder à des 
informations à travers elles. 


property show_niveau 
A titre d'exemple cette propriété est en lecture et écriture. 
En écriture, elle est chargée de provoquer l’affichage de l’arbre sur tout un niveau fixé. 
En lecture elle fournit la valeur du niveau de l'arbre actuellement affiché. 


property show_ niveau : integer read Fniveau write Affiche _un_niveau; 

Elle possède la particularité d’être écrite à travers une méthode qui doit être en Delphi une 
procédure avec un seul paramètre transmis par adresse ou par valeur mais du même type que 
la propriété. 


Q Lorsque la propriété show_ niveau est modifiée (donc en écriture) comme dans l'instruction "show_niveau 
:= x", il est fait appel à la méthode interne Affiche_un_niveau à laquelle Delphi passe le paramètre x. Tout 
se passe comme si on avait écrit "Affiche _un_niveau(x) ;". Nous avons donc un moyen de provoquer 
dynamiquement une action lorsque l’on modifie une propriété. 


Q Lorsque la propriété show_ niveau est lue comme dans l'instruction "x := show_niveau;", c'est en fait le 
contenu du champ privé Fniveau qui est lu et renvoyé dans la variable x. Tout se passe comme si on avait 
écrit " x := Fniveau ;" 


Le champ privé Fniveau contient la valeur effective du numéro de niveau qui actuellement 
affiché par le Ttreel, cette valeur est mise à jour lorsqu'un changement d'affichage a lieu, en 
l'occurrence lors de l'appel de la méthode Affiche _un_niveau( x ) qui devra assurer la 
transmission de la valeur x dans Fniveau. 


On instancie et l'on crée l’objet de classe Ttree1 


var 
new_compos : TTreel; {objet Tireel déclaré} 


/On programme le code du gestionnaire de création de la fiche. 
procedure TForm1.FormCreate(Sender: TObject); 


begin 
new_compos:=TTreel.create(self); /objet TTreel créé} 
new_compos.parent:=self; /objet TTreel affichable} 
new_compos.setbounds(8,8,233,233); {position : lefi,top,width,height} 
new_compos.lines.loadfromfile(lines.txt'); {arbre chargé} 

end; 
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__ Projet propriété - étape/3 : le composant Delphi D 
D PR a 


On ajoute un constructeur à la classe précédente Ttreel : 


TTreel = class(TOutline) //a classe Ttreel dérivée de Toutline} 
private 
Fniveau:integer; 
function Getmaxniveau : integer; 
procedure affiche_un_niveau(le_niveau:integer); 
procedure lire_un_niveau (rac:Toutline; indice:integer; niveau:integer); 


procedure affiche_racine (tree:Toutline); 
public 
constructor Create(Aowner:Tcomponent);override; 
property profondeur : integer read Getmaxniveau; 
property show_ niveau : integer read Fniveau write affiche_un_niveau; 
end; 


Identiquement à l’exemple précédent, nous remplaçons le code du gestionnaire de création de 
la fiche par le code du constructeur d’objets de la classe(Create). 


constructor TTreel.Create(Aowner:Tcomponent); 
begin 

inherited create(Aowner); 

self.setbounds(8,8,233,233); {position : lefi,top,width,height} 
end; 


On respecte le mode d’enregistrement des composants en Delphi 
procedure register; 


implementation 


procedure register; 

begin 

RegisterComponents('Perso', [TTreel]) 
end; 


Le composant sera installé dans l’onglet ‘Perso’à côté de Ttree2 : 
alogues | Système | QRepoit | OC*x | Exemples Perso | 


ne Code complet du composant Ttree1 sé 
a 2... 


unit Utreel; { Un composant d'affichage d'arbre } 
interface 


uses 
SysUtils, Messages, Classes, Graphics, Controls, 
Forms, StdCtrls, ExtCtrls, Outline; 
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type 
TTreel = class(TOutline) /la nouvelle classe Ttreel de Toutline} 
private 
Fniveau : integer; 
function Getmaxniveau:integer; 
procedure affiche_un_niveau(le_niveau:integer); 
function Getmaxniveau : integer; 
procedure affiche_un_niveau(le_niveau:integer); 
procedure lire_un_niveau (rac:Toutline; indice:integer; niveau:integer); 
procedure affiche_racine (tree: Toutline); 
public 
constructor Create(Aowner:Tcomponent);override; 
property profondeur : integer read Getmaxniveau; 


property show_ niveau : integer read Fniveau write affiche_un_niveau; 
end; 


procedure register; 
implementation 


procedure register; 
begin 


RegisterComponents('Perso', | TTreel1]) 
end; 


méthodes private du TTreel 


procedure TTreel.affiche_racine(tree:TTreel1); 
{remonte à la racine d'où que l'on soit } 

var num_lev:integer; 

begin 

if tree. Itemcount<>0 then 

begin 


num_lev:=tree.items|tree.selecteditem].topltem; 


tree.Selectedltem:=tree.items[num_lev].parent.index; 
tree.items[1].expanded:=false; 
end 


end; 


procedure TTreel.lire_un_niveau(rac:TTreel;indice:integer;le_niveau:integer); 
{descente recursive en préordre sur un outline} 
var 


node:ToutlineNode; /pour simplifier les manipulations} 
indice_node_fils,indice_node_pere:integer; 

begin 

if (indice<>-1 )and(rac.Itemcount<>0) then 

begin 

node:=rac.items[indice]; 
indice_node_pere:=rac.items|[indice].parent.index; 
indice _node_fils:=indice; 


if node .Hasltems then /5/ y a des descendants} 

begin 

if node.level<=le_niveau then /uniquement si le niveau est correct} 
begin 

node.expand; {visualiser les descendants à level+1} 
indice_node_pere:= rac.SelectedItem; //e noeud est le père} 


rac.Selectedltem:=rac.Items[rac.Selectedltem].GetFirstChild; {le ler à gauche} 


indice_node_fils:=rac.Selectedltem; /indice du noeud fils gauche} 
if indice node _fils<>-1 then 
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begin 
lire_un_niveau(rac,indice_node _fils,le_ niveau); 


indice:=rac.Items[indice_node_pere].GetNextChild(indice_node_fils);/indice du frère suivant} 


end; 

while indice<>-1 do {examen de tous les frères de indice_ node. fils} 
begin 

rac.SelectedItem:=indice; {le frère suivant} 


indice_node_fils:=rac.Selectedltem; //e frère suivant est le nouveau fils} 


lire_un_niveau(rac,indice_ node _fils,le_niveau); 


indice:=rac.Items|[indice_node_pere].GetNextChild(indice_node_fils); {indice du frère 


suivant} 
end 
end 
end 
end; 
end; 


procedure TTreel.affiche_un_niveau(le_niveau:integer); 
{pour visualiser tout le niveau choisi par } 
var 
indice_noeud:integer; 
begin 
affiche_racine(self); 
if le_niveau<>0 then 
begin 
indice_noeud:= self.selecteditem; 
lire_un_niveau(selfindice_noeud,le_niveau); 
if self.Itemcount<>0 then 
begin 
indice_noeud:=self.Items[1].GetNextChild(indice_noeud); 
while indice_noeud<>-1 do 
begin 
self.selecteditem:=indice_noeud; 
lire_un_niveau(selfindice_noeud,le_niveau); 
indice_noeud:=self.Items[1].GetNextChild(indice_noeud); 
end 
end 
end 
end; 


function TTree1.Getmaxniveau:integer; 
{donne la profondeur maximum de l'arbre } 
var i,max:integer; 
begin 
if self.Itemcount<>0 then 
begin 
max:=l; 
for i:=1 to self.Itemcount do 
if max<self.Items[i].level then 
max:=self.Items[i].level; 
Getmaxniveau:=max-|]; 
end 
else 
getmaxniveau:=0 // profondeur racine=0 
end; 


{OUI CONSTRUCTEUR {III} 
constructor TTreel.Create(Aowner:Tcomponent); 
{remplace le create dans l'étape 1} 

begin 
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inherited create(Aowner); 
self.setbounds(8,8,233,233); {position : left,top,width,height} 
end; 


end. 


2. Construire par association de composants visuels 


Nous nous proposons ici de fournir trois exemples de composants visuels construits par 


association (agrégation) d'autres composants visuels. 


e Dans le premier exemple, nous montrons au lecteur comment associer trois composants visuels existants 
pour n’en former qu’un seul à partir du composant d'arbre fondé sur le TOutLine construit au paragraphe 


précédent. 


e Dans le second exemple nous reprendrons la même démarche en construisant un composant plus élaboré de 
saisie des expressions arithmétiques en y incluant des résultats provenant des chapitres sur les analyseurs. 


e le troisième exemple situé au paragraphe suivant, constitue la base de départ d'un composant d'éditeur- 
déboggeur d'un composant non visuel de liste de chaînes, à compléter à titre d'exercice. 


2.1 Le composant de visualisation d'arbre 


Nous montrons au lecteur comment associer trois composants visuels existants pour n’en 
former qu’un seul que nous notons TwinArbre. Nous reprenons comme base le composant 
standard d’arbre, le Toutline, que nous associons à deux autres : 


Un composant d'arbre Toutline 
dialoaues Win 3.1 | Exe 


Un composant TTrackBar (barre graduée et glissière), que 
l’on trouve dans Win32 depuis Delphi 3 
Suoolément in32 | Sustème | 


Un composant TEdit que l’on trouve dans l’onglet standard 
dans toutes les versions. 
Standard | Suoolément | Wwin32 | Sus 


IS OA ANT) 
—. [rai 


(TOutLine) 


(TTrackBar) 


pe —_—_— 


Aspect du composant TwinArbre construit par 
association des 3 composants de gauche 
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La démarche reste fondamentalement la même que celle que nous avons utilisée pour les deux 
exemples précédents. Ceci nous permet d’avoir une base simple, suffisante en initiation, 
d’élaboration de nouveaux composants. 


Lorsque nous voulons construire un tel assemblage de composants il nous faut remonter dans 
la hiérarchie des classes. Delphi nous conseille de faire dériver notre futur composant 
TwinArbre systématiquement de la classe TCustomControl : 


[]TObiject 
[+] Exception 
Cist 
[1 TEits 
[S]TPersistent 
[1] TCollectionltem 
[] TCollection 
TStings 
[=] TComponent 
C] TMenultemn 
[+] TMenu 
[=] TControl 
[=] TwinControl 
FE 


Nous vous livrons ci-après le composant TwinArbre en utilisant la version adjonction des 
propriétés. Nous élargissons les fonctionnalités par des nouvelles propriétés qui encapsulent 
des propriétés des 3 composants associés. 


Propriétés du TwinArbre Composant auquel elle est liée 
La property Potentiometre est liée directement en 
lecture au composant TTrackBar. 


property Potentiometre: TTrackBar read 
FPotentiometre; 


La property Tree est liée directement en lecture et en 
écriture au composant TOutline. 

La property profondeur est liée au composant 
TOutline. 


property Tree: Toutline read FTree write FTree; 


property Profondeur:integer read GetProfondeur; 


DROpEND REPÈRE ARGENT La property Enabled est reliée aux trois composants. 


Setenabled; 

proper See PRES Red GAIÈRES waite La property Lignes est reliée au composant TOutline. 
SetLignes; 

property Couleur: TColor read GetCouleur write | La property Couleur est reliée au composant 
SetCouleur; TOutline. 

property Ascenceur: TScrollStyle read La property Ascenceur est reliée au composant 
GetAscenceur write SetAscenceur ; TOutline. 


Afin de donner une vue un peu plus élargie de la construction de tels composants, nous avons 
programmé deux événements dans notre composant TwinArbre : un événement associé au 
Toutline et un événement associé au TTrackBar. Nous "exportons" l'interception 
événementielle d'un des 3 composant associé comme étant un nouvel événement du 
composant TCustomControl formé par l'agrégation des 3 composants. La classe 
TeustomControl sert ainsi de classe "enveloppe". 


Les bases de l'informatique - programmation - (6. 05.09.2004 ) page 808 


Ci-dessous les codes sources de chaque propriété : 


Propriétés du TwinArbre 


Code Delphi de lecture/écriture 


property Profondeur:integer 
read GetProfondeur; 


La property profondeur est reliée au composant Toutline : 


function TwinArbre.GetProfondeur:integer; 


// met la profondeur de l'arbre dans la propriété profondeur 


begin 


result:=Getmaxniveau / même métode que dans Ttree1 


end; 


property Enabled:boolean read Getenabled 
write Setenabled; 


La property Enabled est reliée aux trois composants : 
function TwinArbre.GetEnabled:boolean; 
{/ en lecture enabled:Tboolean 
begin 

result:=FTree.enabled and FPotentiometre.enabled ; 
end; 


procedure TwinArbre.SetEnabled(x:boolean); 
! en écriture enabled:Tboolean 
begin 

FTree.Enabled:=x; 
FPotentiometre.enabled:=x ; 
if x=false then 

begin 

OldColor:=Ftree.color; 

Ftree.color:=clsilver; 

FEditi.color:=cisilver 

end 

else 

begin 

Ftree.color:=OlIdColor; 

FEdit]l .color:=OldColor 

end 
end; 


property Lignes: Tstrings read GetLignes 
write SetLignes; 


La property Lignes est reliée au composant Toutline: 


function TwinArbre.GetLignes:Tstrings; 
/ en lecture lines:Tstrings 
begin 
result:=FTree.lines 
end; 


procedure TwinArbre.SetLignes(x:Tstrings); 
// en écriture lines:Tstrings 

begin 

FTree.lines:=x 

end; 


property Couleur: TColor read GetCouleur 
write SetCouleur; 


La property Couleur est reliée au composant Toutline : 
function TwinArbre.GetCouleur:TColor; 
/ en lecture color:TColor 
begin 
result:=FTree.color 
end; 


procedure TwinArbre.SetCouleur(x:TColor); 
{/ en écriture color:TColor 

begin 

FTree.color:=x 

end; 
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La property Ascenceur est reliée au composant Toutline : 


function TwinArbre.GetAscenceur:TScrollStyle; 
/ en lecture ScrollBars:TScrollStyle 

begin 

result:=FTree.ScrollBars 


property Ascenceur: TScrollStyle read 
end; 


GetAscenceur write SetAscenceur ; 


procedure TwinArbre.SetAscenceur (x:TScrollStyle); 
/ en écriture ScrollBars:TScroliStyle 
begin 
FTree.ScrollBars:=x 
end; 


Le lecteur pourra s’inspirer de ce développement pour écrire son code personnel sur d’autres 
événements. 


2.2 Evénement OnChange de TWinArbre 


Nous avons programmé la réaction de notre composant à la manipulation de la glissière sur la 
barre graduée. Nous avons choisi l’événement OnChange du TTrackBar. 

Cet événement permet d’afficher tout un niveau de l’arbre du Toutline lorsque l’utilisateur 
actionne la glissière. 


La valeur du niveau est affichée dans le Tedit. 


Gracine Gracine 
&Gune une 
une01 une01 
Gune02 Gune0?2 
& deux L'Eune021 
LE deuxdi & deux 
trois L& deux01 
@deux011 
Edeux0111 
EË deux0112 
E deux012 
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Le gestionnaire d'événement associé au niveau du TCustomControl doit avoir l’en-tête 
obligatoire d’un gestionnaire d’événement OnChange (un TNotifyEvent). Il a été nommé 
PotentiometreChange.Voici son en-tête : 


procedure PotentiometreChange(Sender: TObject); 


2.3 Evénement OnMouseDown de TWinArbre 


Nous avons programmé de la même façon, une réaction spécifique de notre composant 
TCustomControl sur un click du bouton droit de la souris dans la zone du TOutline. Nous 
avons choisi pour ce faire l’événement OnMouseDown du Toutline. 


Cet événement permet d’afficher seulement le chemin partant de la racine vers la feuille ou 
le noeud sélectionné ’, le reste de l'arbre n'étant pas développé : 


on sélectionne “"deux011" 


Gracine (e 
une Oune 
Eune01 &@ deux 
&une02 L@ deux01 
L'Eune021 © deux011 
deux E deuxÜ1 2 
@ deux01 RE trois 
& droit de souris 
FÉdeudtit TT __—— 
E deux0112 
EË deux012 


Atrois 


—" a 


Le chemin racine\deux\deux01\deux011 est affiché visuellement, toutes les autres branches 
inutiles visuellement sont refermées. 


Le gestionnaire d’événement associé au niveau du TCustomControl a été nommé 
ArbreMouseDown. I doit avoir l’en-tête obligatoire d’un gestionnaire d’événement 


OnMouseDown (un TmouseEvent). Voici son en-tête : 


procedure ArbreMouseDown (Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer); 


2.4. Le composant TWinArbre peut se redimensionner 
En anticipant sur le prochain chapitre, nous avons rajouté, à l’intention du lecteur désireux de 


pouvoir modifier la taille de son composant lors de la conception avec son environnement 
Delphi, une méthode interne spécifique de redimensionnement. Les explications complètes du 


Les bases de l'informatique - programmation - {4 05.09.2004 ) age. 811 
pds 


fonctionnement, se trouvent au chapitre sur les messages Windows. Nous livrons tel quel le 
code de la méthode autorisant le redimensionnement du composant TwinArbre : 


private 
procedure WMSize(var Message: TWMsize); message WM_SIZE; 


procedure TwinArbre. WMSize(var Message: TWMsize); 
{permet de modifier la taille du TCustomcontrol lors de la conception} 
begin 
inherited; 
Ftree.setbounds(0,0,width,height-25); 
FPotentiometre.setbounds(0,FTree.Top+FTree.Height,width-25,25); 
FEditi.setbounds(FPotentiometre.left+FPotentiometre.width, Ftree.Top+Ftree.Height,25,25); 
end; 


Sans vouloir trop entrer dans de la technicité inutile et spécifique à ce RAD, indiquons que 
nous avons intercepté le message de modification de taille. Nous avons conçu tous les 
composants en positionnement relatif les uns par rapport aux autres en prenant comme 
référence de départ le Toutline Ftree. L'écriture " Ftree.setbounds(0,0,width,height-25) " 
indique que le Toutline est positionné en top—0, left-0 du composant, qu’il a toute la largeur 
du composant (Width) et que sa hauteur est celle du composant moins 25 pixels (height-25). Il 
faut donc dessiner sur le papier soigneusement le composant avant de l’implanter. 


En fait cette attitude permet d’avoir une sorte d’homothétie sur les différents éléments visuels 
de TwinArbre. Le lecteur pourra se servir de ce composant, il possède alors, une base de 


travail à enrichir soit par de nouvelles propriétés, soit par des réactions à de nouveaux 
événements. 


__ Code complet du composant TWinArbre sé 
D ___ 


unit UWinArbre; 


interface 

uses 
SysUtils, WinTypes, WinProcs Messages, Classes, Graphics,Controls, 
Forms, Dialogs, StdCtrlis,ExtCtrls,Grids,Outline,ComCtrls; 

type 


TwinArbre = class(TCustomControl) 
private 

FPotentiometre: TTrackBar; 

FEditl: TEdit; 

FTree:Toutline; 

OldColor:TColor; 

procedure WMSize(var Message:TWMsize);message WM_SIZE; 
function Getmaxniveau:integer; 
function GetProfondeur:integer; 
function GetEnabled:boolean; 
procedure SetEnabled(x:boolean); 
function GetLignes:Tstrings; 
procedure SetLignes(x:Tstrings); 
function GetCouleur:TColor; 
procedure SetCouleur(x:TColor); 
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function GetAscenceur:TScrollStyle; 

procedure SetAscenceur(x:TScrollStyle); 

procedure affiche_un_niveau(le_niveau:integer); 

procedure affiche_racine; 

procedure lire_un_niveau(indice:integer sniveau:integer); 
procedure CalCulChemin(Noeud:ToutLineNode;Liste:TStringList); 
procedure ArbreMouseDown(Sender: TObject; Button: TMouseButton; 

shift: tshiftstates 

X, y: integer); 

procedure PotentiometreChange(Sender: TObject); 
public 

Liste: TStringList; 

constructor Create(Aowner:Tcomponent);override; 

property Potentiometre: TTrackBar read FPotentiometre; 

property Tree: Toutline read FTree write FTree; 

property Profondeur:integer read GetProfondeur; 
published 

property Enabled:boolean read Getenabled write Setenabled; 
property Lignes: Tstrings read GetLignes write SetLignes; 

property Couleur: TColor read GetCouleur write SetCouleur; 
property Ascenceur: TScrollStyle read GetAscenceur write SetAscenceur; 

end; 


procedure Register; 
implementation 


procedure Register; 

begin 

RegisterComponents('Perso', [TwinArbre]); 

end; 

{ CIN les constructeurs {WII} 

procedure TwinArbre. WMSize(var Message:TWMsize); 

{permet de modifier la taille du customcontrol lors de la conception} 
begin 

inherited; 

Ftree.setbounds(0,0,width,height-25); 
FPotentiometre.setbounds(0,FTree.Top+FTree.Height,width-25,25); 
FEdit1.setbounds(FPotentiometre.left+FPotentiometre.width,Ftree.Top+Ftree.Height,25,25); 
end; 


constructor TwinArbre.Create(Aowner:Tcomponent); 
begin 

inherited create(Aowner); 

OldColor:=clWindow; 

setbounds(10,10,200,200); 
Ftree:=Toutline.create(self); 

Ftree.parent:=self; 
Ftree.setbounds(0,0,width,height-25); 
FTree.OnMouseDown:=ArbreMouseDown; 
Ftree.color:=OldColor; 
FPotentiometre:=TTrackBar.create(self); 
FPotentiometre.parent:=self; 
FPotentiometre.setbounds(0,FTree.Top+FTree.Height,width-25,25); 
FEditl:=TEdit.create(self); 

FEdit1.parent:=self; 

FEdit1.color:=OlIdColor; 

if Getmaxniveau>0 then 
FPotentiometre.Max:=Getmaxniveau-1 

else 
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fpotentiometre.max:=0; 
FPotentiometre. Min:=0; 
FPotentiometre.Position:=0; 
FPotentiometre.LineSize:=1; 
FPotentiometre.PageSize:=1; 
FPotentiometre.TickMarks:=tmTopLeft; 
FPotentiometre.OnChange:=PotentiometreChange; 
FEdit1.setbounds(FPotentiometre.left+FPotentiometre.width,Ftree.Top+Ftree.Height,25,25); 
FEdit1.text:=inttostr(FPotentiometre. Min); 
FEdit1.ReadOnly:=true; 
Liste:=TStringList.create; 
end; 
LOI implantation MMM} 


function TwinArbre.Getmaxniveau:integer; 
{donne la profondeur maximum} 
var i,max:integer; 
begin 
if Ftree.Itemcount<>0 then 
begin 
max:=l; 
for i:=1 to Ftree.Itemcount do 
if max<Ftree.Items[i].level then 
max:=Ftree.ltems[i] level; 
Getmaxniveau:=max; 
end 
else 
getmaxniveau:=0 
end; 


procedure TwinArbre.affiche racine; 

{remonte à la racine d'où que l'on soit} 

var num_lev:integer; 

begin 

if Ftree.Itemcount<>0 then 

begin 
num_lev:=Ftree.items|[Ftree.selecteditem].topltem; 
Ftree.Selectedltem:=Ftree.items[num_lev].parent.index; 
Ftree.items[1].expanded:=false; 

end 

end; 


procedure TwinArbre.lire_un_niveau(indice:integer;sniveau:integer); 
{descente recursive en préordre sur un outline} 
var node:ToutlineNode; {pour simplifier les manipulations} 
indice_node_fils,indice_node_pere:integer; 
begin 
if (indice<>-1 )and(Ftree.ItemCount<>0) then 
begin 
node:=Ftree.items[indice]; 
indice_node_pere:=Ftree.items[indice]|.parent.index; 
indice _node_fils:=indice; 
if node.Hasltems then /5/ y a des descendants} 


begin 

if node.level<=niveau then /uniguement si le niveau est correct} 
begin 

node.expand; {visualiser les descendants à level+1} 


indice_node_pere:= Ftree.SelectedItem; //e noeud est le père} 
Ftree.Selectedltem:=Ftree.Items[Ftree.Selectedltem].GetFirstChild; /le ler à gauche} 
indice_node_fils:=Ftree.Selectedltem; /indice du noeud fils gauche} 
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if indice _node_fils<>-1 then 

begin 

lire_un_niveau(indice node_fils,niveau); 
indice:=Ftree.Items[indice_node_pere].GetNextChild(indice_node_fils);/indice du frère suivant} 


end; 

while indice<>-1 do {examen de tous les frères de indice_ node fils} 
begin 

Ftree.Selectedltem:=indice; [le frère suivant} 


indice_node_fils:=Ftree.Selectedltem; //e frère suivant est le nouveau fils} 
lire_un_niveau(indice node_fils,niveau); 
indice:=Ftree.Items[indice_node_pere].GetNextChild(indice_node_fils); {indice du frère suivant} 
end 
end 
end 
end 
end; 


procedure TwinArbre.affiche_un_niveau(le_niveau:integer); 
{pour visualiser tout le niveau choisi par l'utilisateur} 
var 
indice_noeud:integer; 
begin 
affiche_racine; /affiche la racine dans tous les cas} 
if le_niveau<>0 then 
begin 
indice_noeud:= Ftree.selecteditem; 
lire_un_niveau(indice noeud,le_niveau); 
if Ftree.Itemcount<>0 then 
begin 
indice_noeud:=Ftree.Items|1].GetNextChild(indice_noeud); 
while indice_noeud<>-1 do 
begin 
Ftree.selecteditem:=indice_noeud; 
lire_un_niveau(indice_noeud,le_niveau); 
indice_noeud:=Ftree.Items|1].GetNextChild(indice_noeud); 
end 
end 
end 
end; 


procedure TwinArbre.CalCulChemin(Noeud:ToutLineNode;Liste:TStringList); 
{stockage dans une Liste du chemin des numéros 
de noeuds depuis la racine jusqu'à "noeud" } 
begin 
if Noeud.index <> 1 then /on ne remonte pas au delà de la racine!} 
begin 
Liste.add(inttostr(Noeud.parent.index)); 
CalCulChemin(Noeud.parent,Liste) 
end 


procedure TwinArbre.PotentiometreChange(Sender: TObject); 
{le curseur sert à définir le n° du niveau de l'arbre à afficher} 
begin 
if Getmaxniveau>0 then 
FPotentiometre.Max:=Getmaxniveau-1 
else 
fpotentiometre.max:=0; 
FEdit1.text:=inttostr(FPotentiometre.Position); 
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FPotentiometre.Selstart:=0; 
FPotentiometre.Selend:=FPotentiometre.Position; 


affiche_un_niveau(FPotentiometre.Position); 
end; 


procedure TwinArbre.ArbreMouseDown(Sender: TObject; Button: TMouseButton; 
{lorsqu'on clicke avec le bouton droit de souris l'objet émet un son 

et il affiche uniquement le chemin permettant d'arriver à l'élément 

qui est actuellement sélectionné dans l'arbre. } 

shift: tshiftstates 


X, y: integer); 
var numltem,i:integer ; 
begin 
with Sender as TOutLine do 
begin 
numltem:=selecteditem; 
if numltem>0 then /-/ pour rien de sélectionné et 0 si vide} 
if Button=mbRight then 
begin 
MessageBeep(MB_ICONASTERISK); {function de l'API Windows: émet un son) 
Liste.clear; 
CalCulChemin(items[numltem],Liste); 
items[1].Collapse; {fermeture de tout l'arbre} 
for i:=Liste.count-1 downto 0 do 
Items{strtoint(Liste.strings{i])].-expand; {expansion des parents seulement} 


FEdit1.text:="; {on montre que cette partie n'est pas active} 
FPotentiometre.Selstart:=0; / 


--- idem --- } 
FPotentiometre.Selend:=0; / --- idem --- } 
end 
end 

end; 


LOI) LES PROPRIETES {MMM} 


function TwinArbre.GetProfondeur:integer; 
// met la profondeur de l'arbre dans la propriété profondeur 


begin 
result:=Getmaxniveau 
end; 
f----------- les propriétés héritées des composants utilisés --------- } 
function TwinArbre.GetLignes:Tstrings; / en lecture lines: Tstrings 
begin 
result:=FTree.lines 
end; 


procedure TwinArbre.SetLignes(x:Tstrings); / en écriture lines:Tstrings 
begin 


FTree.lines:=x 
end; 


function TwinArbre.GetCouleur:TColor; / en lecture color: TColor 
begin 

result:=FTree.color 

end; 


procedure TwinArbre.SetCouleur(x:TColor); / en écriture color: TColor 
begin 


FTree.color:=x 
end; 
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function TwinArbre.GetAscenceur:TScrollStyle; / en lecture ScrollBars:TScrollStyle 
begin 

result:=FTree.ScrollBars 

end; 


procedure TwinArbre.SetAscenceur(x:TScrollStyle); // en écriture ScrollBars:TScrollSryle 
begin 

FTree.ScrollBars:=x 

end; 


function TwinArbre.GetEnabled:boolean; // en lecture enabled:Tboolean 
begin 

result:=FTree.enabled and FPotentiometre.enabled ; 

end; 


procedure TwinArbre.SetEnabled(x:boolean); / en écriture enabled:Tboolean 

begin 
FTree.Enabled:=x; 
FPotentiometre.enabled:=x ; 
if x=false then 
begin 
OldColor:=Ftree.color; 
Ftree.color:=clsilver; 
FEditl.color:=clsilver 
end 
else 
begin 
Ftree.color:=OIdColor; 
FEdit1.color:=OldColor 
end 

end; 

end. 


2.5 Un composant de saisie d'expression arithmétique avec Init et Follow 


Voici le code d'un autre composant de saisie des 
expressions arithmétiques, élaboré à partir de 
plusieurs composants visuels associés. 


Son développement met en œuvre la démarche 
du paragraphe précédent associée à une saisie 
par filtrage étudiée au chapitre de l'analyse des 
grammaires LL(1), avec un analyseur 
descendant récursif qui est inclu dans la unit du 
composant. 


Le lecteur analysera les fonctions du logiciel et 
pourra y adjoindre de nouvelles fonctionnalités : 


Q Ajouter des boutons < , >, =, et les ; 
programmer. Abandonner ACceprer | 


Q Ajouter des événements : OnTest, 
OnAccepter… 
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| Code complet du composant TExpraritm a 
Dee sl D TS 


unit UComposExprarithm; 


1! composant de saisie d'expressions arithmétiques par filtrage 
interface 


uses Controls,StdCtris,Buttons, WinTypes,Classes; 
const 
et=\s 
ou="|'; 
non="-"; 
opdiv='%'; 
opmod="@"'; 
Maxlongexpr=50; 
maxvar=50; 
LesChiffres="0123456789.'; 
LesOper="+-*1)/%@ ('; 
LesCompar="<<>><="; // pour extension ultérieure 
ExprFausse="#"##%15%#"; 
type 
TypBouton=(TO,T1,T2,T3,T4,T5,T6,T7,T8,T9,T10,TTest,Tback,Tclear,Tplus, 
Tmoins,Tmult,Tpuiss,Tparferm,Tdiv,Tdivint, Tmod,Tparouvr, 
Tvar,Tleave,TFin); 
TableBouton=array[TypBouton]of TBitBtn; 
enscar=set of char; 


TExpraritm=class(TCustomControl) 

private 
Editl: TEdit; 
Edit2: TEdit; 
ListBoxvar: TListBox; 
UnBouton:TableBouton; 
numcar: integer; 
carlu: char; 

LesFollow,LesInit:enscar; 
Chiffres,Lettres:enscar; 
edit_expr,expr_loc,expr_err:string; {expressions dans l'éditeur} 
erreur_expr:boolean; {erreur dans l'expression} 
procedure ListBoxClick(Sender: TObject); 
procedure BitBtnClick(Sender: TObject); 
procedure BitBtnTestClick(Sender: TObject); 
procedure BitBtnbackClick(Sender: TObject); 
procedure BitBtnclearClick(Sender: TObject); 
procedure BitBtnvarClick(Sender: TObject); 
procedure BitBtnleaveClick(Sender: TObject); 
procedure BitBtnfinClick(Sender: TObject); 
procedure expr; 

procedure init; 

procedure carsuiv; 

procedure err(n:integer); 

function GetLignes:Tstrings; 

procedure SetLignes(x:Tstrings); 

public 

Expression:string; 

Reconnue:boolean; 

constructor create(Aowner:Tcomponent);override; 

published 

property Lignes:TStrings read GetLignes write SetLignes; 

end; 
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procedure Register; 


implementation 
uses Dialogs,SysUtils, Graphics; 


procedure Register; 


begin 

RegisterComponents('Perso', [TExpraritm]); 

end; 

{7 Utilitaires de positionnement-------------------- } 
procedure PositionBoutonsChiffre(var Table:TableBouton); 
const h=33; 

wW=33; 
var 1:TypBouton; 
begin 

Table[T7].setbounds(8,48,H,W ); 


Table 
Table 
Table 
Table 
Table 
Table 
Table 


T8].setbounds(41,48,H,W); 
T9].setbounds(74,48,H,W); 
TO].setbounds(107,48,H,W); 
T4].setbounds(8,81,H4,W); 
T5].setbounds(41,81,H4,W); 
T6].setbounds(74,81,H,W); 
T10].setbounds(107,81,H,W); 
Table[T1].setbounds(8,114,H4,W); 
Table[T2].setbounds(41,114,H4,W); 
Table[T3].setbounds(74,114,H,W); 
for i:=T0 to T10 do 
Table[i].caption:=LesChiffres[ord(i)+1]; 
{-———— Les autres boutons ---------- } 
Table[Tback].setbounds(107,114,41,W); 
Table[Tback].caption:="back'; 
Table[Tback].Font.color:=clBlue; 
Table[Tclear].setbounds(148,114,41,W); 
Table[Tclear].caption:='clear'; 
Table[Tclear].Font.color:=clRed; 
Table[TTest].setbounds(148,56,49,41); 

[ 

[ 

[ 

[ 

[ 

[ 


Ce D D D D me 


Table[TTest].caption:='Test'; 
Table[TTest].Font.color:=clBlue; 
Table[Tleave].setbounds(8,232, 113,25); 
Table[Tleave].caption:='Abandonner'; 
Table[TFin].setbounds(120,232,113,25); 
Table[TFin].caption:='Accepter'; 
Table[TFin].Font.color:=clRed; 
Table[TFin]|.Font.Size:=14; 
Table[TFin].enabled:=false; 
end; 


procedure PositionBoutonsOper(var Table:TableBouton); 
const h=33; 

wW=33; 

var 1: TypBouton; 

begin 

Table[Tplus].setbounds(8,162,H4,W); 
Table[Tmoins].setbounds(41,162,H,W); 
Table[Tmult].setbounds(74,162,H,W); 
Table[Tpuiss].setbounds(107,162,H,W); 
Table[Tparferm].setbounds(140,162,H,W); 
Table[Tdiv].setbounds(8,195,H,W); 
Table[Tdivint].setbounds(41,195,H4,W); 
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Table[Tmod].setbounds(74,195,H,W); 
Table[Tparouvr].setbounds(107,195,H,W); 
Table[Tvar].setbounds(140,195,41,W); 

for i:=Tplus to Tparouvr do 
Table[i].caption:=LesOper[ord(i)-ord(Tplus)+1]; 
Table[Tvar]|.caption:='var'; 

end; 

{AU a construction //{{/HI III} 

constructor TExpraritm.create(Aowner:Tcomponent); 

var num:TypBouton; 

begin 

inherited create(Aowner); 
setbounds(0,0,325,290); 

for num:= TO to TFin do 

begin 
UnBouton[num]:=TBitBtn.create(self); 
UnBouton[num].parent:=self; 
UnBouton[num].Font.name:="Times New Roman'; 
UnBouton[num].Font.Style:=[fsBold]; 
UnBouton[num].Font.Size:=12; 

UnBouton[num].OnClick:=BitBtnClick; 

end; 
UnBouton[TTest].OnClick:=BitBtnTestClick; 
UnBouton[Tback].OnClick:=BitBtnbackClick; 
UnBouton[Tvar].OnClick:=BitBtnvarClick; 
UnBouton[Tleave].OnClick:=BitBtnleaveClick; 
UnBouton[TFin].OnClick:=BitBtnfinClick; 
UnBouton[Tclear].OnClick:=BitBtnclearClick; 
PositionBoutonsChiffre(UnBouton); 
PositionBoutonsOper(UnBouton); 

Editl :=TEdit.create(self); 
Edit2:=TEdit.create(self); 

Editl.parent:=self; 
Edit1.setbounds(8,8,313,27); 
Edit1.color:=clAqua; 

Editl.ReadOnly:=true; 

Edit2.parent:=self; 
Edit2.setbounds(8,262,313,27); 
Edit2.color:=clYellow; 
ListBoxvar:=TListBox.create(self); 
ListBoxvar.parent:=self; 
ListBoxvar.setbounds(216,48,105,177); 
ListBoxvar.OnClick:=ListBoxClick; 
Expression:=ExprFausse; 

Reconnue:=false; 

end; 


{HI Les gestionnaires d'événements Onclick ////////1/1/} 

procedure TExpraritm.ListBoxClick(Sender: TObject); 

begin 

if ListBoxvar.itemindex<>-1 then 

begin 
expr_loc:=concat(expr_loc,ListBoxvar.items[ListBoxvar.itemindex]); 
Editl.text:=expr_loc 

end 

end; 


procedure TExpraritm.BitBtnClick(Sender: TObject); 
var car:char; 
begin 
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with sender as TBitBtn do 
begin 
UnBouton[TFin].enabled:=false; 
car:=caption|1]; 
if car in ['0'..91+l%",7,+1,-,#1\,@";(,);".5'\T then 
expr_loc:=concat(expr_loc,caption) 
end; 
editl.text:=expr_ loc; 
end; 


procedure TExpraritm.BitBtnTestClick(Sender: TObject); 
begin 
Expression:=ExprFausse; 
Reconnue:=false; 
if length(expr_loc)<=Maxlongexpr then 
begin 
init; 
edit2.text:="; 
edit_expr:=expr_ loc; 
edit_expr := concat(edit_expr,'#'); 
Carsuiv; 
erreur_expr:=false; 
expr; 
if erreur_expr then 
edit2.text:=expr_err 
else 
begin // expression correcte 
UnBouton[TFin].enabled:=true; 
Expression:=expr_ loc 
end 
end 
else 
MessageDlg('Expression trop longue !", mtWarning,[mbOKk], 0); 
end; 


procedure TExpraritm.BitBtnbackClick(Sender: TObject); 
begin 

expr_loc:=copy(expr_loc.l.length(edit1.text)-1); 
edit1.text:=expr_ loc; 

UnBouton[TFin].enabled:=false; 

end; 


procedure TExpraritm.BitBtnclearClick(Sender: TObject); 
begin 

expr_loc:="; 

edit1.text:=expr_ loc; 

UnBouton[TFin].enabled:=false; 

end; 


procedure TExpraritm.BitBtnvarClick(Sender: TObject); 

begin 

if UnBouton[Tvar]|.tag=1 then 
begin 
ListBoxvar.visible:=true; 
UnBouton[Tvar].tag:=0; 

end 

else 

begin 
ListBoxvar.visible:=false; 
UnBouton[Tvar].tag:=1; 
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end 
end; 


procedure TExpraritm.BitBtnleaveClick(Sender: TObject); 

begin 

edit_expr:=ExprFausse; 

UnBouton[TFin].enabled:=false; 

Reconnue:=false; 

MessageBeep(MB_ICONASTERISK); {function de l'API Windows} 
Edit2.text:='Ok abandon reconnu! 

end; 


procedure TExpraritm.BitBtnfinClick(Sender: TObject); 
begin 

Reconnue:=true; 
MessageBeep(MB_ICONQUESTION); {function de l'API Windows} 
Edit2.text:='Ok expression acceptée ! 

end; 

{INT Les Propriétés III} 
function TExpraritm.GetLignes:Tstrings; 

begin 

result:=ListBoxvar.items 
end; 


procedure TExpraritm.SetLignes(x:Tstrings); 
begin 

ListBoxvar.items:=x 

end; 


{HIHI Analyseur descendant récursif d'expressions ////////11/1/} 
procedure TExpraritm.init; 

begin 

numcar := 0; 

LesFollow:=['+", '-", "#1, 7 @VZN) ANT; 
LesInit:=["(,""';'a".z1;0.9"]; 

Chiffres:=['0"..9"]; 

Lettres:=['a"..7'|; 

end; 


procedure TExpraritm.carsuiv; 

Var CharS:string[1 ]; 

begin 

numcar := numcar + 1; 
CharS:=LowerCase(edit_expr{[numcar]); 
carlu := CharS[1]; 

end; 


procedure TExpraritm.err(n:integer); 

var 

i: integer; 

begin 
expr_err:=concat(">>> Erreur ',inttostr(n),': ‘); 
Editi .Hideselection:=false; 
Edit1.SelStart:=numcar-1; // sélection du car erroné 
Edit1.SelLength:=1; 

for i := 1 to numcar do 
expr_err:=concat(expr_err,edit_expr[il]); 

if carlu='# then 
carlu:=edit_expr{numear-1]; 
expr_err:=concat(expr_err,' <--[ ',carlu,' |); 
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erreur_expr:=true; 
end; 


procedure TExpraritm.expr; 
procedure fact; 
begin 
if not erreur_expr then 
begin 
if carlu in LesInit then 
begin 
case 
carlu of 
Ne 
begin 
Carsuiv; 
if carlu in LesInit then 
begin 
Fact; 
if erreur_expr then 
exit 
Carsuiv; 
if not(carlu in lesfollow) then 
ert(7) 
end 
else 
err(8) 
end; 
C: 
begin 
Carsuiv; 
if carlu in LesInit then 
begin 
Expr; 
if erreur_expr then 
ext 
if carlu<>')' then 
err(9) 
else 
carsuiv; 
if not(carlu in lesfollow) then 
err(10) 
end 
else 
ert(11) 
end; 
d.2: 
begin 
carsuiv; 
if carlu in Chiffres+Lettres then 
while carlu in Chiffres+Lettres do 
Carsuiv; 
if not(carlu in lesfollow) then 
err(12) 
end; 
0'..'9": 
begin 
carsuiv; 
while carlu in chiffres do 
Carsuiv; 
if carlu=". then 
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begin 
Carsuiv; 
while carlu in chiffres do 
Carsuiv; 
if not(carlu in lesfollow) then 
ert(13) 
end; 
if not(carlu in lesfollow) then 
ert(14) 
end; 
end {case} 
end 
end 
end; 


procedure Terme; 
begin 
if not erreur_expr then 
begin 
if carlu in LesInit then 
begin 
Fact; 
if erreur_expr then 
exit 
while carlu in['*, /'@',%','"] do 
begin 
Carsuiv; 
if carlu in lesinit then 
fact 
else 
err(1); 
if erreur_expr then 
exit; 
end; 
if not (carlu in lesfollow) then 
err(2) 
end 
else 
err(3) 
end 
end; 


begin{expr} 
if not erreur_expr then 
begin 
if carlu in LesInit then 
begin 
Terme; 
if erreur_expr then 
exit; 
while carlu in['+', '-'] do 
begin 
Carsuiv; 
if carlu in lesinit then 
terme 
else 
err(4); 
if erreur_expr then 
exit; 
end; 
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if not (carlu in lesfollow) then 
err(s) 
end 
else 
err(6) 
end 
end; {expr} 


end. 


3. Construire un composant non visuel 


En utilisant notre démarche de construction progressive et de tests successifs, nous pouvons 
sans effort particulier encapsuler dans un composant non visuel beaucoup d’unités 


réutilisables. 


Nous allons encapsuler un TStringList dans un composant non visuel construit à partir de la 
classe de composant abstrait TComponent que nous nommons Tliste. 


La seule différence avec les exemples précédents réside dans la classe de départ dont nous 
devons faire hériter notre futur composant. En Delphi nous devons dériver notre composant 
non visuel de la classe Tcomponent. La classe TComponent est le point de départ abstrait de 
tous les composants de Delphi et nous devons remonter à ce niveau lorsque nous voulons 
construire un composant qui ne sera pas un contrôle (un contrôle = un composant visuel). 


TListe = class (TComponent) 
[=] TObiect private 
# re a FListGeneric:TstringList; 
ist 
u LES public 
sgh property ListGeneric:TstringList 
[] TCollectionltern d FListG ; 
[] TCallection ré ae 
(F1 TStimgs write FListGeneric; 
end; 


Comme nous voulions malgré tout bénéficier des propriétés et des méthodes de la classe 
TStringList, nous avons utilisé la démarche suivante : 


e construire un champ privé du type dont on veut dériver (ici TstringList), 
e construire une propriété du composant qui permettra de lire et d'écrire dans ce champ. 


L’effort de construction que nous avons à apporter est minimal puisqu’il concerne 
uniquement l'exportation des méthodes 
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ne Code complet du composant TListe D 
D a D... 


Les propriétés et les méthodes sont fournies à titre d’exemple pédagogique. Nous 
encourageons le lecteur à réécrire et à développer lui-même à partir du composant TListe un 
composant personnalisé de liste de chaînes. 


unit UListeCompos; 
interface 


uses 
StdCtris, 


Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs; 


type 

TListe = class(TComponent) 
private 

FListGeneric:TstringList; 
function Getcount:integer; 
function GetDuplic:boolean; 
procedure SetDuplic(x:boolean); 
function Getsorted:boolean; 
procedure Setsorted(x:boolean); 


public 

constructor create(Aowner:Tcomponent);override; 
destructor Liberer; 

{opérateurs de manipulation de la liste} 

procedure Effacer; 

function Element(rang:integer):string; 

function Position(element:string):integer; 
procedure Ajouter(ch:string); 

procedure Inserer(element:string;rang:integer); 
procedure Modifier(rang:integer;element:string); 
procedure Supprimer(rang:integer); 

{opérateurs de recopie d'une liste} 

procedure EstUneCopiede(T :TListe); 

procedure VersListBox(LBox:TListBox); 
{opérateurs d'entrée/sortie dans une liste} 
procedure Charger; 

procedure Sauver; 

{propriétés publiques, uniquement consultables} 
property Quantite:integer read Getcount ; 

property ListGeneric:TstringList read FListGeneric; 


published 


property Dupliquee:boolean read GetDuplic write SetDuplic; 
property Triee:boolean read Getsorted write Setsorted; 
end; 


procedure Register; 
implementation 
procedure Register; 


begin 
RegisterComponents('Perso', [TListe]); 
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end; 


UM PARTIE PUBLIC Æ///MWMMINIINN/} 
constructor TListe.create(Aowner:Tcomponent); 

begin 

inherited create(Aowner); 
FListGeneric:=TstringList.create; 

dupliquee:=false; 

triee:=false; 

end; 


destructor TListe.Liberer; 
begin 

FListGeneric.free; 
inherited destroy; 

end; 
LES Méthodes publiques ----------------"-- /} 
procedure TListe.Effacer; 
{ré-initialise à vide } 

begin 

FListGeneric.clear; 

end; 


function TListe.Flement(rang:integer):string; 

{fournit l'élément string de n°rang} 

begin 

if rang in [1..FListGeneric.count] then 
Element:=FListGeneric.strings{rang-1] 

else 

begin 
Element:="; 
Application. MessageBox(">>> Méthode : ELEMENT", 
‘Rang d'élément hors limites’, mb_OK); 

end 

end; 


function TListe.Position(element:string):integer; 

{ donne le rang de la première apparition de l'élément: 
position=0 si non l'élément n'est pasprésent dans la liste } 

begin 

Position :=FListGeneric.IndexOf(element)+1 

end; 


procedure TListe.Ajouter(ch:string); 
{ajout d'un élément en fin de liste} 
begin 

FListGeneric.Add(ch); 

end; 


procedure TListe.Inserer(element:string;rang:integer); 
{insérer l'élément donné au rang indiqué} 
begin 
if not Triee then 
if rang in [1..FListGeneric.count] then 
FListGeneric.Insert(rang-1,element) 
else 
Application.MessageBox(>>> Méthode : INSERER', 
‘Rang d''élément hors limites’, mb_OK); 
end; 
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procedure TListe.Modifier(rang:integer ;element:string); 
{changer le contenu au rang indiqué par l'élément donné} 
begin 
if not Triee then 
if rang in [1..FListGeneric.count] then 
FListGeneric.strings[rang-1 ]:=element 
else 
Application. MessageBox('>>> Méthode : MODIFIER, 
"Rang d''élément hors limites', mb_OK); 
end; 


procedure TListe.Supprimer(rang:integer); 

{supprimer l'élément situé à ce rang} 

begin 

if rang in [1..FListGeneric.count] then 
FListGeneric.Delete(rang-1) 

else 
Application.MessageBox(>>> Méthode : SUPPRIMER, 
"Rang d''élément hors limites’, mb_OK); 

end; 

LES recopie d'une liste------------"-- 1} 


procedure TListe.EstUneCopiede(T:TListe); 
{effectue une copie de liste} 

begin 

Effacer; 
FListGeneric.Assign(T.ListGeneric); 

end; 


procedure TListe.VersListBox(LBox:TListBox); 
{recopie en mode string le contenu de la liste dans une ListBox} 
begin 
if assigned(LBox) then 
LBox.items:=FListGeneric 


LI ENTREE/SORTIE----------------------- /N/} 

procedure TListe.Charger; 

{charger la liste à partir d'un fichier} 

var Ouvrir:TOpenDialog; 

begin 

Ouvrir:=TOpenDialog.create(self); 

Ouvrir filter:='Texte|*.txt'; 

Ouvrir. Title:='Chargement d'une liste'; 
Ouvrir.Options:=[ofFileMustExist,ofHideReadOnly]; 
if Ouvrir.execute then 
FListGeneric.LoadFromfile(Ouvrir.Filename); 
Ouvrir.free 

end; 


procedure TListe.Sauver; 

{sauver la liste à partir dans un fichier } 

var Save:TSaveDialog; 

begin 

Save:=TSaveDialog.create(self); 
Save.filter:='Texte|*.txt'; 

Save.Title:=' Sauvegarder la liste'; 
Save.Options:=[ofOverwritePrompt,ofHideReadOnly]; 
if Save.execute then 
FListGeneric.SaveTofile(Save.Filename); 
Save.free 
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{> PROPRIETE PUBLIC --------------"--"- } 
function TListe.Getcount:integer; 
{fournit le nombre d'éléments dans la propriété Quantite} 


begin 

Getcount:=FListGeneric.count 

end; 

=> PROPRIETES PUBLISHED -------------------- } 


function TListe.GetDuplic:boolean; 

{méthode de lecture de l'autorisation d'élément dupliqué} 

begin 

if FListGeneric.duplicates=dupAccept then 
GetDuplic:=true 

else 
getduplic:=false 

end; 


procedure TListe.SetDuplic(x:boolean); 
{méthode d'écriture autorisant ou non la duplication d'éléments} 
begin 
if x=true then 
FListGeneric.duplicates:=dupAccept 
else 
flistgeneric.duplicates:=duperror 
end; 


function TListe.Getsorted:boolean; 

{méthode de lecture de l'autorisation de liste triée} 
begin 

Getsorted:=FListGeneric.sorted 

end; 


procedure TListe.Setsorted(x:boolean); 
{méthode d'écriture autorisant ou non le tri de la liste} 
begin 
if x=true then 
FListGeneric.sorted:=true 
else 
flistgeneric.sorted:=false 
end; 


end. 


3.2 Utilisation du composant TListe 


Un exemple d’utilisation du composant liste : Il s’agit d’une interface de stockage dans trois 
listes de type TListe de la taille et du poids idéal d’un individu (à partir d’un exemple d’un ouvrage 
sur Visual basic) : 


ListeIndiv : TListe 


ListeHomme : TListe 
ListeFemme : TListe 
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Au furet à mesure de la demande 

de l’utilisateur, le programme range |. 

dans la liste " ListeIndiv " les VU 

: : e 4 
informations sur la personne. Il est ’ $ Taille (cm) Poids (Kg) 
possible à chaque instant de nue 182 

construire à partir de cette liste a KA fraeur ae cata 
deux sous listes selon le sexe des | STE aTEr 
individus ( ListeHomme et 1m à 2m10 at mdr 
ListeFemme ). Création des listes : 


$ créer Liste Féminin 


$ créer Liste Masculin 


1x 


Consultation des listes : 
$ YOrLSte FEMININ 
F vorlLstetasculn 

Ÿ voir Liste Entière 


La | ps 
K7 Effacer l'écran 


Le logiciel " PoidsListe" assure un certain niveau de sécurité en utilisant les principes de 
programmation défensive étudiés au chapitre correspondant. 


ne Code source utilisant le composant TListe LL _— 
a . 


unit UFListPoids; 


interface 


uses 


Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, 
ExtCtris, StdCtrls, Buttons, UListeCompos; 


type 

TForm1 = class(TForm) 
OptionFemme: TRadioButton; 
OptionHomme: TRadioButton; 
Imagel: TImage; 
Image2: TImage; 
Labell: TLabel; 
SaisieTaille: TEdit; 
Bevel3: TBevel; 
AffichePoids: TLabel; 
Label5: TLabel; 
Label4: TLabel; 
Label2: TLabel; 
Bevell : TBevel; Frabur RRaE catrae) 
Bevel2: TBevel; 

Label3: TLabel; 
BitBtnStockListe: TBitBtn; 
ListBoxl: TListBox; 


1m à 2m10 


Poids fKkgj 
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BitBtnvoirListFemme: TBitBtn; €—— 


BitBtnvoirListHomme: a | Paponiste féminin 


Label6: TLabel; 
Label7: TLabel; 


BitBtnCreeListFemme: TBitBtn; 
BitBtnCreeListHomme: TBitBtn; 
Bevel6: TBevel; D 


Ÿ voir Liste Entière 


Bevel4: TBevel; $ créer Liste Féminin 
BitBtnEffaceEcran: TBitBtn; 
Label8: TLabel; 


Listelndiv: TListe; 


ListeHomme: TListe; Composants de Tliste non visuels 
ListeFemme: TListe; 


Listel: TListe; 
procedure OptionHommeClick(Sender: TObject); 
procedure OptionFemmeClick(Sender: TObject); 
procedure SaisieTailleChange(Sender: TObject); 
procedure FormCreate(Sender: TObject); 
procedure BitBtnStockListeClick(Sender: TObject); 
procedure BitBtnCreeListFemmeClick(Sender: TObject); 
procedure BitBtnCreeListHommeClick(Sender: TObject); 
procedure BitBtnvoirListFemmeClick(Sender: TObject); 
procedure BitBtnvoirListHommeClick(Sender: TObject); 
procedure BitBtnListEntiereClick(Sender: TObject); 
procedure BitBtnEffaceEcranClick(Sender: TObject); 
private 

{ Déclarations privées } 

public 

{ Déclarations publiques } 

end; 

Tsexe=(homme,femme); 

Tindividu=class 

public 
Etat:Tsexe; 
Taille:integer; 
Poids:real; 

private 
procedure CalculPoids; 
function CoherenceTaille:Boolean; 

end; 


@ créer Liste Masculin 


var 
Forml: TForml; 
Personne:Tindividu; 


implementation 

const KFemme='Féminin'; 
KHomme='Masculin'; 
var ChaineListe:string; 


{$R *.DFM} 

{""— INITIALISATION DE LA FENETRE --------------" } 
procedure TForml1.FormCreate(Sender: TObject); 

begin 

Personne:=Tindividu.create; 

end; 

"7 METHODES DE LA CLASSE Tindividu ----------------"--- } 
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procedure Tindividu.CalculPoids; 
{calcule le poids si la taille est dans les limites, puis affiche le 
résultat dans affichepoids } 
begin 
if CoherenceTaille then 
begin 
case 
etat of 
femme: 
begin 
Poids:=(Taille-100)*0.85; 
Forml1.AffichePoids.Caption:=FloatToStrF(Poids,ffFixed,5,2); 
ChaineListe:=KFemme+' ‘; 
end; 
homme: 
begin 
Poids:=(Taille-100)*0.9; 
Forml1.AffichePoids.Caption:=FloatToStrF(Poids,ffFixed,5,2); 
ChaineListe:=KHomme+' ‘ 
end; 
end; {case} 
Form1.BitBtnStockListe.enabled:=true; {active le bouton de stockage dans liste} 
end 
else 
begin 
Form1.BitBtnStockListe.enabled:=false; {désactive le bouton de stockage } 
Forml1.AffichePoids.caption:="; {efface l'affichage du poids} 
end 
end; {-- Fin CalculPoids --} 


function Tindividu.CoherenceTaille:Boolean; 

{indique si la taille est dans les limites acceptées } 

begin 

if (not(Taille in [100..190))and(Etat-Femme))or 
(not(Taille in [100..210])and(Etat-Homme))then 
CoherenceTaille:=false 


else 
coherencetaille:=true 
end; {-- Fin CoherenceTaille --} 


{III LES OBJETS VISUELS {HEIN} 


=" Ù LES OBJETS DE SAISIE ----------"" } 
procedure TForm1.OptionHommeClick(Sender: TObject); 
{permet de saisir le champ etat} 
begin 
Personne.Etat:=homme; 
if SaisieTaille.Text<>" then 
SaisieTaille.clear; 
SaisieTaille.SetFocus; {par souplesse pour l'utilisateur } 
end; 


procedure TForml1.OptionFemmeClick(Sender: TObject); 
{permet de saisir le champ etat} 
begin 

Personne.Etat:=femme; 

if SaisieTaille.Text<>" then 

SaisieTaille.clear; 

SaisieTaille.SetFocus; {par souplesse pour l'utilisateur } 
end; 
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procedure TForm1.SaisieTailleChange(Sender: TObject); 
{permet de saisir le champ taille} 
begin 
if OptionFemme.Checked or OptionHomme.Checked then 
begin 
try 
Personne.Taille:=Strtolnt(SaisieTaille.Text); 
except {le contenu n'est pas entier ? => "EconvertError"} 
on econverterror do 
personne.taille:=0; 


end; 
Personne.CalculPoids 
end 
end; 
= "— STOCKAGE DANS LA LISTE PRINCIPALE ------------ } 


procedure TForm1.BitBtnStockListeClick(Sender: TObject); 

begin 

BitBtnStockListe.enabled:=false; 

Listelndiv.Ajouter(ChaineListe+' ‘+SaisieTaille.Text+  ‘+AffichePoids.caption); 
Listelndiv.VersListBox(ListBox1); { visualise sur écran la liste } 
SaisieTaille.SetFocus; {par souplesse pour l'utilisateur } 
BitBtnListEntiere.enabled:=true; 

BitBtnCreeListHomme.enabled:=true; {active le bouton création liste Hom} 
BitBtnCreeListFemme.enabled:=true; {active le bouton création liste Fem} 
BitBtnEffaceEcran.enabled:=true; {active le bouton effacement d'écran} 
BitBtnvoirListFemme.enabled:=false; { désactive le bouton voir liste Fem} 
BitBtnvoirListHomme.enabled:=false; {désactive le bouton voir liste Hom} 
end; 


procedure ExtraitListe(Clef:string;ListSource:Tliste; Var ListBut:Tliste); 
{extrait une sous-liste selon une clef principale } 
var i:integer; 
begin 
if ListSource.Quantite>0 then {la liste n'est pas vide} 
begin 
ListBut.Effacer; 
for i:=1 to ListSource.Quantite do 
if pos(clef,ListSource.Element(i))<>0 then 
ListBut.Ajouter(ListSource.Element(i)) 
end 
else 
begin 
Form1.BitBtnCreeListHomme.enabled:=false; {désactive le bouton création liste Hom} 
Form1.BitBtnCreeListFemme.enabled:=false; {désactive le bouton création liste Fem} 
end 
end; 


procedure TForm1.BitBtnCreeListFemmeClick(Sender: TObject); 
{bouton de création de la liste Fem} 

begin 

ExtraitListe(KFemme,ListeIndiv,ListeFemme); 
BitBtnvoirListFemme.enabled:=true; 

end; 


procedure TForm1.BitBtnCreeListHommeClick(Sender: TObject); 
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{bouton de création de la liste Hom} 

begin 
ExtraitListe(KHomme,ListeIndiv,ListeHomme); 
BitBtnvoirListHomme.enabled:=true; 

end; 


procedure TForm1.BitBtnvoirListFemmeClick(Sender: TObject); 
begin 

ListeFemme.VersListBox(ListBox1); { visualise sur écran la liste } 
end; 


procedure TForm1.BitBtnvoirListHommeClick(Sender: TObject); 
begin 

ListeHomme.VersListBox(ListBox1); { visualise sur écran la liste } 
end; 


procedure TForm1.BitBtnListEntiereClick(Sender: TObject); 
begin 

ListeIndiv.VersListBox(ListBox1); {visualise sur écran la liste} 
end; 


procedure TForm1.BitBtnEffaceEcranClick(Sender: TObject); 
begin 

ListBoxl.clear; 

end; 


end. 


Ici aussi le lecteur est encouragé à modifier et à ajouter de nouvelles fonctionnalités en se 


servant du source fourni dans l'exemple comme base de travail. 
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Chapitre 8.2 Les messages Windows 


Plan du chapitre: È 


1. La programmation dirigée par les messages 


1.1 Que sont et à quoi servent les messages 
1.2 Les messages systèmes 
1.3 Delphi et les messages 


2. Mécanisme de la répartition des messages en Delphi 


2.1 property OnMessage 

2.2 procedure Main WndProc 

2.3 procedure Dispatch 

2.4 Interception directe d'un message 
2.5 procedure DefaultHandler 

2.6 Gestionnaire d'événement 


Création et envoi de message en Delphi 


al 


3.1 Envoyer un message avec PostMessage et SendMessage 
3.2 Exemple d'utilisation 
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1. La programmation dirigée par les messages 


La programmation événementielle peut être présentée comme deux attitudes à adopter lors de 
la construction d'une application dans un système comme Windows : 


Réagir à des événements (des messages système). 
Engendrer des messages (pour simuler des événements). 


Dans les deux cas la notion de messages est présente, ce sont donc des outils de base de ce 
type de programmation. 


1.1 Que sont et à quoi servent les messages 


Les messages sont la base de la communication à l'intérieur du système 
d'exploitation. Ils sont le résultat d'événements que le système intercepte ou de 
communications du système avec ses différents composants. 


Certaines actions extérieures ou intérieures au système déclenchent des événements. Windows 
génère alors en continu, un flot de messages en direction des applications ou vers d'autres 
parties du système lui-même dans le cas de messages internes. Comme son nom l'indique 
Windows s'intéresse tout particulièrement aux fenêtres, donc pour chaque fenêtre présente, 
ces messages sont stockés dans une file d'attente (de type FIFO) et sont traités au fur et à 
mesure par le système. 


Certains messages de cette file d'attente sont associés à des événements particuliers. 
Un tel message peut ainsi être récupéré par une application : nous dirons alors que 
l'application "réagit à l'événement". 


Rappellons que si l'on se place soit du point de vue de l'utilisateur, soit de celui d'une 
application (ce qui est notre cas), Windows devient alors semblable à une grande boucle qui 
attend un événement d'où qu'il vienne, le stocke dans la file des messages, puis le traite. Voici 
pour une fenêtre le pseudo-comportement de Windows : 


tantque non ArrêtSysteme faire 
si événement alors 
construire Message ; 
si Message z Arrêts ysteme alors 
reconnaître la fenêtre à qui est destinée ce Message; 
distribuer ce Message 
fsi 
fsi 
ftant 
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Dans ce document, la partie traitement des messages destinés à un contrôle d'une fenêtre ou 
d'une application Delphi, est le seul mécanisme qui nous intéresse dans notre programmation 
événementielle. Nous pouvons utilement et très schématiquement, matérialiser un tel 
traitement sous la forme de la boucle suivante : 


tantque FIFO des messages non vide faire 

lire en tête de FIFO le Message; 

construire une structure associée à ce Message; 

utiliser la méthode interne de traitement sur ce Message 
ftant 


Remarque 
Pendant que ce traitement a lieu, Windows continue en outre à intercepter d'autres 
événements et à stocker dans la file d'attente les messages associés à ces 
événements et les messages internes. 


En résumé nous pouvons énoncer l'affirmation suivante : 


Le système envoie ou poste des messages prédéfinis à une application, mais 


réciproquement une application peut envoyer ou poster des messages vers d'autres 
fenêtres ou d'autres applications. 


1.2 Les messages systèmes dans Windows 


Chaque message système dispose d'un identificateur unique du message. Il correspond à une 
constante numérique de base de Windows. Chaque identificateur de message est associé à 
une action spécifique. 


Le classement des messages dans Windows s'effectue par un préfixe qui permet de déterminer 
la catégorie à laquelle appartient le message. 


Soit par exemple le message dont l'identificateur est WM_KEYDOWN, il appartient à la 
catégorie des messages généraux de Windows WME_ xxx. C'est un message associé à l'appui 
d'une touche de clavier. Le préfixe de l'identificateur indique le type de fenêtre qui peut 
intercepter et donc réagir à ce message. 


Les messages WM_ xxx sont des Window Messages donc destinés à toutes les fenêtres. 
Les messages LB_ xxx sont des List Box messages destinés aux boîtes de listes. 

Les messages EM_ xxx sont des Edit Messages destinés aux contrôles d'édition. 

Les messages SBM_ xxx sont des Scroll Barre Messages destinés aux barres de défilement. 


etc. 
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L'aide en ligne de l'API W32 de Windows nous fournit à toutes fins utiles, la structure 
générale d'un message de Windows : 


voici cette structure en C : voici cette structure en Delphi : 
typedef struct tagMSG { //msg type 
HWND hwnd; TMsg = packed record 
UINT message; hwnd: HWND; 
WPARAM wParam; message: UINT; 
LPARAM IParam:; wParam: WPARAM; 
DWORD time; IParam: LPARAM: 
POINT pt; time: DWORD; 
} MSG: pt: TPoint; 
end; 


Ci-dessous la signification des champs de la structure d'un message : 


hwnd = la référence de la fenêtre à qui est destinée le message. 

message = la constante numérique identifiant le message. 

wParam = entier positif codé sur quatre octets [0..4294967295] représentant un 
premier paramètre dont la signification dépend de la catégorie du message. 


IParam = entier quelconque codé sur quatre octets [-2147483648..2147483647 ] 
représentant un deuxième paramètre dont la signification dépend de la catégorie du 
message. 

time = heure système à laquelle le message a été créé par Windows. 

pt = position du curseur de souris en coordonnées d'écran (pt.x, pt.y :Longint) 


Exemple: 
Lors de l'appui sur une touche clavier que va-t-il se passer ? 
Si vous tapez sur la touche "M" du clavier, une série de messages est envoyée en cascade : 


a Un message WM_KEYDOWN est automatiquement envoyé par Windows dans la 
file d'attente de la fenêtre détenant la focalisation (nommons la Fen Win), dès que la 
touche est enfoncée, et ceci tant que la touche est enfoncée. 

a Ensuite Windows envoie le message WM_CHAR (qui contient le caractère entré au 

clavier) dans la même file; 

a puis lorsque vous relâchez la touche, il envoie enfin un message WM_KEYUP. 


Que contient par exemple, la structure TMsg lors du traitement de ce message 
WM_KEYDOWN (information obtenue à partir de l'aide en ligne de l'API Win32): 


hwnd: référence (pointeur,adresse) de la fenêtre Fen Win. 
message: WM_KEYDOWN, (valeur numérique=256) 
wWParam: = 77 (code virtuel de la touche M ici) 
IParam: les 32 bits de ce mot indiquent les informations suivantes : 
a bits 0.15 : le nombre sur 16 bit indique combien de fois 1l faut répéter le caractère. 
Il correspond au maintien de la touche enfoncée. 
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bits 16..23 : un code spécifique au clavier (OEM) 

bit 24 : si bit = 1 c'est une touche étendue (ALT+,CTRL+....) sinon bit = 0 

bit 25..28 : réservé par le système. 

bit 29 : bit de contexte = 0 pour ce message. 

bit 30 : bit d'état précédent de cette touche si bit = 1 la touche est déjà enfoncée, 
sinon la touche était relevée et alors bit = 0 

bit 31 : bit d'état de transition = 0 pour ce message. 


D DO DCD 


D 


1.3 Delphi et les messages 


Une application Delphi est basée sur une fenêtre d'application. Nommons notre application 
FenDelphi; elle est donc considérée par Windows comme une fenêtre quelconque et à ce titre 
elle peut recevoir et envoyer des messages. 


Une application Delphi possède des outils d'interception de la structure TMsg, de son 
décodage et de son interprétation. Nous avons déjà vu que Delphi disposait, à l'attention du 
programmeur, pour chaque objet et pour certains événements, de gestionnaires d'événement. 


Ces gestionnaires sont des outils de premier niveau (en fait les plus abstraits et les plus 
encapsulés)de gestion des messages. L'inspecteur d'objet nous a permis de nous familiariser 
avec de tels gestionnaires dans son onglet événements. 


Inspecteur d'objets Xx| 


| Form TFormi e | 


Propriétés Evénements | 


[Action Le 
äctiveControl | 


OnCanResize 


OnCloseQuery | | 
Tous affichés Z 


Onglet - événements 


Si nous reprenons l'exemple précédent de l'appui sur la touche "M" du clavier lorsque 
FenDelphi détient la focalisation, nous savons que Windows va construire la structure TMsg 
précédente et l'ajouter dans la file d'attente des messages de FenDelphi. 


Supposons que dans notre application FenDelphi nous ayons déposé sur la fiche Form1 deux 


contrôles visuels Edit1 et Edit2 de la classe des TEdit, et que ce soit Edit1 qui détienne le 
focus lors du lancement de l'application FenDelphi : 


Les bases de l'informatique - programmation - 61. 05.09.2004 ) page 839 


Edit détient le focus dans Forml de FenDelphi 


Nous souhaitons faire réagir Edit1 à l'appui sur la touche "M" du clavier de la façon suivante : 
dès que l'utilisateur appuie sur une touche du clavier dans Edit1, il apparaît dans Edit2 le 
code de ce caractère. 

Nous allons utiliser le gestionnaire de l'événement OnKeyDown de Edit1 : 


{inspecteur d'objets ESS 
Edit TEdlit _ 


Propriétés Evénements | 


ND ragD op |. 
OnDragûyer 


OnKeyDown [EditiKeyDown x 
OnKeyPress 


procedureTForm1.EditiKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState); 
begin 

Edit2.text:=inttostr(Key) //Code du caractère entré dans Edit, recopié dans Edit2 
end; 


l'utilisateur a appuyé sur la touche "m" : 


PEUR - 01 < 
[m 


Voici l'aide en ligne de DELPHI sur l'événement OnKeyDown : 
type 

TKeyEvent = procedure (Sender: TObject; var Key: Word; Shift: TShiftState) of object; 
property OnKeyDown: TKeyEvent; 


a Le gestionnaire d'événement OnKeyDown permet d'effectuer un traitement spécifique 
quand une touche est enfoncée. Le gestionnaire OnKeyDown peut répondre à toutes 
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les touches du clavier, y compris les touches de fonction et les combinaisons avec les 
touches Maj, Alt et Ctrl ainsi qu'avec les boutons de la souris. 

a Le paramètre Key indique la touche du clavier. 

a Le type TKeyEvent pointe sur une méthode (un gestionnaire d'événement) gérant les 
événements du clavier : ici TForml.EditiKeyDown 

ao OnKeyDown est déclenché automatiquement lorsque le message WM_KEYDOWN 
est intercepté par l'application. 


Il existe donc un mécanisme interne à Delphi qui a permis à notre application de reconnaître 
que Windows avait envoyé le message WM_KEYDOWN dans la structure TMsg, ce 
mécanisme a permis aussi d'appeler le gestionnaire TForm1.EditiKeyDown que nous avons 
écrit afin d'effectuer la recopie du code dans Edit2. 


2. Mécanisme de répartition des messages en Delphi 


Delphi répartit les messages de plusieurs façons : 


Chaque composant hérite d'un système complet de répartition de message. Toutes les classes 
Delphi disposent d'un mécanisme intégré pour gérer les messages : ce sont les méthodes de 
gestion des messages ou gestionnaires de messages, ces méthodes sont choisies dans un 
ensemble de méthodes spécifiques. 


Le système de répartition de message dispose d'une gestion par défaut. Vous ne définissez de 
gestionnaire que pour les messages auxquels vous souhaitez spécifiquement répondre. Un 
gestionnaire par défaut est appelé si aucune méthode n'est définie pour le message. 


Le diagramme suivant illustre une partie essentielle du fonctionnement du système de 
répartition de message dans Delphi et les différents niveaux d'interception possibles d'un 
message : 


Application. OnMessage 
MainWndProc (var Message : Tmessage )} 


WndProc (var Message : Tmessage); virtual, 
Dispatch (var Message :Tmessage) 
proc ABC(..\ message ABC xxx, 


gestionnaire d'événement 
intégré dans insp. objet 


property OnMessage: TMessageEvent; 
procedure Main WndProc(var Message: TMessage); 
procedure WndProc(var Message: TMessage); virtual; 


Les bases de l'informatique - programmation - (r6v. 05.09.2004 ) age. 841 
pds 


procedure Dispatch(var Message); virtual: 
procedure ABCxxx(var Message: TMessage):message ABC_xxx; 
procedure DefaultHandler(var Message); virtual: 


Procédons à l'examen de chaque niveau d'interception 

2.1 niveau : property OnMessage 

Si vous voulez intercepter tout ou partie des messages Windows expédiés à toutes les fenêtres 
de l'application Delphi, utilisez l'événement OnMessage de la classe TApplication qui 


encapsule toute application Delphi. Cet événement OnMessage est déclenché dès que votre 
application reçoit un quelconque message de Windows. 


property OnMessage: TMessageEvent; 
type TMessageEvent = procedure (var Msg: TMsg; var Handled: Boolean) of object; 


L'écriture du gestionnaire d'événement OnMessage vous permet de répondre à tous les 
messages que reçoit l'application: 


type 
TForm1 = class(TForm) 

private 

procedure MonAppliMessages(var Msg: TMsg; var Handled: Boolean); 
end; 


implementation 


procedure TForm1.MonAppliMessages(var Msg: TMsg; var Handled: Boolean); 
begin 
//traitement du message contenu dans Msg du type TMsg 
if Msg.message= WM_LBUTTONDOWN then Traitement 
end; 
//Le gestionnaire étant créé par l'instruction Application.OnMessage:=MonAppliMessages : 
procedure TForm1.FormCreate(Sender: TObject); 
begin 
Application.OnMessage := MonAppliMessages; 
end; 


si vous ne créez pas un tel gestionnaire le message est distribué à la fenêtre à laquelle il est 
destiné et Delphi continue la suite de tentative de traitement du message pour la fenêtre 
concernée. Tout d'abord Delphi transtype la struture TMsg en une structure interne de type 
TMessage : 


structure Tmsg en Delphi : structure TMessage en Delphi : 
type 


Transtypage TMessage = record 
type Ms£g: Cardinal; 
TMs£g = packed record case Integer of 
hwnd: HWND:; 0: ( 
message: UINT; WParam: LongInt; 
wParam: WPARAM:; LParam: Longint; 
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IParam: LPARAM: Result: Longint); 


time: DWORD; 1:( 
pt: TPoint; WParamLo: Word; 
end; WParamHi: Word; 


LParamLo: Word; 
LParamHi: Word; 
ResultLo: Word; 
ResultHi: Word); 
end 
end; 


Transtypage 


Le champ hwnd n'a plus de raison d'exister puisque la fenêtre à qui le message s'adresse a déjà 
été identifiée. Les champs time et pt de la structure TMsg sont réintégrés à l'intérieur d'autres 
champs de la structure TMessage. 


Remarque 
OnMessage ne reçoit que des messages envoyés à la file d'attente Fifo des 
messages, et non ceux envoyés directement (en particulier ceux de SendMessage). 


2.2 niveau : procedure Main WndProc - WndProc 


L'interception ayant eu lieu la redirection vers la fenêtre adéquate est assurée par la 
procedure Main WndProc(var Message: TMessage); c'est la procedure WndProc(var 
Message: TMessage),; virtual; surchargeable, qui va se charger de traiter ou transmettre le 


message. 
Enix OnMessage _—} 
MainWndProc (var Message : Tmessage ’(i 
—VWndProc (var Message : Tmessage);virtual, = 
Exemple : 


soit dans une application à intercepter l'enfoncement du bouton gauche de la souris. 


type 
TFormi1 = class(TForm) 

private 

procedure WndProc (var Message: TMessage); override; 
end; 


implementation 


procedure TForm1.WndProc(var Message: TMessage); 
begin 

if Message.Msg = WM_LBUTTONDOWN then Traitement 
end; 
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Le traitement ci-dessus de WM_LBUTTONDOWN dans WndProc arrête la diffusion des 
messages vers les autres niveaux d'encapsulation. 


Le code de la procédure WndProc tel qu'il est écrit ci-dessus est inefficace et peut produire un 
message d'erreur car de tous les messages passant par WndProc nous n'avons décidé de n'en 
traiter qu'un seul le : WM_LBUTTONDOWN, en oubliant les autres messages de la fenêtre 
comme le positionnement, l'affichage etc. 


Pour laisser Delphi s'occuper du reste il suffit de rajouter inherited à la fin de WndProc et la 
transmission des autres messages pourra se poursuivre. 


Es OnMessage _—} 


MainWndProc (var Message : Tmessage ’(i 


—VW/ndProc (var Message : Tmessage); virtual 


, — 


et 


type 
TFormi1 = class(TForm) 

private 

procedure WndProc(var Message: TMessage); override; 
end; 


implementation 


procedure TForm1.WndProc(var Message: TMessage); 

begin 
if Message.Msg = WM_LBUTTONDOWN then Traitement 
inherited; 

end; 


2.3 niveau : procedure Dispatch 


La méthode WndProc reçoit tous les messages destinés à la fenêtre et fait un filtrage. Elle 
appelle la méthode Dispatch pour chaque message selectionné, cette méthode n'a pas de type 
au message qui est transmis, c'est un message générique. Si vous voulez intercepter un 
message spécifique à ce niveau vous devrez le transtyper par exemple en TMessage. 


type 
TFormi1 = class(TForm) 
private 
procedure Dispatch(var Message); override; 
end; 


-WndProc (var Message : Tmessage); virtual, = 
implementation 


Dispatch (var Message :Tmessage 
Fe ( 8 ge) n 


procedure TForm1.Dispatch(var Message); 
begin 
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if Tmessage (Message). Msg = WM_LBUTTONDOWN then .…7raitement 
end; 


2.4 niveau : Interception de redéfinition d'un message 
procedure ABCxxx(var Message: TMessage):message ABC_xxx; 


Ce mécanisme direct vous autorise à créer une méthode spécifique en redéfinissant le 
traitement d'un message donné du système Windows. Il s'agit d'une redéfinition, car le 
message ABC_xxx est traité par la classe, la procedure ABCxxx(var Message: TMessage) 
remplace ce traitement habituel (liaison statique) par le vôtre. L'utilisation d'inherited se 
justifie pleinement si l'on souhaite laisser le traitement habituel avoir lieu. 


En reprenant le même exemple d'enfoncement du bouton gauche de souris : 


type 
TForm1 = class(TForm) 
private 
procedure WMLBUTTONDOWN(var Message:Tmessage);message WM_LBUTTONDOWN; 
end; 


implementation 


procedure TForm1.WMLBUTTONDOWN(var Message:Tmessage); 
begin 

….Traitement 

{si vous mettez inherited et qu'un gestionnaire de l'événement a été écrit par le programmeur pour 
un événement déclenché par WM_LBUTTONDOWN, vous pouvez laisser le message continuer à être 
traité.} 
end; 


Au chapitre précédent dans le composant TwinArbre nous construit une telle procédure : 


private 
procedure WMSize(var Message:TWMsize), message WM_ SIZE; 


procedure TwinArbre. WMSize(var Message: TWMsize); 
{permet de modifier la taille du TCustomcontrol lors de la conception} 


begin 
inherited; 
Ftree.setbounds(0,0,width,height-25); 
FPotentiometre.setbounds(0,FTree.Top+FTree.Height,width-25,25); 
FEditi.setbounds(FPotentiometre.left+FPotentiometre.width, Ftree.Top+Ftree.Height,25,25); 
end; 


Elle intercepte et redéfini le message WM_ SIZE, qui est envoyé au composant 
TCustomControl dès qu'une de ses dimensions est modifiée. Nous avons mis inherited afin de 
laisser se propager le message WM_ SIZE aux niveaux en-dessous et afin que le 
TCustomControl réagisse correctement , puis nous avons programmé le redimensionnement 
de chacun des composants visuels déposé sur le TcustomControl. 
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2.5 niveau : procedure DefaultHandler 


Si aucun gestionnaire n'a été écrit pour ce message, le système de gestion par défaut de Delphi 
s'en charge à votre place : il appelle la méthode DefaultHandler. Comme pour Dispatch le 
paramètre est de type message générique. Il s'agit ici d'un mécanisme qui se trouve juste au 
dessus de celui du gestionnaire d'événement. 

DefaultHandler permet en particulier de gérer par surcharge tous les messages pour lesquels 
l'objet n'a pas de gestionnaire spécifique ou bien d'intercepter (c'est le denier niveau possible) 
un message connu par l'objet. 


type 
TForm1 = class(TForm) 
private 
procedure DefaultHandler(var Message), override; 
end; 


implementation 


procedure TForm1.DefaultHandier(var Message); 

begin 

if TMessage(Message).Msg = WM_LBUTTONDOWN then … 7raitement 
end; 


2.6 niveau : Gestionnaire d'événement 


Enfin si un gestionnaire d'événement a été écrit par le programmeur, la méthode Dispatch 
l'appelle. II s'agit des gestionnaires d'événements qui sont fournis par Delphi avec une entrée 
dans l'inspecteur d'objet, ici pour l'interception de l'enfoncement de la souris l'événement 
OnMouseDown est géré. L'événement OnMouseDown est déclenché automatiquement 
lorsque l'un des messages suivants WM_LBUTTONDOWN, WM_MBUTTONDOWN, 
WM_RBUTTONDOWN sst intercepté par l'application : 


type 
TForm1 = class(TForm) 
procedure FormMouseDown(Sender: TObject; Button: TMouseButton; 
Shift: TShiftState; X, Y: Integer); 
private 


CLEO 


implementation 


procedure TForm1.FormMouseDown(Sender: TObject; Button: TMouseButton; 
Shift: TShiftState; X, Y: Integer); 
begin 
…. Traitement 
end; 
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Exemple : affichage de la hiérarchie des niveaux d'interception du WM_LBUTTONDOWN 


Dans cet exemple nous interceptons le click gauche de souris à tous les niveaux, et nous 


laissons l'interception continuer aux niveaux inférieurs grâce au inherited. Ci-dessous le code 
source de la unit du programme Delphi correspondant : 


Unit Unitexemple; 
interface 
uses 
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, 
StdCtrls; 
type 
TForm1 = class(TForm) 
Edit1: TEdit; 
Edit2: TEdit; 
Edit3: TEdit; 
Memol: TMemo; 
Labell: TLabel; 
procedure FormMouseDown(Sender: TObject; Button: TMouseButton; 
Shift: TShiftState; X, Y: Integer); 
private 
{ Déclarations privées } 
procedure MonAppliMessages(var Msg: TMsg; var Handled: Boolean); 
procedure WndProc(var Message: TMessage); override; 
procedure Dispatch(var Message);override; 
procedure DefaultHandler(var Message); override; 
procedure WMLBUTTONDOWN(var Message:Tmessage);:message WM_LBUTTONDOWN; 
public 
{ Déclarations publiques } 
end; 
var 
Forml: TForml; 
implementation 
{$R *.DFM} 
procedure TForm1.FormCreate(Sender: TObject); 
begin 
Application. OnMessage:= MonAppliMessages; 
end; 
procedure TForm1.MonAppliMessages(var Msg: TMsg; var Handled: Boolean); 
begin 
if Msg.message= WM_LBUTTONDOWN then 
begin 
Edit1.text:=inttostr(Msg.wParam); 
Edit2.text:=inttostr(Msg.IParam); 
Edit3.text:=inttostr(Msg.time); 
Edit3.color:=clBlue; 
Memol.Lines.Add('intercepté : niveau 1 - MonAppliMessages') 
end; 
inherited 
end; 
procedure TForm1.WndProc(var Message: TMessage); 
begin 
if Message.Msg = WM_LBUTTONDOWN then 
begin 
Edit1.text:=inttostr(Message. WParam); 
Edit2.text:=inttostr(Message.LParamHi) + ' + inttostr(Message.LParamLo); 
Edit3.text:=inttostr(Message.Result); 
Edit3.color:=clred; 
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Memol.Lines.Add('intercepté : niveau 1 - WndProc') 
end; 
inherited; 
end; 
procedure TForm1.Dispatch(var Message); 
begin 
if Tmessage(Message).msg = WM_LBUTTONDOWN then 
begin 
Editl.text:=inttostr(Tmessage(Message). WParam); 
Edit2.text:=inttostr(Tmessage(Message).LParamHi) + ‘/' + inttostr(Tmessage(Message).LParamLo); 
Edit3.text:=inttostr(Tmessage(Message).Result); 
Edit3.color:=clyellow; 
Memol.Lines.Add('intercepté : niveau 2 - Dispatch') 
end; 
inherited; 
end; 
procedure TForm1. WMLBUTTONDOWN(var Message:Tmessage); 
begin 
Edit1.text:=inttostr(Message. WParam); 
Edit2.text:=inttostr(Message.LParamHi) + ' + inttostr(Message.LParamLo); 
Edit3.text:=inttostr(Message.Result); 
Edit3.color:=cilime; 
Memol.Lines.Add('intercepté : niveau 3 - Proc WMLBut') ; 
inherited; 
end; 
procedure TForm1.DefaultHandler(var Message); 
begin 
if Tmessage(Message).msg = WM_LBUTTONDOWN then 
begin 
Edit1.text:=inttostr(Tmessage(Message). WParam); 
Edit2.text:=inttostr(Tmessage(Message).LParamHi)+/"+inttostr(Tmessage(Message).LParamLo); 
Edit3.text:=inttostr(Tmessage(Message).Result); 
Edit3.color:=clAqua; 
Memol.Lines.Add('intercepté : niveau 4 - DefaultHandler') 
end; 
inherited; 
end; 
procedure TForm1.FormMouseDown(Sender: TObject; Button: TMouseButton; 
Shift: TShiftState; X, Y: Integer); 
begin 
Edit3.color:=cllime; 
Memol.Lines.Add('intercepté : niveau 5 - gest. OnMouseDown') ; 
end; 
end. 


Si l'on click sur le fond de la fiche voici l'ordre d'interception en cascade du message 
WM_LBUTTONDOWN : 


Message ‘wM_LEUTTONDOWH 


: niveau 1 - MonäppliMessages 
intercepté : niveau 2 - \WndProc 
intercepté : niveau 3 - Dispatch 
intercepté : niveau 4 - Proc WMLBut 
intercepté : niveau 5 - DefaultHandler 
intercepté : niveau 6 - gest. OnMouseDown 


I 


xl 
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Remarquons que l'Edit3 est en couleur clLime, ce qui est normal puisque c'est le niveau 6 du 
gestionnaire d'événement OnMouseDown qui est exécuté en dernier. 


S1 l'on click dans n'importe lequel des contrôles déposés sur la fiche (un des Edit, ou le memo) 
voici ce que nous obtenons : 


1 =IOLX] 


Message ‘wM_LEUTTONDOWN 
intercepté : niveau 1 - MonäppliMessages 


C'est le gestionnaire MonAppliMessages de l'événement OnMessage de l'application qui a été 
le seul à être exécuté. Ce qui signifie que l'application a bien reçu de la part du système le 
message WM_LBUTTONDOWN et que son gestionnaire MonAppliMessages l'a pris en 
compte. Toutefois comme nous avions clické dans l'Edit2 (Edit jaune) pour la suite Delphi 
n'ayant aucun traitement proposé par le programmeur, a abandonné le traitement de ce 
message. 


3. Création et envoi de message en Delphi 


Il est possible de travailler avec des messages définis par l'utilisateur. Une application Delphi 
traitera ces messages comme elle traite les autres messages système. 


Vous devez déclarer un identificateur de message personnel. Un identificateur de message est 
une constante entière numérique. Windows se réserve pour son propre usage les messages 
dont le numéro est inférieur à 1024. Lorsque vous déclarez vos propres messages, vous devez 
donc toujours débuter par un numéro supérieur ou égal à 1024. 


Delphi vous fournit si vous souhaitez l'utiliser, un identificateur de constante WM_USER 
représentant le numéro de départ (WM_USER = 1024) pour vos messages. 


Voici trois constantes de messages personnels : 
const 
MonMessagel = WM_USER + 100; 
MonMessage2 = WM_USER + 120; 
| MonMessage3 = 1500; 


3.1 Envoyer un message avec PostMessage et SendMessage 
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L'API Windows met à notre disposition de nombreuses procédures de bas niveau permettant 
d'envoyer un message à un contrôle fenêtré (descendant des TWinControl), dont les plus 
simples sont PostMessage et SendMessage. Il est rare que nous soyons obligés d'utiliser ce 
genre de fonction de bas niveau, mais ici l'objectif est d'indiquer comment envoyer des 
messages personnalisés. 


SendMessage (procédure de traitement synchrone) attend que le message soit traité, si le 
message est envoyé à un autre thread, l'application émettrice du message reste bloquée tant 
que l'application receptrice n'a pas fini de le traiter. 

en-tête de la fonction : 


function SendMessage(hwnd : HWND; Msg : cardinal; wParam , IParam : Longint) : Longint; 


Remarque 


SendMessage envoie directement le message à une fenêtre sans passer par la file d'attente. 
L'événement OnMessage de l'application n'est donc pas déclenché, il est conseillé de n'utiliser 
SendMessage qu'à l'intérieur d'une même application pour envoyer des messages synchrones à des 
contrôles fenêtrés de l'application (Fiche, Panel, Edit, etc). Dans le cas où vous utilisez 
SendMessage pour communiquer avec une autre application, pensez bien à construire dans 


l'application réceptrice, une procédure d'interception directe du message personnalisé, ce qui sera le 
seul moyen d'intercepter ce message. 


Fenêtre [fe SendMessage 


Fifo : 122] 


PostMessage (procédure de traitement asynchrone)envoie le message dans la file d'attente 
des messages du contrôle fenêtré et n'attend pas que le message soit traité. 
en-tête de la fonction : 


function PostMessage(hwnd : HWND; Mss : cardinal; wParam , IParam : Longint) : Longint; 


Remarque 


PostMessage envoie le message à une procédure de fenêtre dans la file d'attente de la fenêtre. 
L'événement OnMessage de l'application est déclenché. Dans le cas où vous utilisez 
PostMessage pour communiquer avec une autre application vous pouvez intercepter le 
message personnalisé comme avec SendMessage au niveau procédure d'interception directe, 
mais aussi au niveau de L'événement OnMessage de l'application. 


Fenêtre PostMessage 


Fifo : 


Bien entendu, outre vos messages personnalisés, ces deux procédures permettent aussi 
d'envoyer des messages définis de Windows (WM_xxx, LB_xxx, EM_ xxx, etc...) 


SendMessage(Forml1.Handle, WM_CLOSE,0,0); /message de fermeture de la fiche Form1 
SendMessage(Forml1.Editi.Handle, WM_CHAR:ord("M"),0); /envoi du caractère 'M' dans Editl 


Les bases de l'informatique - programmation - (61. 05.09.2004 ) page 850 


etc. 


Ces deux fonctions de bas niveau, ont comme premier paramètre le Handle de fenêtre du 
contrôle à qui est envoyé le message, 1l existe pour les contrôles en général, une méthode 
notée Perform qui permet d'envoyer directement un message à la procédure de fenêtre du 


contrôle sans avoir à connaître son Handle : le contrôle répond alors comme s'il avait reçu le 
message Windows spécifié. 


function Perform(Msg: Cardinal; WParam, LParam: Longint): Longint; 


Enoncé : 


Afficher le même message WM_USER expédié soit par PostMessage, soit par SendMessage, soit fermer la 


fenêtre principale d'une application PReception.exe, à partir d'une autre application PEmissPost.exe, par 
d'envoi de messages. 


Application émettrice : PEmissPost 


Application réceptrice : Preception 


1 - Source de l'application PEmissPost.exe 


Cette application envoie le message WM_USER (si l'un des deux radio-bouton sendmessage 


ou postmessage est coché), si c'est le radio bouton close qui est coché elle envoie le message 
WM_USER+I : 


Fenêtre d'émission -{0/ x| 


@ sendmessage 
s : | © postmessage 
dois cote cl EM 


code source complet de l'application 
unit UFemissPost; 


interface 


uses 


Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, 
StdCtris, ExtCtrls; 


type 

TFormi = class(TForm) 

Buttoni: TButton; 

Editinfos: TEdit; 

RadioGroupTypeMessage: TRadioGroup; 

procedure Button1Click(Sender: TObject); 

procedure RadioGroupTypeMessageClick(Sender: TObject); 
private 
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{ Déclarations privées } 

public 

{ Déclarations publiques } 
procedure EnvoyerUnMessage; 

end; 


var Forml: TForml; 
implementation 


{£R *dfm) 
f------------ Emission message fermeture à la fenêtre TFExemple ----(émission)--------- } 
/ fermeture de la fenêtre TFxxxx déjà ouverte avant fermeture 
procedure TForml1.EnvoyerUnMessage; 
var 
Wnd:HWnd; 
begin 
Wnd:=FindWindow('TFExemple',nil); / recherche de la fenêtre TFExemple 
if Wnd<>0 then / si instance de la fenêtre trouvée => on lui envoi un message 
begin 
EditInfos.Text:='Fenêtre TFExemple trouvée, message envoyé l'; 
case 
radiogrouptypemessage.itemindex of 
0: SendMessage(Wnd,WM_USER.0,0); / message à traiter directement 
1: PostMessage(Wnd,WM_USER.0,0); // message posté dans la fifo 


2: PostMessage(Wnd,WM_USER+1,0,0); / message close posté dans la fifo } 
end; N, 
end 


else 
EditInfos.Text:='Fenêtre TFExemple non trouvée; 
end; 


procedure TForm1.Button1Click(Sender: TObject); 
begin 

EnvoyerUnMessage; 

end; 


procedure TForm1.RadioGroupTypeMessageClick(Sender: TObject); 
begin 

EditInfos.Text:=" 

end; 


end. 


2 - Source de l'application PReception.exe 


Cette application reçoit des messages en particulier ceux provenant de l'application précédente 
lorsque les deux applications sont exécutées en même temps, nous avons programmé la 
reception et l'interception des messages WM_USER et WM_USER+I à trois niveaux : 
1°)niveau OnMessage, 2°) niveau WndProc , 3°) niveau redéfinition de message. 
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Exemple réception message -{0/ x| 


code source complet de l'application 
unit UFReception; 


interface 
uses 


Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, 
StdCtris, ExtCtris, Buttons; 


type 

TFExemple = class(TForm) Application. OnMessage 

Labell: TLabel; WadP M T 

Editl: TEdit: MainWndProc (var Message : Tmessage ) 


BitBtnEffacer: TBitBtn; 
procedure FormCreate(Sender: TObject); : | 
procedure BitBtnEffacerClick(Sender: TObject); PRE EE 
private proc ABC(..) message ABC xxx, EN 
{ interception à 3 niveaux différents} 
procedure MessageUser(var mess: TMsg;var hand:booleany); 
procedure WndProc(var Message: TMessage);override; 
procedure Mess WMUSER (var Mess: TMessage);message WM_USER:; 
public 
end; 


WndProc (var Message : Tmessage), virtual, 


var 
FExemple: TFExemple; 


implementation 


{£R *.dfm) 
===> Interception message utilisateur ----(reception)--------------- } 
procedure TFExemple.MessageUser(var mess: TMsg;var hand:boolean); 
{ traite le message wm_User intercepté comme un ordre donné à la fenêtre. 
Méthode personnelle de traitement des messages reçus de la part d'une autre application } 
begin 
if mess.message=WM_USER then / message envoyé = WM_USER 
begin 
Edit1.Text:= WM_User OnMessage + '; 
end 
else 
if mess.message= WM_USER+1 then / message envoyé = WM_USER+1 (<=>close ici) 
begin 
close // message reçu interprété ici comme une fermeture "close" 
end; 
{else if mess.messagez=WM_USER+2 then ….} 
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inherited; 
end; 


procedure TFExemple.WndProc(var Message: TMessage); 
begin 

if Message.msg=WM_USER then // message envoyé = WM_USER (<=>close ici) 
begin 

if Edit1.Text=" then 

Edit1.Text:=' WM_USER ‘; 

Editi.Text:=Editi.Text+niveau WndProc'; 

end; 

inherited 
end; 


procedure TFExemple.Mess WMUSER (var Mess:TMessage); 
begin 

Edit1.Text:=Editi.Text+' + redéfinition'; 

end; 


procedure TFExemple.FormCreate(Sender: TObject); 

begin 

Application .OnMessage:=MessageUser; //autorise l'interception des messages expédiés à cette fenêtre 
end; 


procedure TFExemple.BitBtnEffacerClick(Sender: TObject); 
begin 

Edit1.Text:=" 

end; 


end. 


On lance les deux applications PReception.exe et PEmissPost.exe , voici l'état initial des 
deux fenêtres de chaque application lancée en même temps : 


Exemple réception message 


=inix 
Cette fiche ne peut être fermée que par 
A la fiche émetteur grâce à un message de 


fermeture. Elle peut aussi être fermée 
s'adresse par l'appui des touches ALT+F4 


sage | © postmessage | 
© close 
X Effacer le message | 


En cliquant sur le bouton"Envoyer le message" comme le radio-bouton sendmessage est 
sélectionné, c'est l'instruction ‘"SendMessage(Wnd,WM_USER,0,0);''qui est exécutée (rappelons 
qu'elle ne met rien dans la fifo de la fenêtre et que donc OnMessage ne l'intercepte pas, ce que 
l'on vérifie dans les images d'exécution ci-après : 
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Exemple réception message | 


2 Fenêtre d'émission DONNE TE 
[Fenêtre TFExemple trouvée, message envoyé | 


 sendmessa 
© postmessage 
© close 


Cette fiche ne peut être fermée que par 
la fiche émetteur grâce à un message de 
fermeture. Elle peut aussi être fermée 
par l'appui des touches ALT+F4 


S1 l'on sélectionne le radio-bouton postmessage et que l'on clique sur le bouton"Envoyer le 
message", c'est l'instruction ‘'PostMessage(Wnd,WM_USER,0,0);''qui est exécutée (rappelons 
qu'elle met le message dans la fifo de la fenêtre et que donc OnMessage l'intercepte, ce que 
l'on vérifie dans les images d'exécution ci-après : 


Exemple réception message Il 
[2 Fenêtre d'émission DENTS ET 


[Fenêtre TFExemple trouvée, message envoyé | 


© sendmessage 
 postmessage 
© close 


Cette fiche ne peut être fermée que par 
la fiche émetteur grâce à un message de 
fermeture. Elle peut aussi être fermée 
par l'appui des touches ALT+F4 


[WM_User OnMessage + niveau WndProc + redéfinition 


Enfin la fiche de droite se ferme lors du click sur le bouton "Envoyer le message” lorsque le 
radio-bouton close est sélectionné (car c'est le message WM_USER+I qui est posté dans la 
fifo) : 


[2 Fenêtre d'émission ETS ET 
[Fenêtre TFExemple trouvée, message envoyé | 


© sendmessage 
© postmessage 
% close 


Il est conseillé d'exécuter cet exemple sur sa machine, puis de le modifier en testant d'autres 
niveaux d'interception, en bloquant le traitement par suppression du mot inherited afin de bien 
se familiariser avec l'utilisation pratique du mécanisme de répartition des messages avec 
Delphi. 
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Chapitre 8.3 Créer un événement associé à un 
message 


Plan du chapitre: Ë 


1. Rappel sur la construction d'un événement 


2. Exemple de création d'événements dans un TEdit 


2.1 Evènement OnColorChange 
2.2 Evènement OnResize 
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1. Rappel sur la construction d'un événement 


Nous avons déjà fourni une notice méthodologique de construction d'un événement au 
chapitre 5.5, rappelons rapidement en le complétant ce qu'il faut savoir pour élaborer un 
nouvel événement : 


Voici les étapes qui interviennent dans la définition d’un événement : 


- Définition du type de gestionnaire 
- Déclaration de l’événement 
- Appel de l’événement 


Pour construire un nouvel événement dans ClasseA : 
Q Il nous faut d'abord définir un type pour l'événement : EventTruc 


Q Il faut ensuite mettre dans ClasseA une propriété d'événement : property OnTruc : EventTruc 


Q Il faut créer un champ privé nommé FOnTruc de type EventTruc en lecture et écriture qui servira de champ 
de stockage de la propriété OnTruc. 


Q Si l'on pense à la réutilisation de la classe par héritage : Il est utile de créer une méthode centralisatrice 
protected virtuelle d'appel du pointeur de méthode FOnTruc, que les développeurs construisant une 
nouvelle classe héritant de ClasseA redéfiniront dans leur class fille. 


Précédemment nous avons vu comment définir deux événements sur une structure de données 
de pile Lifo, nous rappelons ci-dessous une partie du code que nous allons modifier : 


type 
DelegateLifo = procedure ( Sender: TObject ; s :string ) of object ; 


ClassLifo = class (TList) 
private 
FOnEmpiler : DelegateLifo ; 
FOnDepiler : DelegateLifo , 
public 
function Est_Vide : boolean ; 
procedure Empiler (elt : string ) ; 
procedure Depiler ( var elt : string ) ; 
property OnEmpiler : DelegateLifo read FOnEmpiler write dem eee 
property OnDepiler : DelegateLifo read FOnDepiler write FOnDepiler ; 
protected 
procedure EvtEmpiler (elt : string ) ; virtual; 
procedure EvtDepiler (elt : string ) ; virtual; } 
end; 
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Les appels au pointeur de méthode (qui pointe vers le futur gestionnaire de l'événement) se 
situent à des endroits stratégiques choisis pour représenter la survenue de l'événement choisi 
et ont lieu à travers la méthode virtuelle protected : 


Implementation 


procedure EvtEmpiler (s : string ) ; 
begin 
if assigned(FOnEmpiler) then 


FOnEmpiler ( self ,s) 
end; 


procedure EvtDepiler (s : string ) ; 
begin 
if assigned(FDeEmpiler) then 
FOnDepiler ( self ,s ) 


end; 


procedure ClassLifo.Depiler( var elt : string ) ; 
begin 
if not Est_Vide then 
begin 
elt :=string (self First) ; 
self. Delete(0) ; 
self. Pack ; 
self.Capacity := self.Count ; 
EvtDepiler (elt) 
end 
end; 


procedure ClassLifo.Empiler(elt : string ) ; 
begin 

self.Insert (0 , PChar(elt)) ; 

EvtEmpiler (elt) 
end; 


Ceci représente la construction générale de tout événement, ce qui peut différer d'une 
construction à l'autre c'est la façon et le lieu de l'appel de l'événement. Nous allons voir 
comment utiliser les messages système pour créer des événements en particulier dans les 


TControl. 


2. Création de deux nouveaux événements dans un TEdit 


Mise en oeuvre sur l'adjonction de 2 évènements nouveaux à un composant déjà existant. 
Enoncé : construire dans une classe dérivant des TEdit 


e un événement OnColorChange qui permet de notifier à l'utilisateur un changement 
dans la couleur d'un TEdit et de programmer éventuellement la gestion de cet 
événement. 


e un événement OnResize qui permet de signaler que le TEdit vient de voir changer sa 
taille (l'une de ses deux propriétés width ou height). 
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2.1 Evénement OnColorChange 


2.1.1 Déclenchement de l'événement 
2.1.2 Définition du gestionnaire 

E 2.1.3 Déclaration de l'événement 
2.1.4 Propriété d'accès à l'événement 
2.1.5 Appel de l'événement par procédure 
2.1.6 Le gestionnaire vide de l'événement 


2.1.1 Déclenchement de l'événement 


Comme nous ne sommes pas maître du code source de base des TEdit, il ne nous est pas 
possible de travailler comme dans l'exemple précédent de la pile Lifo. I nous faut essayer de 
trouver s'il existe un message système adéquat et alors l'intercepter pour l'utiliser à nos fins. 


Après observation de la classe des TEdit, nous n'avons pas trouvé de message système 
informant le TEdit que sa couleur vient de changer : soit nous devons abandonner ,soit nous 
cherchons un message qui se rapporte à l'action qui a lieu lorsque la couleur vient de changer. 
Nous remarquons que dans l'éventualité du changement de couleur du fond d'un contrôle, le 
système redessine le contrôle. 


Nous optons donc pour la redéfinition l'interception du message système WM_PAINT qui est 
envoyé très regulièrement à la fenêtre d'un contrôle afin que celui-ci se redessine. Nous avons 
vu au chapitre précédent comment déclarer la méthode d'interception du dit message, nous 
décidons de nommer cette méthode WMPaintChgColor : 


procedure WMPaintChgColor (var Msg : TWMpaint); message WM_PAINT; 


Le type TWMPaint est défini par Delphi pour coder après transtypage un message système 
WM_PAINT 


TWMPaint = packed record 
Msg: Cardinal; 
DC: HDC; 
Unused: Longint; 
Result: Longint; 
end; 


2.1.2 Définition du gestionnaire 


Nous construisons un gestionnaire d'événements spécifiques, car nous souhaitons disposer en 
paramètre de la nouvelle couleur. 


TEventColor = procedure (Sender: TObject; couleur:Tcolor) of object; 
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2.1.3 Déclaration de l'événement 


private FColorChange : TEventColor; 


2.1.4 Propriété d'accès à l'événement 


published 
property OnColorChange : TEventColor read FColorChange write FColorChange; 


2.1.5 Appel de l'événement par une procédure centralisatrice 


protected 
procedure ColorChange(coul:TColor);virtual; 


2.1.6 Le gestionnaire vide de l'événement OnColorChange doit être valide 


if Assigned(FColorChange) then 
FColorChange(self,coul) 


2.2 Evénement OnkResize 


L'événement OnResize a été construit de la même manière que l'événement OnColorChange, 
par interception du message WM_SIZE, toutefois à titre d'exemple il n'y a pas de procédure 
surchargeable centralisatrice du genre procedure ColorChange. Dans ce cas le programmeur 
ne pourra pas rajouter un comportement spécifique sur l'événement OnResize. Nous ne 
répètons pas la démarche qui est strictement identique. 


Ci-dessous, nous donnons le code source du composant simple dérivé des TEdit : 


unit UEditColor; 
interface 


uses 
SysUtils, Messages, Classes, Graphics, Controls, Forms, StdCtrls, ExtCtrls, Outline; 
type 
TEventColor = procedure (Sender: TObject; couleur:Tcolor) of object; 
{ pointeur de gestionnaire d'événement OnColorChange (paramètre couleur : TColor, nécessaire ici } 
TEditColorResize = class(TEdit) 
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private 
FColorChange : TEventColor; 
{ pointeur de méthode spécifique permettant utiliser la property OnColorChange } 
ColorPrec:Tcolor; // la couleur précédente 
FOnResize:TNotifyE vent; 
{ pointeur de méthode permettant utiliser la property OnResize } 
procedure WMPaintChgColor(var Msg:TWMpaint); message WM_PAINT; 
{le message WM_PAINT qui permettra de matérialiser l'événement} 
procedure WMSizeRedim(var Msg:TWMsize), message WM_ size; 
{le message WM_ size est envoyé au TEdit dès son height ou son width a changé } 
protected 
procedure ColorChange(coul:TColor); virtual; /pour surcharge ultérieure par le programmeur } 
public 
constructor Create(AOwner: TComponent); override; 
published /ñouveau gestionnaire d'événement 
property OnColorChange : TEventColor read FColorChange write FColorChange; 
property OnResize:TNotifyEvent read FOnResize writeFOnResize; 
end; 
procedure Register; 


implementation 


procedure Register; 


begin 

RegisterComponents(Exemples', [TEditColorResize]); 
end; 
[eee 11] 
constructor TEditColorResize.Create(AOwner: TComponent); 
begin 

inherited; 


color:=clwhite; 
ColorPrec:=self.color // initialisation à la couleur actuelle 
end; 
procedure TEditColorResize. WMSizeRedim(var Msg:TWMsize); 
/ intercepte le message WM_ size et traite le changement de taille 
begin 
if Assigned(OnResize) then 
FOnResize(self) lien avec le futur gestionnaire du programmeur 
end; 
procedure TEditColorResize. WMPaintChgColor(var Msg:TWMbpaint); 
/! intercepte le message WM_ Paint et traite le changement de couleur 
begin 
inherited ; 
if color<ColorPrec then 
begin 
ColorChange(ColorPrec); 
ColorPrec:=color; 
change / appelle le gestionnaire d'événement OnChange, s'il est défini. 
end 
end; 
procedure TEditColorResize.ColorChange(coul:TColor); 
// pour que le développeur puisse la surcharger éventuellement 
begin 
if Assigned(FColorChange) then 
FColorChange(self,coul) / lien avec le futur gestionnaire du programmeur 
end; 
end. 
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Enregistrez ce composant dans votre Delphi, puis testez-le sur les deux événements nouveaux 
en écrivant un projet de test et en programmant les deux gestionnaires d'événements. 

Voici après dépôt d'un TEditColorResize ce que l'inspecteur d'objet nous montre sur cette 
classe: 


a Formi 


EditColorResizel: TEditColorhesiz 


EditColorResizel 


toutes les propriétés sont celles des TEdit 


x] 


EditColorResizel: TEditColorResize 


Les 2 nouveaux événements (OnColorChange et OnResize) 


Nous montrons ci-dessous comment un développeur utilisant notre composant 
TEditColorResize peut surcharger et implanter un comportement additionnel à l'événement 
OnColorChange. 


interface 
TEditUser = class(TEditColorResize) 

protected 

procedure ColorChange(coul:TColor);override; 
end; 
implementation 
procedure TEditUser.ColorChange(coul:TColor); 
begin 
inherited, / appel à la procédure centralisée de la classe ancêtre 
{comportement nouveau rajouté par le programmeur 
end; 
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Chapitre 8.4 ActiveX avec la technologie COM 


Plan du chapitre: Ë 


Introduction 


1. Les notions d'interfaces COM de microsoft 


La notion d'interface en général avec Delphi 
1.1 Qu'est-ce qu'une interface COM 

1.2 L'interface Ilunknown 

1.3 Les CoClasses en Delphi 

1.4 l'architecture COM et le registre Windows 


2. ActiveX est un objet COM 


3. Création d'un ActiveX avec Delphi 


1°) Construction à partir du composant 
2°) Afficher l'expert contrôle ActiveX 
3°) Recenser l'ActiveX 


4°) Comment installer dans la palette Delphi un ActiveX 


4.Déploiement et utilisation Web d'une fiche ActiveX 


1°) Construction de la fiche de base 
2°) Recensement de la fiche ActiveX 
3°) Déploiement sur le web 
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Introduction 


COM signifie Component Object Model, c'est le modèle proposé par Microsoft pour 
créer des composants logiciels distribués. La principale fonction de COM que nous 
voyons dans ce chapitre consiste à construire des composants fenêtrés nommés ActiveX 
qui peuvent être utilisés sur Internet à travers "Internet Explorer" et développés et 
manipulés par des langages différents. Les ActiveX peuvent être développés comme les 
composants Delphi, dans un environnement de développement Delphi, C++, VB6,... et 
être réutilisés dans l'un quelconque de ces environnements. Les ActiveX peuvent aussi 
être convertis en Winforms dans la plate-forme .Net et être ainsi réutilisés par les langages 
de .Net comme : C#, VB Net... 


La famille de systèmes d'exploitation Windows utilise cette architecture, et de très 
nombreux développements ont été centrés sur cette norme. L'architecture .Net de 
microsoft se positionne comme remplaçant de COM tout en gardant dores et déjà une 
compatibilité ascendante avec celle-ci. 


1. Les notions d'interfaces COM de microsoft 


La notion d'interface en général avec Delphi 


Une interface est un contrat, elle peut contenir des propriétés, des méthodes mais ne doit contenir aucun 
champ ou attribut. 

Une interface ne peut pas contenir des méthodes déjà implémentées. 

Tous les membres d'une interface sont publics sans nécessiter de qualificateur de visibilité. 


Une interface est héritable. 

Pour pouvoir construire un objet à partir d'une interface, il faut définir une classe non abstraite 
implémentant toutes les méthodes de l'interface. 

En Delphi une interface se déclare avec le mot clef interface, aux mêmes endroits qu'une déclaration de 
classe. 


Exemple de déclaration d'interface en Delphi : 


Animal = Interface Indique des méthodes de fonctionnement d'un 
procedure SeDeplacer; animal : 
procedure Manger; 


: ; Q Comment se déplace-t-il 
function NombreDePattes : integer:; P 


Q Comment mange-t-il 


end; Q Combien a-t-il de pattes, 

Oiseau = Interface (Animal) Un oiseau possédera les 3 méthodes précédentes + 
procedure ConstruireNid; une méthode expliquant comment il construit son 

end; nid. 
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1.1 Qu'est-ce qu'une interface COM 


Les clients COM communiquent avec des objets par le biais d'interfaces COM. Les 
interfaces sont des groupes de routines, qui assurent la communication entre le fournisseur 
d'un service (objet serveur) et ses objets clients. 


objet COM 


interface 


Rappelons qu'une interface représente juste un contrat, c'est-à-dire que la classe chargée 
d’implémenter cette interface s’engage à implémenter toutes les méthodes déclarées dans 
l’interface. L'interface est l'unique moyen de mettre à disposition du client le service 
fourni par l'objet, sans lui donner les détails de l'implémentation sur la façon dont ce 
service est fourni. 


Une interface COM est un pointeur dans un objet COM, elle pointe en fait sur la table des 
méthodes de l'objet COM. Une interface n'est donc pas un objet, elle est en outre identifiée de 
manière unique par un nombre appelé GUID. 


objet COM 


interface 


Avec COM, un client n’a pas besoin de savoir où réside l'objet serveur qu'il invoque (que 
l’objet réside dans le même processus P1 que le client, dans un autre processus P2 sur la 

machine À du client ou sur une autre machine B du réseau). C'est COM qui met en place 
les moyens d'accéder à l'objet serveur. 


Ordinateur B 


Processsus P2 


Processus P1 


Ordinateur à 


1.2 L'interface IUnknown 


Nous avons précisé plus haut qu'afin d'obtenir des objets indépendants (du langage, de la 
plate-forme d'exécution...) nous devions pouvoir disposer d'une interface de base 
commune ou universelle. 
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L'interface IUnknown est l’interface de base commune et universelle du modèle 
COM. Elle doit être présente dans tout langage implantant l'architecture COM. 


En Delphi toute interface hérite directement ou indirectement de Iunknown. (c'est 
d'ailleurs ce qui rend la notion d'interface plus lourde qu'en Java ou C#) 


En Delphi voici la déclaration de IUnknown qui possède seulement 3 méthodes : 


type 

Interface = interface 

['{00000000-0000-0000-C000-000000000046 }'] 
function QueryInterface (const ID: TGUID:; out Obj): HResult; stdcall; 
function _AddRef: Integer; stdcall; 
function _Release: Integer; stdcall; 

end; 


IÜUnknown = Interface; 


Querylnterface permet de naviguer entre les différentes interfaces implémentées par un objet COM 
(comme toute interface dispose de cette méthode, on peut accéder à n’importe qu’elle 
interface à partir de IUnknown). 


AddRef permet l’incrémentation d’un compteur de références : : lorsqu’un objet se connecte à 
l'interface, le compteur est incrémenté de 1. 
Release permet la décrémentation du compteur de référence : lorsqu’un objet se déconnecte 


de l’interface, le compteur est décrémenté de 1. Ainsi, lorsque le compteur est arrivé 
à 0, l’objet COM sait qu’il peut libérer la mémoire qu'il occupait. 


Chaque langage de programmation (C++, Delphi...) se charge ensuite d'implanter l'interface 
IUnknown afin d'instancier un objet COM qui dérive obligatoirement et au minimum cette 
interface IUnknown. 


objet COM 


mQuery interface 
AddRef 


= — 
« _Pelease 


IUnkown 


En Delphi, c'est la classe TinterfacedObject qui est chargée d'implémenter l'interface 
IUnknown. Elle est déclarée comme suit : 


TinterfacedObject = class(TObject, Interface) 
protected 
FRefCount: Integer; 
function QueryInterface(const ID: TGUID:; out Obj): HResult; stdcall; 
function _AddRef: Integer; stdcall; 
function _Release: Integer; stdcall; 
public 
procedure AfterConstruction; override; 
procedure BeforeDestruction; override; 
class function NewInstance: TObject; override; 
property RefCount: Integer read FRefCount; 
end; 
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1.3 Les CoClasses en Delphi 


Dans Delphi un objet COM est nécessairement comme tout objet de Delphi, une instanciation 
d'une classe Delphi. Pour un objet COM cette classe doit obligatoirement être une classe très 
spéciale : une coclasse. 


Un objet COM est en Delphi une instance d'une CoClasse, qui est une classe implémentant 
une ou plusieurs interfaces COM. L'objet COM fournit les services définis par les méthodes 
de ses interfaces. 


Une coclasse est une classe chargée d’implémenter une ou plusieurs 
interfaces. C'est elle qui va "contenir" le code machine et donc 
constituer le moule de fabrication de l'objet COM. 


Une coclasse peut bien sûr dériver d’une classe existante. 


Une coclasse doit dériver d'une classe implantant l'interface 
IUnknown. 


Voici un exemple de déclaration d’une coclasse : 


Animal = Interface / hérite automatiquement de IUnknown 
procedure SeDeplacer ; 
procedure Manger; 


function NombreDePattes : integer; 
end; 


oiseau = class ( Tobject, Animal ) 
public 
procedure SeDeplacer ; 
procedure Manger; 
function NombreDePattes : integer; 
private 
function DureeCouvaison : integer ; 
end; 


Il faut implémenter les 6 méthodes : SeDeplacer, Manger, NombreDePattes, QueryInterface, 
_AddRef ,_Release + la nouvelle méthode DureeCouvaison. 


Ci-dessous un objet COM de type oiseau : 


SeDeplacer 


manger 
Nombre De Pattes 
Animal 


\ 0bjet COM 


IUnkown 
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Toute coclasse dérivant de TInterFacedObject hérite de l'implémentation de IUnknown. Il 
est donc conseillé de construire les coclasses permettant d'instancier des objets COM à partir 
de cette classe. 


Animal = Interface // hérite automatiquement de IUnknown 
procedure SeDeplacer ; 
procedure Manger; 


function NombreDePattes : integer; 
end; 


oiseau = class (TInterFacedObject, Animal ) 
public 
procedure SeDeplacer ; 
procedure Manger; 
function NombreDePattes : integer; 
private 
function DureeCouvaison : integer ; 
end; 


Il suffit alors d'implémenter les 3 méthodes : SeDeplacer, Manger, NombreDePattes + la 
nouvelle méthode DureeCouvaison. 


1.4 l'architecture COM et le registre Windows 


Pour assurer l'unicité des identificateurs d'objets COM, on utilise des GUIDs (Globally 
Unique IDentifiers), qui comme leur nom l'indique permettent d'avoir des identifiants 
(presque) uniques au monde. 


Ces GUIDSs sont codés sur 128 bits et sont souvent représentés sous une forme standard en 
hexadécimal afin de les rendre plus "lisibles" à l'homme : 


Exemple de GUID 
{ 27E14E2B-1104-44B2-AE49-9A8778A130EA} 


Un GUID peut servir à identifier un objet COM (on parle alors de CLSID ou class ID), une 
interface (ID), ou bien tout élément que l'on doit identifier très précisément (par exemple une 
instance d'application).Tout objet COM, pour pouvoir être instancié, doit être au préalable 
inscrit dans le registre système de Windows (grâce à un utilitaire comme regsvr32.exe du 
système windows ou tregsvr, qui est livré avec Delphi). 


2.ActiveX est un objet COM 


Un contrôle ActiveX est un composant logiciel COM qui est inclus dans une application hôte 
capable de gérer les contrôles ActiveX. Un contrôle ActiveX "étend" les fonctionnalités de 
l'application conteneur. un tel composant ne nécessite que l'interface IUnknown. 
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Les contrôles ActiveX sont conçus pour être eux-mêmes incorporés dans une application 
client, ils s’exécutent alors dans le même espace processus que le client. 


Ci-dessous l'application client fait partie du processus PI ainsi que l'ActiveX qu'elle utilise 
(les autres objets COM auxquels elle accède ne sont pas des ActiveX). C'est exactement ce 
qui se passe lorsque l'on "exécute" un ActiveX dans le navigateur "Internet Explorer" : 


Ordinateur B 


ActiveX |  Processsus P2 


Processus Pi 


Ordinateur à 


Un contrôle ActiveX en Delphi doit au minimum implanter certaines interfaces nécessaires, 
dont voici la liste fournit par Borland : 


IUnknown, IDispatch, IPersistStreamInit, IOleInPlaceActiveObject, IPersistStorage, 
IViewObject, I0leObject, IViewObject2, IOleControl, IPerPropertyBrowsing, 
IOleInPlaceObject, ISpecifyPropertyPages . 


Une fois conçu, il pourra être utilisé comme n'importe quel autre composant classique de la 
VCL de Delphi pour être incorporé à l'application. 


La palette des composants de Delphi fournit en standard quatre contrôles ActiveX (certains 
ont été écrits en C++, d'autre en VB6): 


WebServices ActiveX | Inte 


1TY#H4 


Les paragraphes suivant traitent plus spécialement de méthodes pratiques pour construire des 
ActiveX en Delphi et le déploiement sur le web pour l'utilisation internet d'unActiveX. 


3 Création d'un ActiveX avec Delphi 


Delphi fournit depuis la version 4, heureusement un expert de construction des ActiveX 
qui implantent incluent et génèrent automatiquement le code source associé aux diverses 
interfaces nécessaires. Le seul travail restant à effectuer est de programmer les nouvelles 
fonctionnalités du futur ActiveX. 
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Un contrôle ActiveX dans Delphi est simplement un contrôle VCL encapsulé dans une enveloppe de classe 
ActiveX. 


La démarche à suivre est très simple, l'expert effectuant automatiquement toutes les 
opérations 1l suffit de suivre et de répondre aux questions de celui-ci, le seul vrai travail 
consiste à développer un composant Delphi! 


Utiliser l'expert contrôle ActiveX 


Pour créer un nouveau contrôle ActiveX à partir d'un contrôle VCL personnalisé, Delphi 
propose deux experts permettant de construire : 


Des contrôles ActiveX qui encapsulent des classes VCL. 
Des fiches ActiveX semblables aux contrôles, mais dirigées vers le déploiement Web. 


Dans les deux cas l'expert place en fait une enveloppe de classe ActiveX autour d'un contrôle 
VCL ou d'une fiche et construit le contrôle ActiveX qui contient l'objet. 


Construisons pas à pas , en 4 étapes, un ActiveX 


1°) Construction à partir du composant TEditColorResize du sous-chapitre précédent : 


unit UEditColor; 
interface 


uses 
SysUtils, Messages, Classes, Graphics, Controls, Forms, StdCtris, ExtCtrlis, Outline; 
type 
TEventColor = procedure (Sender: TObject; couleur: Tcolor) of object; 
{ pointeur de gestionnaire d'événement OnColorChange (paramètre couleur : TColor, nécessaire ici } 
TEditColorResize = class(TEdit) 
private 
FColorChange : TEventColor; 
{ pointeur de méthode spécifique permettant d'utiliser la property OnColorChange } 
ColorPrec:Tcolor; // la couleur précédente 
FOnResize:TNotifyEvent; 
{ pointeur de méthode permettant utiliser la property OnResize } 
procedure WMPaintChgColor(var Msg:TWMpaint); message WM_PAINT; 
{le message WM_PAINT qui permettra de matérialiser l'événement} 
procedure WMSizeRedim(var Msg:TWMsize); message WM_ size; 
{le message WM_ size est envoyé au TEdit dès son height ou son width a changé } 
protected 
procedure ColorChange(coul:TColor); virtual; /pour surcharge ultérieure par le programmeur } 
public 
constructor Create(AOwner: TComponent); override; 
published /nouveau gestionnaire d'événement 
property OnColorChange : TEventColor read FColorChange write FColorChange; 
property OnResize:TNotifyEvent read FOnResize writeFOnResize; 
end; 
procedure Register; 


implementation 
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procedure Register; 


begin 

RegisterComponents(Exemples', [TEditColorResize]); 
end; 
fl // 
constructor TEditColorResize.Create(AOwner: TComponent); 
begin 

inherited; 


color:=clwhite; 
ColorPrec:=self.color // initialisation à la couleur actuelle 
end; 
procedure TEditColorResize. WMSizeRedim(var Msg:TWMsize); 
// intercepte le message WM_ size et traite le changement de taille 
begin 
if Assigned(OnResize) then 
FOnResize(self) /lien avec le futur gestionnaire du programmeur 
end; 
procedure TEditColorResize. WMPaintChgColor(var Msg:TWMbpaint); 
l/ intercepte le message WM_ Paint et traite le changement de couleur 
begin 
inherited ; 
if color<ColorPrec then 
begin 
ColorChange(ColorPrec); 
ColorPrec:=color; 
change / appelle le gestionnaire d'événement OnChange, s'il est défini. 
end 
end; 
procedure TEditColorResize.ColorChange(coul:TColor); 
// pour que le développeur puisse la surcharger éventuellement 
begin 
if Assigned(FColorChange) then 
FColorChange(self,coul) / lien avec le futur gestionnaire du programmeur 
end; 
end. 


n31 Exemples | Rave | Indv- Clients | Inde 
Composant que nous avons rangé dans la palette des £ 


Er Qi: , # [ 
composants dans l'onglet exemples : = Ê= An abl 


EditColorResize (UEditColor) 


2°) Afficher l'expert contrôle ActiveX (à partir du menu Fichier\Nouveau\Autre) : 


Delphi 7 


| Fichier | Edition Chercher Voir Projet Exécuter Composant 


| EI avoir 
Il 5 Ouvrir. ŒSl äpplication CLX 
n° Ouvrir un projet. Ctrl+F11 Module de données 
Réouvrir L Fiche 
Fe Enregistrer Ctrl+s Cadre 
#: Enregistrer sous... =D Unité 
in —L- Enregistrer le projet sous... 
1 — 
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Nouveaux éléments 


Bibliothèque 
Activex* 


22 
a 
dt 
— 
2 


“à 


Objet COM 


es 
— 


Objet äctive Objet Automation 


Delphi envoie un formulaire de saisie d'information sur le paramétrage de création du contrôle 
ActiveX, nous lui indiquons que nous voulons encapsuler le composant TEditColorResize : 


Expert Contrôle Activex 


TEdi [UE ditC | 


| 


L'expert génère automatiquement des fichiers intermédiaires dont : 


Une bibliothèque ActiveX contenant le code nécessaire au démarrage d'un contrôle ActiveX (21 lignes) 
library EditColorResizeXControl1; 


uses 
ComServ, 
EditColorResizeXControl1_TLB in 'EditColorResizeXControll_TLB.pas', 
EditColorResizeImpll in 'EditColorResizelmpl1.pas' {EditColorResizeX: CoClass}; 
{$E ocx} 
exports 
DIIGetClassObject, 
DIICanUnloadNow, 
DIIRegisterServer, 
DIlUnregisterServer; 
{8R * TLB)} 
{8R *RES)} 


begin 
end. 
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Une unit d'ActiveX descendant de TActiveXControl encapsulant le TEditColorResize (560 lignes) 


unit EditColorResizelmpl]; 
{$WARN SYMBOL_PLATFORM OFF} 
interface 


uses 
Windows, ActiveX, Classes, Controls, Graphics, Menus, Forms, StdCtrls, 
ComServ, StdVCL, AXCtris, EditColorResizeXControll_TLB, UEditColor; 


type 

TEditColorResizeX = class(T ActiveXControl, IEditColorResizeX) 
private 

{ Déclarations privées } 

FDelphiControl: TEditColorResize; 

FEvents: IEditColorResizeXEvents; 

procedure ChangeEvent(Sender: TObject); 

procedure ClickEvent(Sender: TObject); 

procedure ColorChangeEvent(Sender: TObject; couleur: TColor); 
procedure DbiClickEvent(Sender: TObject); 

procedure KeyPressEvent(Sender: TObject; var Key: Char); 
procedure ResizeEvent(Sender: TObject); 
protected 

{ Déclarations protégées } 

procedure DefinePropertyPages(DefinePropertyPage: TDefinePropertyPage); override; 
procedure EventSinkChanged(const EventSink: I[Unknown); override; 
procedure InitializeControl; override; 

function DrawTextBiDiModeFlagsReadingOnly: Integer; safecall; 
function Get_AlignDisabled: WordBool; safecall; 

function Get_AutoSelect: WordBool; safecall; 

function Get_AutoSize: WordBool; safecall; 

function Get_Bevellnner: TxBevelCut; safecall; 

function Get_BevelKind: TxBevelKind; safecall; 


L'expert génère aussi : une bibliothèque de type (EditColorResizeXControll_TLB.pas) qui 
définit une CoClasse pour le contrôle (540 lignes). 


Si nous décomptons les lignes que l'expert a engendré pour encapsuler notre composant, nous 
obtenons un total de 1120 lignes ! Cela montre malgré tout la lourdeur du codage COM, 
heureusement nous n'avons pas à intervenir sur ces lignes de codes. Il nous reste à rendre 
accessible notre nouvel ActiveX afin que d'autres applications puissent l'utiliser. 


3°) Recenser l'ActiveX nouvellement créé 


Une fois le contrôle ActiveX créé, il faut le recenser afin que d'autres applications puissent le 
trouver et l'utiliser c'est à dire l'inscrire dans la base des registres de windows comme serveur 
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COM. On dispose soit du regsvr32.exe … du système d'exploitation (en fenêtre de 
commande DOS), soit de la commande recenser dans le menuExécuter de Delphi : 


Menu Exécuter/Recenser le serveur ActiveX : 


Exécuter F9 
Attacher au processus... 
Paramètres... 


Dé-recenser le serveur Activex 


Delphi répond : 


Information _X| 


® \ Serveur Activex C:\Program 
Files\Borland\Delphi7\BinEditColorResizeXControli.ocx' recensé avec succès 


Au final Delphi engendre un seul fichier utile : le fichier contenant l'ActiveX. Les fichiers ActiveX se terminent 
par le suffixe OCX. 


Dans le cas de notre exemple le fichier engendré a pour nom : EditColorResizeXControll.ocx. 


Vous pouvez mettre ce fichier où vous le voulez, pour pouvoir l'utiliser il faut le recenser là où vous l'avez mis 


Remarque : 
Avant de supprimer un contrôle ActiveX du système, 1l faut annuler son recensement 
avec le menu Exécuter| Dérecenser le serveur ActiveX. 


Composant Base de données € 
D Exécuter 
# Attacher au processus... 


Pi) Paramètres. 


Recenser le serveur Activex 


Ou bien lancer la commande regsvr32.exe /u .. du système d'exploitation (en fenêtre 
de commande DOS) 


Le composant EditColorResizeXControll.oex est maintenant utilisable avec un autre 
environnement C++, visual Basic, … 


Afin de vérifier le bon fonctionnement de EditColorResizeXControl1.ocx nous allons l'installer 
dans la palette des composants Delphi comme un nouvel ActiveX (Delphi ignore qu'il a été 
conçu par Delphi, c'est un ActiveX comme des milliers d'autres que vous pouvez acheter ou 
récupérer gratuitement sur Internet). 
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4°) Comment installer dans la palette Delphi un ActiveX 


Dans le menu Composant, la commande "Importer un contrôle ActiveX" lance l'opération 


Importation d'Activex Ïl x 


Composant | Base de données Outils Importation d'Activex | 


Nouveau composant... 
GB Installer un composant... 
Importer un contrôle Activex.…. 


Créer un modèle de composant... 


DHTML Edit Control for IE5 (Version 1.0] 
Directänimation Library (Version 1.0] 
DteSur 1.0 Type Library (Version 1.0 
EditColorhesizeXControl (bibliothèquel (ersion 1.01 
Embeddable Crystal Reports 9.1 Designer Control (Version 9.1] 
Exchngll äctive* Control module (Version 1.0] | 
CELL ms.nam.m ant on famam.ot à miss (monñnmi mamie ff manamen. 1 (À 


| C:\Program Files\Borland\Delphi/\dess\E ditColorResize* Control. 
Ajouter. | Retirer | 


TEditColorResizex 


@ Installer des paquets... 


Configurer la palette... 


Noms de classes : 


Page de palette : 


Factivex *| 
Répertoire de l'unité : [C:\Program Files\Borland\Delphi7\mp El 
Chemin de recherche : [SDELPHIALib:S(DELPHINB in:$(DELP El 


Installer. |L£réerrunié | &nnuler | 4ide | 


La suite du dialogue avec Delphi est identique à celle que vous avez lorsqu'il s'agit d'installer 
un composant Delphi classique, le dialogue se termine par l'affichage de la boîte suivante : 


CEE x 


installé c:\program files\borland\delphi\Projects\Bpliessai.bpl, 
Les nouveaux composants suivants ont été recensés : 
EditColorResize*Controli_TLB.TEditColorResizex, 


1 ) La palette de composants a été mise à jour du fait de la reconstruction du paquet 


A partir de cet instant lorsque vous avez validé l'installation dans la palette vous disposez de 
la même entité représentée sous deux formats différents : 


Un éditeur mono-ligne sensible au changement de couleur et au redimensionnement, vous en 
avez un version VCL (donc utilisable uniquement avec Delphi) et une autre version ocx 
utilisable avec tous les environnements de développements qui acceptent les ActiveX. 


Enfin ce composant est converti par Net Framework à travers l'outil de conversion : 


aximp c:\....\EditColorResizeXControll.ocx > en un fichier AxEditColorResizeXControl1.dil 
utilisable par tout langage de l'architecture Net. 
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COM+ | WebServices ActiveX | InterBase Admin | 1 


RREZEUX: 


188 &| 6 
neo 


Inspecteur d'objets | x 


EditColorResizex1 TEditColorResizex* 
Propriétés Evénements | 


OnChange 


OnColorChange 
OnDblClick 


4. Déploiement et utilisation Web d'une fiche ActiveX 


Delphi propose un expert pour le déploiement web d'une fiche ActiveX : 


L'expert ActiveForm permet de créer de toutes pièces une nouvelle application ActiveX. 
L'expert configure le projet et ajoute une fiche vide dont on peut commencer la conception 
en ajoutant des contrôles. 


La coclasse TActiveFormX = class(TActiveForm, IActiveFormX) représente une fiche 
ActiveX, c'est un contrôle ActiveX fondé sur une fiche VCL sur laquelle vous pouvez déposer 
n'importe lequel des composants de la palette de Delphi d'où un gain de temps de 
développement. 


La fiche ActiveX ainsi créée peut être déployée sur le Web : la fiche ActiveForm est ensuite 
affichable et exécutable à l'intérieur d'une page html dans un navigateur Web (Internet 
Explorer). Dans le navigateur Web, la fiche se comporte comme une application autonome et 
peut mettre en œuvre des actions complexes. Les fiches ActiveX sont les "concurrents" 
(mono-plateforme) des applets Java (multi-plateforme). 


Utiliser l'expert ActiveForm pour créer une Fiche ActiveX basée sur une fiche VCL 


La démarche est sensiblement la même que pour créer un contrôle ActiveX, nous allons 
procéder à une création d'une telle fiche pas à pas sur un exemple. 


Construisons pas à pas , en 4 étapes, une fiche ActiveX 


1°) Construction de la fiche de base 
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Delphi 7 


âpplication 
Ouvrir. = âpplication CLx 
Ouvrir un projet... Ctri+F11 2 Module de données 


Réouvrir ed Fiche 


Enregistrer Ctrl+s Ci Cadre 


Enregistrer sous. =L] Unité 


Enregistrer le projet sous... 


Nouveaux éléments 


Bibliothèque Bibliothèque de Contrôle ActiveX  WBCENTE 
Activex* types 


Delphi envoie un formulaire de saisie d'information sur le paramétrage de création du contrôle 
ActiveX qui hérite obligatoirement de TActiveForm, nous lui indiquons éventuellement le 
nom de la classe et celui de la unit (nous laissons le modèle de thread par défaut) : 


Expert ActiveForm 


fr) 


A ce stade, l'expert génère comme au paragraphe précédent, 3 fichiers intermédiaires (de 21 
+349 +334 = 704 lignes) et propose une fiche visuelle vierge sur laquelle on peut insérer des 
contrôles et travailler avec la fiche comme on le ferait pour toute application Delphi. 
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Fiche ActiveX vierge Nous déposons deux TEdit et unTButton 


type type 
TActiveFormX = class (TActiveForm, IActiveFormX) TActiveFormX = class (TActiveForm, IActiveFormX) 
private Button1: TButton; | 
FEvents: IActiveFormXEvents; Es | Edit1: TEdit; } 
procedure ActivateEvent(Sender: TObject); Edit2: TEdit; 
procedure ClickEvent(Sender: TObject); private 
procedure CreateEvent(Sender: TObject); FEvents: IActiveFormXEvents; 
sabhedtes sans procedure ActivateEvent(Sender: TObject); 
procedure ClickEvent(Sender: TObject); 
procedure CreateEvent(Sender: TObject); ..........…. 


Nous programmons la recopie du texte de l'Edit2 dans l'Editi lorsque l'on clique sur le 
Buttoni, comme pour une application, Delphi nous propose le squelette du gestionnaire 
d'événement OnClick du Buttonl que nous remplissons avec notre ligne de code de copie : 


procedure TActiveFormX.Button1Click(Sender: TObject); 
begin 

Edit1.Text:=Edit2.Text 
end; 


Nous supposons nous arrêter à ce stade et passer à la suite de la création de l'ActiveX. 


2°) Recensement de la fiche ActiveX ainsi construite (ActiveFormProj1.ocx) 


Exécuter 


Composant Base de données € 
D Exécuter F9 
’4 ättacher au processus... 


Paramètres... 


fx Recenser le serveur ActiveX] 


Fx Dé-recenser le serveur Activex 


Information © 


1 ) Serveur ActiveX C:\Program Files\Borland\Delphif\Bin\äctiveFormProjl .ocx' 


recensé ayec SUCCÈs 
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3°) Déploiement sur le web 


Avant de pouvoir utiliser dans un client Web, comme Internet Explorer, la fiche 
ActiveFormProj1.ocx ainsi créée, 1l faut la déployer sur le serveur. A chaque fois que la fiche 
ActiveX est modifiée, elle doit être recensée de nouveau et re-déployée afin que les 
modifications soient effectives. 


Pour déployer un contrôle ActiveX, 1l est nécessaire de disposer d'un serveur Web Web (IIS 
pour notre exemple). Par contre, il n'est pas obligatoire d'enregistrer le contrôle dans la palette 
de composant puisque, en général, le composant web créé est dédié à une application web 
particulière. 


Options de déploiement Web 


Répertoires et URL 
Rép. cible (chemin complet de l'OCX] : 


C:\Program Files Borland Delphifdess\ 


URL cible (chemin virtuel de l'OCX] : 


[hitp: ##localhost/ 


Rép. HTML [chemin complet du fichier HTML] : 


[c: \INET PUB wroot.\ 


—— 


Parcourir... | ai] 


Là 
Options générales fi . 
F Utiliser la compression de fichier C4B F7 Déployer les pd 


M Inclure le n° de version du fichier F Déployer les fichiers supplémentaires 


F Incrémenter le n° de sous-version 


T Détou pen perse) 


Delphi engendre un fichier ActiveFormProj1.htm permettant de tester la fiche ActiveX : 


<HTML> 
<H1> Page de test ActiveX Delphi 7 </H1><p> 
Vous devez voir vos fiches Delphi 7 ou contrôles imbriqués dans la fiche ci-dessous. 
<HR><center> <P> 
<OBJECT 
classid="clsid:F9A089C7-B331-404E-B21F-4541846FA390" 
codebase="http://localhost/ActiveFormProj1.ocx#version=1,0,0,0" 
width=350 
height=250 
align=center 
hspace=0 
vspace=0 > 
</OBJECT> 
/ATML> 
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Si vous avez installé un serveur web sur votre machine IIS par exemple alors l'exécution du 
fichier ActiveFormProj1.htm dans le navigateur IE donne la page html de test suivante : 


À C:\Inetpub'wwwroot\ActiveFormProj1lhtm Microsoft Internet Explorer PISTE 


se (2) Cinetpubhmmuwroot\iäctiveFormProji.htm 


Page de test ActiveX Delphi 7 


Vous devez voir vos fiches Delphi 7 ou contrôles imbriqués dans la fiche ci-dessous. 


bonjour Monsieur 
bonjour Monsieur 


Quand cette page HTML est visualisée dans le navigateur Web, la fiche est affichée et 
exécutée comme application incorporée dans le navigateur. C'est-à-dire qu'elle s'exécute dans 
le même processus que le navigateur. 
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Exercices chapitre 8 


Ex-1 : Exercice entièrement traité sur la prise de contrôle d'une application par une autre à travers des 
messages systèmes. Le programme comporte une application de reception de messages et une application 
émettant des messages vers l'application de reception. L'application émettrice envoie des messages qui sont 
interprétés par la réceptrice comme des manipulations de la souris locale (déplacement, click, double click). 


unit Unitl; 
interface 


uses 
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, 
StdCtrls; 


type 
TFAppliRecept = class(TForm) 
Button1: TButton; 
ListBoxl: TListBox; 
Edit1: TEdit; 
Button2: TButton; 
Labellnfo: TLabel; 
LabelVisu: TLabel; 
procedure FormCreate(Sender: TObject); 
procedure Button1Click(Sender: TObject); 
procedure ListBox1DblClick(Sender: TObject); 
procedure ButtonEffacerClick(Sender: TObject); 
procedure FormMouseMove(Sender: TObject; Shift: TShiftState; X, 
Y: Integer); 
private 
{ Déclarations privées } 
procedure MessageUser(var mess: TMsg; var hand:boolean); 
public 
{ Déclarations publiques } 
end; 


var 
FAppliRecept: TFAppliRecept; 


implementation 
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{$R *.dfm)} 


Const 


WM_ClickBoutonl = WM_User; // message envoyé = WM_USER (<= interprété click bouton n°1) 


WM_ClickEffacer = WM_User+1; / message envoyé = WM_USER+ 1(<=S interprété click bouton effacer) 
wm_dbiclickliste = wm_user+2; 


{message envoyé = wm_user+ 2 (<= interprété double click dans la liste) 
wparam contient le rang de l'élément sélectionné dans la liste 
} 


wm_mousesurfiche = wm_user+3; 


{message envoyé = wm_user+ 3 (<= interprété déplacement souris sur la fiche) 
WParam contiendra la coordonnée X de la souris 
lparam contiendra la coordonnée y de la souris 


{--- le gestionnaire de traitement du OMessage de l'application ---} 


procedure TFAppliRecept.MessageUser(var mess: TMsg;var hand:boolean); 
{ traite le message wm_User intercepté comme un ordre donné à la fenêtre. 

il est traité à partir du niveau onmessage de l'application 
} 


begin 
if mess.message=-WM_ClickBoutonl then / message envoyé = WM_USER ici 
begin 
Labellnfo.Caption:= WM_ClickBoutonl : simulant un click sur bouton n°1l'; 
Button1.Click; 
end 
else 
if mess.message=wm_clickeffacer then / message envoyé = wm_user+1I ici 
begin 
Labellnfo.Caption:=' WM_ClickEffacer : simulant un click sur bouton Effacer'; 
Button2.Click; 
end 
else 
if mess.message=wm_dblclickliste then 
begin 
Labellnfo.Caption:= WM_DblClickListe : simulant un double click sur la liste'; 
ListBox1.Itemindex:=mess.wParam; /le rang de l'élément sélectionné 
ListBox1DblClick(ListBox1) 
end 
else 
if mess.message=wm_mousesurfiche then 
begin 
Labellnfo.Caption:= WM_MouseSurFiche : simulant la position de la souris sur la fiche"; 
FormMouseMove(self, [ ], mess.wParam, mess.IParam) 


end; 
inherited; /laisse delphi s'occupper des autres messages 
end; 
ee LES GESTIONNAIRES D'EVENMENTS --------" } 


procedure TFAppliRecept.FormCreate(Sender: TObject); 
//connexion du gestionnaire de OnMessage de l'application 
begin 

Application.OnMessage:=MessageUser; 

end; 
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{---- Les gestionnaires d'évènements qui seront appelés par l'émétteur 
et qui fonctionnent déjà en local lorsque l'appli est activée ---- 


} 


procedure TFAppliRecept.Button1Click(Sender: TObject); 
//gestion du click du button1 

begin 

Editl.text:='Le bouton n° 1 vient d'être clické'; 

end; 


procedure TFAppliRecept.ButtonEffacerClick(Sender: TObject); 
//gestion du click du button2 

begin 

Edit1.Clear 

end; 


procedure TFAppliRecept.ListBox1DblClick(Sender: TObject); 
//gestion du double click du ListBox1 
begin 

with Sender as TListBox do 

Edit1.text:='choix dans la liste : '+ListBoxl1.Items[itemindex|; 
end; 


procedure TFAppliRecept.FormMouseMove(Sender: TObject; Shift: TShiftState; 
X, Y: Integer); 
//gestion du mousemove sur la fiche 
begin 
Edit1.text:='souris/ x = ‘+inttostr(x)+' y = ‘+inttostr(y); 
LabelVisu.Top:=Y; 
LabelVisu.Left:=X; 
end; 


end. 


M Application émettrice des messages 


click sur bouton n°1 
click sur bouton Effacer 
Doubleclick dans liste n°1 
Doubleclick dans liste n°2 
Doubleclick dans liste n°3 
Doubleclick dans liste n°4 
Doubleclick dans liste n°5 
Doubleclick dans liste n°6 
Doubleclick dans liste n°7 
Doubleclick dans liste n 
Doubleclick dans liste 
Doubleclick dans liste 


unit Unitl; 
{ cette application contrôle l'action de la souris dans une autre 
application au niveau du click sur un bouton, double clik et mouse move. 
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le nom de la classe TForm de la fenêtre de l'appli réceptrice est TFAppliRecept. 
On construit 4 messages utilisateurs : 


WM_ClickBoutonl = WM_User; 
WM_ClickEffacer = WM_User+1; 
WM_DblClickListe = WM_User+2; 
WM_MouseSurFiche = WM_User+3; 


et PostMessage est chargée de les expédier à TFAppliRecept (avec des paramètres éventuels) 


} 


interface 


uses 


Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, 
StdCtris, ExtCtris; 


type 
TForm1i = class(TForm) 
LabellnfoMess: TLabel; 
ListBoxMess: TListBox; 
Labell : TLabel; 
procedure FormMouseMove(Sender: TObject; Shift: TShiftState; X, 
Y: Integer); 
procedure ListBoxMessDblClick(Sender: TObject); 
private 
{ Déclarations privées } 
public 
{ Déclarations publiques } 
end; 


var 
Forml: TForml; 


implementation 


{$R *.dfm} 


procedure TForm1.FormMouseMove(Sender: TObject; Shift: TShiftState; X, 
Y: Integer); 

var 

Wnd:HWnd; 

begin 

Wnd:=FindWindow(TFAppliRecept',nil);// recherche de la fenêtre 
if Wnd<>0 then// si instance de la fenêtre trouvée 

begin 

LabellnfoMess.Caption:=' Fenêtre TFAppliRecept trouvée'; 
PostMessage(Wnd, WM_USER+3,X,Y );// WM_MouseSurFiche 
{les paramètres X et Y donnent les coord. de la sourisà utiliser 
dans la fenêtre réceptrice 


procedure TForm1.ListBoxMessDbIClick(Sender: TObject); 
var 


Wnd:HWnd; 

begin 

Wnd:=FindWindow(TFAppliRecept',nil);// recherche de la fenêtre 
if Wnd<>0 then// si instance de la fenêtre trouvée 
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begin 


LabelInfoMess.Caption:= "Fenêtre TFAppliRecept trouvée'; 
case 


listboxmess.itemindex of 
0:PostMessage(Wnd,WM_USER,0,0); //WM_ClickBoutonl 
1:PostMessage(Wnd,WM_USER+1,0,0);// WM_ClickEffacer 


2..11:PostMessage(Wnd,WM_USER+2,ListBoxMess.itemindex-2,0);// WM_DblClickListe 
{la valeur du paramètre ListBoxMess.itemindex-2 indique le rang de 


l'élément à clicker dans la liste de la fenêtre de réception 


Exemples 


Application de reception de message de sourisfietif 


Application de reception de message de-sourisfictif 
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Application de reception de message de sourisfictif 


choix dans la liste : sept 


Bouonnt] _Etece | 


etc... 


Ex-2 : Complétez la Unit suivante de telle manière que la classe TclassListBox représente un composant héritant 
des TListBox avec les améliorations suivantes : 


Trois nouvelles propriétés : 

Scrolling:boolean /permettant le défilement automatique du texte} 
NbrLigneVues:integer /permettant de fixer le nombres de lignes de texte affichées} 
FirstEnMaj:boolean /permettant d'autoriser la mise en majuscule du premier caractère 
de tous les lignes de la liste} 


Inspecteur d'objets x Inspecteur d'objets xl 


classListBoxl: TclassListBox + classListBox1: TclassListBox 2 


F 
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Inspecteur d'objets xl 


classListBoxl: TclassListBox | 


Deux nouveaux événements : 


OnMouseEnter: {interceptant l'entrée de la souris dans le composant} 
OnMouseExit: /interceptant la sortie de la souris hors du composant} 


Inspecteur d'objets x| [Inspecteur d'objets x 


classListBoxl: TclassListBox classListBoxT: TclassListBox s 


Code fourni : Squelette de la Unit à compléter 


unit UclassListBox; 


interface 
uses stdctrls, Messages, Controls, Windows,Classes,Sysutils,extctrls; 


type 


TclassListBox=class(TListBox) 
private 
FOnMouseEnter: TNotifyEvent; 
FOnMouseExit: TNotifyEvent; 
FFirstEnMaj:boolean;// champ d'autorisation de mise en majuscule du ler caractère 
ENbrLigneVues:integer;/ champ indiquant le nombre de lignes affichables dans la liste 
FScrolling:boolean; / champ d'autorisation de défilement automatique 
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Tempo:TTimer;/ Timer de défilement ligne à ligne de la liste 

procedure SetMaj(x:boolean); 

procedure CMMOUSEENTER(var mess:TMessage);message CM_MOUSEENTER; / VCL borland 
procedure CMMOUSELEAVE(var mess:TMessage);message CM_MOUSELEAVE ; / VCL borland 
procedure LBADDSTRING(var mess:TMessage);:message LB_ADDSTRING: system 

procedure WMSIZE(var mess:TMessage);message WM_ SIZE; /system 

procedure setScrolling(x:boolean); 

procedure setNbrLigneVues(x:integer); 

procedure OnTempo(Sender: TObject); 

public 

constructor Create(AOwner: TComponent); override; 

published 

property NbrLigneVues:integer read FNbrLigneVues write setNbrLigneVues; 

property Scrolling:boolean read FScrolling write setScrolling; 

property FirstEnMaj:boolean read FFirstEnMaj write SetMaj; 

property OnMouseEnter: TNotifyEvent read FOnMouseEnter write FOnMouseEnter; 

property OnMouseExit: TNotifyEvent read FOnMouseExit write FOnMouseExit; 


end; 
procedure Register; 
implementation 


procedure Register; 
begin 

RegisterComponents( Exemples’, [TclassListBox]); 
end; 


{ TclassListBox } 

constructor TclassListBox.Create(AOwner: TComponent); 
//le constructeur du composant 

begin 


end; 


procedure TclassListBox. WMSIZE(var mess: TMessage); 
{lors du changement de taille du composant : 
- le nombre de lignes vues change, 
- la première ligne du texte doit être affichée au début 
- le défilement est éventuellement arrêté selon le nombre de lignes affichées 


f---------- entrée et sortie de la souris ----------------- } 

procedure TclassListBox.CMMOUSEENTER(var mess: TMessage); 
/llance le gestionnaire d'événement OnmouseEnter 

begin 


end; 
procedure TclassListBox.CMMOUSELEAVE{(var mess: TMessage); 
/llance le gestionnaire d'événement OnmouseExit 


begin 


end; 
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{----------- le premier caractère d'une ligne ----------------- } 

procedure TclassListBox.LBADDSTRING(var mess: TMessage); 

{lorsqu'une nouvelle ligne est insérée dans la liste, le premier caractère est mis en majuscule 
(si le composant est autorisé à mettre en majuscule).} 

begin 


end; 


procedure TclassListBox.SetMaj(x: boolean); 

{Met en majuscule tous les premiers caractères de chaque ligne si x est true, sinon met tous 

ces premiers caractères en minuscule et positionne FirstEnMaj:boolean à la valeur adéquate.) 
begin 


{= le défilement automatique ----------------- } 

procedure TclassListBox.OnTempo(Sender: TObject); 

{le défilement ligne à ligne de toute la liste jusqu'à la fin en boucle si le nombre ligne de la liste est plus grand 
que le nombre de ligne affichables (NbrLigneVues:integer donne ce nombre) 

et si le défilementest autorisé (Scrolling:boolean donne cette autorisation) 

} 

begin 


end; 


procedure TclassListBox.setScrolling(x: boolean); 

{positionne le défilement ligne à ligne de toute la liste jusqu'à la fin 

en boucle si le nombre ligne de la liste est plus grand que le 

nombre de ligne affichables (NbrLigneVues:integer donne ce nombre) 


} 
begin 


end; 


procedure TclassListBox.setNbrLigne Vues(x: integer); 

{positionne le nombre de ligne affichables (NbrLigneVues:integer) 

recalcule et modifie la hauteur du composant en fonction du nombre de lignes 
que l'on veut afficher. 


} 
begin 


end; 


end. 


Messages à utiliser (conseils) : 


CM_MOUSELEAVE , CM_MOUSEENTER : pour la souris 

LB_ADDSTRING , LB_GETTOPINDEX , LB_SETTOPINDEX : pour les ListBox 
WMSIZE : pour le redimensionnement du composant 

WM_VSCROLL : pour la barre de défilement vertical 


} 


2°) Fournissez le composant prêt à installer . 


Ecrivez un programme Delphi de test du composant. 
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Ex-3 : non déterminisme et retour arrière algorithme d'exploration d'un labyrinthe 
Un labyrinthe est représenté par un tableau de cases, c'est un labyrinthe parfait si : 


Deux cases quelconques sont joignables 
par un chemin unique.il n'existe pas de case isolée. 


Ci-dessous trois labyrinthe A, B et C: 


C C C 


Les parcours dans un labyrinthe parfait peuvent être représentés par des arbres dont chaque noeud a au plus 
3 fils : 


4 
7 
F de” 
i” j #0 
À né” # ” 
/ ji : 
n # # 
2° f k 
É Une 
| Re b ] 
Fe # ci" 
P h a h 
& # 
A Ë …… 
\ ce 
‘ Pl 
Na à 
Dans un labyrinthe imparfait les parcours sont représentés par des graphes non arborescents : 
b” ’ m . 
. ï CR" À 
5° =” 0 
1 ” + 
E E né” f k 
ré ”. F 
0° c b À \ ] 
k “ a” h P 
j” 1 se” 
al “+ 
Ph Pad . 
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imparfait 


Objectif : 
Nous allons faire explorer un labyrinthe semi-parfait (il peut y avoir plusieurs chemins entre deux cases, 
mais il n'y a aucune case isolée) à un pélerin, il aura pour mission de trouver une sortie s'il y en a une, ou 


bien de nous assurer qu'après exploration complète de ce labyrinthe, il ne comporte pas de sortie. 


Pour notre pélerin un labyrinthe à explorer est caractérisé par une entrée, une succession de couloirs, de 
cul-de-sacs et de carrefours (et éventuellement une sortie). 


Ci-dessous les configurations topographiques associées : 


4+— = — 2 choix 1 IL 3 choix . _—_—— 
leo (| = 

Î LN 1 ee. ae 
di 


Deux genres de carrefours 


Dans un labyrinthe parfait, nous sommes assurés que s'il existe une sortie, il existe alors un chemin unique 
allant de la case marquée entrée vers la case marquée sortie. 


entrée 


sortie 


Le travail de notre pélerin va être de chercher ce chemin s'il existe, par exploration exhaustive. 


On apprend son ‘'métier'' au pélerin 


Nous ne voulons pas que notre pélerin se perde dans le labyrinthe en explorant plusieurs fois le même 
chemin aussi va-t-on lui enseigner l'art étrange du parcours en profondeur avec retour arrière (back- 
tracking disent les anglophones) sans repasser sur un chemin déjà exploré. Notre centre de formation de 
pélerin explorateur de labyrinthe ne reculant devant aucune dépense, munit notre voyageur d'une lampe 
torche à durée de vie importante, de deux sacs chacun remplis de cailloux, l'un de cailloux roses l'autre de 
cailloux gris. 


L'instructeur lui apprend qu'il va suivre des couloirs dans le labyrinthe, qu'il va changer de direction à des 
carrefours pour emprunter un nouveau couloir, qu'il va aussi tomber sur des culs-de-sacs. On lui apprend 
qu'il va devoir changer son comportement dès qu'il rencontre un cul-de-sac. 


Tantqu'il chemine dans un couloir on lui conseille de déposer derrière lui un caillou rose, s'il arrive à un 
carrefour il dépose toujours un caillou rose et emprunte un des couloirs disponibles. 


Dès qu'il rencontre un cul-de-sac, il doit évidemment revenir sur ses pas en ramassant les cailloux roses qu'il 
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a semés, lorqu'il arrive en revenant sur ses pas, à un carrefour, il dépose derrière lui un caillou gris à l'entrée 
du couloir qu'il est en train de quitter. Il doit aller au milieu du carrefour (qui contient un caillou rose) et il 
examine le seuils des différents couloirs qui débouchent sur ce carrefour : 


e Un seul couloir a un caillou rose sur son seuil, les autres couloirs qu'il a déjà explorés ont un 
caillou gris sur leur seuil, ceux qu'il n'a pas encore explorés n'ont aucun caillou sur leur seuil. 


e Dans l'éventualité où tous les seuils ont un caillou, il doit impérativement ramasser le caillou 
rose du carrefour et emprunter l'unique couloir dont le seuil est marqué par un caillou rose, tout 
en ramassant les cailloux rose semés dans ce couloir (il vient en fait d'explorer tous les 
chemins qui partaient de ce carrefour) 


L'examen des seuils doit se faire par observation des cases (des entrées de couloir), le 
pélerin doit connaître le nombre de cases voisines de celle sur laquelle il se trouve, il en 
déduira le type de situation dans laquelle il est : 


Résultat de l'examen des cases voisines Situation dans laquelle se trouve le pélerin 


LL 
D " 
Ë Le pélerin est actuellement dans un couloir. 


Î 


1 case voisine + 


I EE Le pélerin est actuellement dans un cul-de-sac. 


aucune case voisine 


=  — 
LI IL] 


Le pélerin est actuellement sur un carrefour à 2 
choix. 


| 


2 cases voisines + 


il 


+6 De 


Le pélerin est actuellement sur un carrefour à 3 
choix. 


4 
ï 


3 cases voisines » 


Bien entendu on a indiqué au pélerin que dès qu'il trouvait une sortie, il devait l'emprunter et son voyage se 
terminait là. 


Algorithme de parcours en profondeur 


Nous proposons une version itérative et une version récursive du parcours dans le labyrinthe. 


= [2 Version itérative |] = 


Les bases de l'informatique - programmation - (::. 05.09.2004 ) page 892 


Algorithme Labyrinthe 


{ Un algorithme de déplacement dans un labyrinthe parfait. Version ITERATIVE } 


global 
le labyrinthe 
sens € Booleen / indique le sens actuel de parcours 
SortieFound € Booleen / une sortie a été trouvée 
utilise 
DeplacerAller / déplacement d'une case dans le sens exploration 
DeplacerEnRetour / déplacement d'une case en revenant sur ses pas 


debut 
tantque non SortieFound faire 
si sens = aller alors 
DeplacerAller 
sinon 
DeplacerEnRetour 
fsi 
ftant 
fin / Labyrinthe 
Algorithme DeplacerAller 


{ Cheminement en mode "aller" à travers des couloirs et des carrefours : Actions 


lorsque le pélerin est sur une case du labyrinthe. 
} 
global 
le labyrinthe 
sens € Booleen // indique le sens actuel de parcours 
SortieFound € Booleen // une sortie a été trouvée 


debut 

si la case est une sortie alors 
SortieFound <-- vrai ; 
arrêt de l'exploration 

sinon 

Examen des cases voisines ; 

si aucune case voisine alors /cul-de-sac 


Æ- 

aucune case voisine 

{il change de sens et se prépare è revenir sur ses pas } 
sens <-- retour ; 

le pélerin ramasse le caillou rose ; 


sinon 
si une seule case est voisine alors /couloir 


Li 


1 case voisine + 


le pélerin se déplace vers cette case ; 

si la case actuelle n'est pas l' Entrée alors 

il laisse un caillou rose sur la case actuelle ; 
fsi 
sinon //carrefour (2 ou 3 voisins) 
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2 cases voisines + 3 cases voisines + 


le pélerin choisit aléatoirement une case libre ; 
le pélerin se déplace vers cette case ; 
si la case actuelle n'est pas l' Entrée alors 

il laisse un caillou rose sur la case actuelle ; 
fsi 
fsi 


fsi 
fin / DeplacerAller 


Algorithme  DeplacerRetour ne 
{ Cheminement en mode "retour" à travers des couloirs et des carrefours : Actions 


lorsque le pélerin est sur une case du labyrinthe. } 
global 


le labyrinthe 
sens € Booleen // indique le sens actuel de parcours 


debut 
si le pélerin est dans un couloir alors 


il avance sur la case libre suivante ; ] 


il dépose un caillou gris sur la case qu'il vient 


de quitter ; 


sinon / la case est un carrefour 
évaluation du nombre de case voisines libres ; 


si au moins une case est libre alors 


FT 


le pélerin avance sur cette case libre 
sinon / toutes les cases voisines ont été explorées 
le pélerin retourne en empruntant la case qui contient 


le caillou rose / l'entrée du couloir de retour 


Lis 


fsi 
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fin / DeplacerRetour 


= Version récursive _ 


Nous donnons une version récursive qui reprend exactement la stratégie précédente, en particulier les deux 
algorithmes DeplacerAller et DeplacerEnRetour, en changeant l'itération tantque en récursivité (comparez 
les deux solutions) : 


Algorithme Labyrinthe 
{ Un algorithme de déplacement dans un labyrinthe parfait. Version RECURSIVE } 
global 
le labyrinthe 
SortieFound € Booleen / une sortie a été trouvée 
debut 
si FSortieFound = faux alors 
seDeplacer 
sinon 
ecrire('La sortie a déjà été trouvée !") 
fsi 
fin / Labyrinthe 


Algorithme SeDeplacer 
{ le bloc RECURSIF } 
global 
le labyrinthe 
SortieFound € Booleen / une sortie a été trouvée 
utilise 
DeplacerAller / déplacement d'une case dans le sens exploration 
DeplacerEnRetour / déplacement d'une case en revenant sur ses pas 


debut 
si sens = aller alors 
DeplacerAller 


sinon 
DeplacerEnRetour 
fsi ; 


SeDeplacer 
fin / SeDeplacer 


Implanter en Delphi les deux versions de cet algorithme. Ci-dessous l'exécution d'un programme Delphi 
gérant d'une manière animée, le parcours d'un pèlerin (un carré) dans un labyrinthe. 


Mode aller : Mode retour : 


17 
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Ex-3 Code solution pratique : Labyrinthe 


Une solution d'animation d'un parcours dans un labyrinthe sous forme de 3 classes implémentant un explorateur 


et un labyrinthe : 


:UCreerLaby::TGenerLaby 


El Dim: tdimensions 
El cell: TablLaby 


FE Lancer(….] 


:UCreerLaby::TExplorerLaby 


El FHosortie : boolean 

El tableW'oisin : of TPaint 
Æ] Damier : of byte 

Æ] FposPelerin : TPoint 
Æ FSortieFound : boolean 
Æ sens : TSens 


El CreerD amier(….] 

El Deplaceräller(….] 

El DeplacerEnRetour(….] 
© NbrdeCell(..) 

El HbrdeWoisinel..] 

El MovelHM(..] 

EI Create[..] 

I Ceplacer(..] 


:UCreerLaby:T Labyrinthe 


El couléller : TColor 

El CoulFond : TColor 

El Coulhur : TColor 

El CoulRétour : T Color 
El CoulSortie : TColor 
El FHbrCases : integer 
El planLaby : Timage 

El tableW'oisin : of TPoint 


FI Pelerin : TPanel 
I posControl : TPaint 
Æ posPelerin 

Æ SortieFound 

EI taille : byte 


El ChangeCoulCell(….] 

El Dessine(….) 

El SetNbreases(….] 

El MovelHM[...] 

FE] Create[..) 

EI DarmierMouseD own(….] 
El HovePelerin(...] 

El Regenerdutre(….] 

Æl RegenerMemef..] 

FI Savelmagel...] 


L'algorithme de création aléatoire d'un labyrinthe a été trouvé sur Internet (R.Jolivet), plusieurs autres 
algorithmes sont proposés, le lecteur peut changer d'algorithme pour obtenir des labyrithes de topologies 
différentes, il lui suffit de remplacer la méthode Lancer de la classe TGenerLaby. 


Classe qui construit le labyrinthe 


:UCreerLaby::TGenerLaby 


Æ] Dim : tdimensions 
FI cell: TablLaby 
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Classe qui explore une case du labyrinthe 
:UCreerLaby::TExplorerLaby 


El Fhôsortie : boolean 

El tableWoisin : of TPoint 
EI D'amier : of bute 

El FposPelerin : TPaoint 
El FSortieFound : boolean 
FE] sens : TSens 


El CreerD'amier(.….] 

El Deplaceräller(..] 

El DeplacerEnRetour(….] 
©] NbrdeCell(..] 

E] HbrdeY'oisins(…] 


FI Deplacer(..) 


Classe dédiée à l'affichage visuel 
::UCreerLaby::TLabyrnnthe 


El coulâller : TColor 

El CoulFond : TColor 

El CoulMur : TColor 

El CoulRetour : TColor 
El CoulS orties : TColor 
El FHbrCases : integer 
El planLaby : Timage 

El tableY'oisin : of T Paint 


EI Pelerin : TPanel 
Æ posControl : T Paint 
EI posPelerin 

I SortieFound 

Æ taille : byte 


El ChangeCoulCell(…] 

El D'essinel...] 

El SetNbroases(….] 

El MovelHM[...] 

Æ Create[..] 

EI DamierouseDown(..] 
EI MovePelerin(..] 

I Regeneräutre(.….] 

HI Regenerbleme..) 

El S avelmagef...] 


Le programme engendre un labyrinthe aléatoire, puis lance un TTimer qui fait explorer les cases successivement 
selon l'algorithme de l'énoncé ( parcours en profondeur) et affiche visuellement les différents trajets. Le pélerin 
est un carré de couleur rouge, les cailloux roses sont représentés par une case colorée en rose, les murs sont 
noirs, les cases libres sont blanches, les cailloux gris sont représentés par une case colorée en gris. Pour bien 
indiquer visuellement le sens de parcours, le pélerin est de couleur rouge lorsqu'il est en mode aller dans un 


couloir et en bleu lorsqu'il est en mode retour. 


Ci-après une IHM de test du labyrinthe pas à pas 


unit UFLaby; 
interface 


uses 
UCreerLaby,unit2, 


Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, 


ExtCtris, ComCtrls, StdCtrls, Buttons, Spin, Menus; 


type 

TForm1 = class(TForm) 
Couleur: TColorDialog; 
SaveDialog1: TSaveDialog; 
Imagel: TImage; 
PanelPet: TPanel; 
BitBtnPerso: TBitBtn; 
BitBtnNew: TBitBtn; 
BitBtnClear: TBitBtn; 
BitBtn2: TBitBtn; 
BitBtnsave: TBitBtn; 
Bevell: TBevel; 
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Bevel2: TBevel; 
Image2: TImage; 
procedure FormCreate(Sender: TObject); 
procedure BitBtnPersoClick(Sender: TObject); 
procedure BitBtnNewClick(Sender: TObject); 
procedure BitBtnClearClick(Sender: TObject); 
procedure BitBtn2Click(Sender: TObject); 
procedure BitBtnsaveClick(Sender: TObject); 
public 
{ Déclarations publiques } 
LabyRMD:TLabyrinthe; 
end; 


Labyrinthe- Debugging pas à pas - Bancdetest 


var Forml: TForml; 


D Deplacer)] 
. : New 
implementation @ clear 


D save 


{$R *.DFM} 


procedure TForml1.FormCreate(Sender: TObject); 
begin un le 
LabyRMD:=TLabyrinthe.Create(Imagel); za 
PanelPet.Width:= LabyRMD'taille; 
PanelPet.Height:= LabyRMDtaille; 
LabyRMD Pelerin:=PanelPet; 

LabyRMD posPelerin:=Point(0,0); 
LabyRMD.MovePelerin(Point(0,0)); 

end; 


procedure TForm1.BitBtnPersoClick(Sender: TObject); 
begin 

LabyRMD Deplacer 

end; 


procedure TForml1.BitBtnNewClick(Sender: TObject); 
begin 

LabyRMD.RegenerAutre 

end; 


procedure TForml1.BitBtnClearClick(Sender-TObject); 
begin 

LabyRMD.RegenerMeme 

end; 


procedure TForm1.BitBtn2Click(Sender: TObject); 
begin 

form2.show 

end; 


procedure TForm1.BitBtnsaveClick(Sender: TObject); 
begin 
LabyRMD.Savelmage; 
end; 
end. 


Aspect général de l'THM de test du Labyrinthe : 


Les bases de l'informatique - programmation - (4. 05.09.2004 ) page 898 


Labyrinthe- Debugging pas à pas - Banc de test 


unit UCreerLaby; 


{ un design pattern sur les labyrinthes } 
interface 


uses Windows,Classes, Sysutils,graphics,extctrls Controls,Dialogs; 


const 

maxTab=40; 

depart=0; 

carrefour=1; 

libre=2; 

markAller=3; 
markRetour=4; 
mur=10; 

sortie=20; 
type 

tdimensions= 

record 

largeur, hauteur:integer; 
end; 
TablLaby=array[0..maxTab,0..maxTab] of boolean; 
TSens=(aller,retour); 


TGenerLaby=class 
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:UCreerLaby::TGenerLaby 


Æ Dim : tdimensions 
FI cell: TablLaby 


FI Lancer(….] 


private 
procedure Rempli; 


function Trouve(x,y:integer;dir:integer;var surf: TDimensions;var newDir:integer):boolean; 


procedure CreuserLaby(x,y,d:integer); 
protected 

Dim:TDimensions; 

public 

cell: TablLaby; 

procedure Lancer; 

constructor Create(Dim:TDimensions);virtual; 
end; 


TExplorerLaby=class(TGenerLaby) 
::UCreerLaby:: TExplorerLaby 


El FNosortie : boolean 

El tableV'oisin : of TPoint 
EI D'amier : of byte 

El FnnsPelerin : TPaint 
Æ FSortieFound : boolean 
sens : | Sens 


El CreerD amier(.….) 

El Deplaceräller(….] 

EI DeplacerEnRetour(..) 
EI NbrdeCell(..] 

EI NbrdeV'oisins(…] 


Æ Deplacerl.| 


private 

tableVoisin:array[1..4]of TPoint; 

procedure CreerDamier; 

function NbrdeCell(etat:integer):integer ; 

function NbrdeVoisins:integer; 

procedure DeplacerAller; 

procedure DeplacerEnRetour; 

protected 

sens:TSens; 

FposPelerin:TPoint; 

FSortieFound,FNosortie:boolean; 

Damier:array{[0..maxTab,0..maxTab] of bytes 

procedure MovelIHM{(x,y:integer;posExpl:TPoint;caillou:integer);virtual; 
public 

procedure Deplacer; 

constructor Create(Dim:TDimensions);override; 
end; 
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TLabyrinthe=class(TExplorerLaby) 
::UCrecrlLaby::TLabyrinthe 


F1 solller : Tolor 

El CoulFond : TColor 

El CoulMur : TColor 

FI CouRetour : TColor 
EI CoulSortie : TColor 
E1 FNbrCases : integer 
El planLaby : Timage 

El tableV'oisin : of TPoint 


Æ] Pelerin : TPanel 
Æ posControl : TPoint 
Æ posPelerin 

I SortieFound 

Fi] taille : byte 


I DamierMouseDown(….] 
MovePelerin(….] 

Æ] Regeneräutre(..….) 

Æ RegenerMemel.….) 
Savelmagel...] 


private 
planLaby:Timage; 
tableVoisin:array[1..4]of TPoint; 
ENbrCases:integer; 
CoulMur,CoulFond,coulAller,CoulRetour,CoulSortie: TColor; 
procedure SetNbrcases(x:integer); 
procedure Dessine; 
procedure ChangeCoulCell(coord:TPoint;coul:TColor); 
protected 
procedure MovelIHM{(x,y:integer;posExpl:TPoint;caillou:integer);override; 
public 
Pelerin:TPanel; 
taille:byte; 
posControl:TPoint; 
property Nbrcases:integer read FNbrcases write SetNbrcases; 
property SortieFound:boolean read FSortieFound; 
property Nosortie:boolean read FNosortie; 
property posPelerin:TPoint read FposPelerin write FposPelerin; 
procedure DamierMouseDown(Sender: TObject; Button: TMouseButton; 
shift: tshiftstates 
X, y: integer); 
procedure MovePelerin(vers:TPoint); 
procedure Regener Meme; 
procedure RegenerAutre; 
procedure Savelmage; 
constructor Create(Visu:TImage); 
end ; 


implementation 


{ TLabyrinthe 
code Damier 
0 --> départ 
1 --> carrefour 
2--> libre 
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3 --> aller 


4 --> retour 
10 --> mur 
20 --> sortie 


La fonction récursive de creusement tirée de 
"logiciel pour créer des labyrinthes" de Raphaël Jolivet 
Mail: raphael.jolivet@ wanadoo.fr 


constructor TGenerLaby.Create(Dim:TDimensions); 
begin 

inherited Create; 

self. Dim:=Dim; 

Lancer 
end; 


procedure TGenerLaby.Lancer; 
begin 

Rempli; 

CreuserLaby(0,0,2); 
end; 


procedure TGenerLaby.CreuserLaby(x, y, d: integer); 
var surface: TDimensions; 
dir:integer; 
begin 
dir:=random(1000)+1; 
while trouve(x,y,d,surface,dir)do 
begin 
cell[surface.largeur,surface.hauteur]:=true; 
cell[round((surface.largeur+x)/2),round((surface.hauteur+y)/2)]:=true; 


CreuserLaby(surface.largeur,surface.hauteur,dir); 
end; 


end; 


procedure TGenerLaby.Rempli; 
var i.j:integer; 
begin 
for i:=0 to Dim.largeur do 
for j:=0 to Dim.hauteur do 
cell[i,j]:=false; 
end; 


function TGenerLaby.Trouve(x, y, dir: integer; var surf: TDimensions; var newDir: integer): boolean; 

var surftemp:array[1..4] of TDimensions; 

d:array[1..4] of integer; 

i,k,h:integer; 

p:TDimensions; 

begin 

k:=0; 

for i:=0 to 3 do 

begin 

p-largeur:=x+2*round(cos(Pi/2*(i+dir) ) }; 
p-hauteur:=y+2*round(sin(Pi/2*(i+dir) ) }; 

if (p.largeur>=0) and (p.hauteur>=0) and (p.largeur<=Dim.largeur) 
and (p.hauteur<=Dim.hauteur) then 
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if not(cell[p.largeur,p.hauteur]) then 


begin 
k:=k+1; 
surftemp|[k]:=p; 
d[k]:=i+dir; 
end; 
end; 
if k>0 then 
begin 
h:=1-+random(k); 
surf:=surftemp[h]; 
newDir:=d{h]; 
result:=true; 
end 
else 
result:=false; 
end; 


Lo ° TExplorerLaby 
constructor TExplorerLaby.Create(Dim:TDimensions); 


begin 
inherited; 
CreerDamier; 
end; 


procedure TExplorerLaby.CreerDamier; 


var i.j:integer; 
begin 
for i:=0 to Dim.largeur do 
for j:=0 to Dim.hauteur do 
if cell[i,j] then 
Damier|[i,j]:=libre 
else 
Damier|{i,j]:=mur ; 


Damier[0,0]:=depart;// point de départ 


end; 


procedure TExplorerLaby.Deplacer; 
begin 
if not FSortieFound then 
if sens=aller then 
DeplacerAller 
else 
DeplacerEnRetour 
else 


MessageDlg('La sortie a déjà été trouvée !', mtWarning,[mbOk], 0); 


end; 


procedure TExplorerLaby.MovelHM{(x,y:integer;posExpl:TPoint;caillou:integer); 


begin 
Damier{x,y]:= caillou; 
end; 


procedure TExplorerLaby.DeplacerAller; 


var 


compte Voisins,ptr,i,j, NbrSortie:integer; 


begin 

i:=FposPelerin.x; 
j:=FposPelerin.y; 
NbrSortie:=NbrdeCell(sortie); 
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if NbrSortie>0 then //c'est une sortie 
begin 

FposPelerin:=tableVoisin|1]; 

Beep; 

FSortieFound:=true; 


MessageDlg( J'ai trouvé une sortie dans ce labyrinthe !', mtinformation ,[mbOKkl], 0); 


MovelIHM(i,j,FposPelerin,sortie); 
exit 
end 
else // ce n'est pas une sortie 
begin 
compte Voisins:=NbrdeVoisins; 
case 
comptevoisins Of 
0: 
begin // cul-de-sac 
sens:=retour; 
MovelHM(i,j,Point(i,j),markRetour); 
end; 
1à 
begin // couloir 
FposPelerin:=tableVoisin|1]; 
if Damier{i,j]<> depart then 
MovelHM(i,j,FposPelerin,markAller) //ce n'est pas l'entrée 
else // c'est l'entrée 
MovelHM(i,j,FposPelerin, depart); 
end; 
2,3% 
begin // carrefour 
ptr:=random(compteVoisins)+1; 
FposPelerin:=tableVoisin[ptr]|; 
if Damier{i,j] <> depart then //ce n'est pas l'entrée 
MovelHM(i,j,FposPelerin,carrefour) 
else // c'est l'entrée 
MovelHM(i,j,FposPelerin, depart); 
end; 
end; 
end 
end; 


procedure TExplorerLaby.DeplacerEnRetour; 
var 
NbrDepart, NewChemin,NbrCarrefour,NbrRetourPoss,i,j:integer; 
begin 
i:=FposPelerin.x; 
j:=FposPelerin.y; 
if Damier|[i,j]<>carrefour)and(Damier|i,j]<> depart) then 
begin 
NbrDepart:=NbrdeCell(depart); 
NbrRetourPoss:=NbrdeCell(markAller); 
NbrdeCell(carrefour); 
FposPelerin:=tableVoisin|1]; 
if (NbrRetourPoss=0)and(NbrDepart=1) then //on va au départ 
begin 
NbrdeCell(depart); 
FposPelerin:=tableVoisin|1]; 
end; 
MovelHM(i,j,FposPelerin,markRetour); 
end 
else // on est revenu à un carrefour (point de départ inclu) 
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begin 
/1-- on est sur un vrai carrefour 
NewChemin:=NbrdeCell(libre); 
if NewChemin>0 then //au moins un chemin encore non exploré 
begin 
if Damier{i,j]<> depart then 
MovelHM(i,j,FposPelerin,markAller) 
else 
MovelHM(i.j,FposPelerin,depart); 
sens:=aller; 
end 
else // plus de chemin à explorer 
begin 
NbrRetourPoss:=NbrdeCell(markAller); // il n'y en a qu'une 


{-- tableVoisin[ 1] contient les coordonnées de cette cellule (de genre markaller) 
if (NbrRetourPoss=0)and(Damier|i,j]=depart) then //on est sur la case départ 


begin 
FNosortie:=true; 


MessageDlg(Il n'y a pas de sortie dans ce labyrinthe !", mtWarning,[mbOKk], 0); 


Det: 
end; 
FposPelerin:=tableVoisin|1]; 
MoveIHM(i,j,FposPelerin,markRetour); 
end 
end; 
end; 


function TExplorerLaby.NbrdeCell(etat: integer): integer; 
var compte:integer; 
begin 
compte:=0; 
if FposPelerin.y>0 then 
if Damier|FposPelerin.x,FposPelerin.y-1]=etat then 
begin 
compte:=compte+1; 
tableVoisin[compte]|:=Point(FposPelerin.x,FposPelerin.y-1); 
end; 
if FposPelerin.x<Dim.largeur then 
if Damier| FposPelerin.x+1,FposPelerin.y]=etat then 
begin 
compte:=compte+1; 
tableVoisin[compte]:=Point(FposPelerin.x+1,FposPelerin.y); 
end; 
if FposPelerin.y<Dim.hauteur then 
if Damier|FposPelerin.x,FposPelerin.y+1]=etat then 
begin 
compte:=compte+1; 
tableVoisin[compte]:=Point(FposPelerin.x,FposPelerin.y+1); 
end; 
if FposPelerin.x>0 then 
if Damier|[ FposPelerin.x-1,FposPelerin.y]=etat then 
begin 
compte:=compte+1; 
tableVoisin[compte]:=Point(FposPelerin.x-1,FposPelerin.y); 
end; 
result:=compte 
end; 


function TExplorerLaby.NbrdeVoisins: integer; 
begin 
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result:=NbrdeCell(libre) 
end; 


Le" """— TLabyrinthe --------------" 


constructor TLabyrinthe.Create(Visu:TImage); 
begin 

if not Assigned(Visu) then 

begin 


MessageDle('Il faut utiliser un TImage pour afficher le plan !", mtError ,[mbOK}], 0); 


Exit; 

end; 

planLaby:=Visu; 

ENbrCases:=maxT ab; 

Dim.largeur :=EFNbrCases; 

Dim.hauteur:=FNbrCases; 

inherited Create(Dim); 

taille:=10; 

sens:=aller; 

FSortieFound:=false; 

FNosortie:=false; 

CoulMur:=cINavy; 

CoulFond:=clWhite; 
coulAller:=$00ABCEFE; 
CoulRetour:=clsilver;//$00EIFEFF; 
CoulSortie:=clFuchsia; 

Randomize; 
planLaby.width:=(Dim.largeur+1)*taille; 
planLaby.height:=(Dim.hauteur+1)“*taille; 
planLaby.OnMouseDown:=DamierMouseDown; 
posControl:=Point(planLaby.left,planLaby.top); 
Dessine; 
end; 


procedure TLabyrinthe.DamierMouseDown(Sender: TObject; button: tmousebutton; 


shift: tshiftstate; x, y: integer); 
var i.j:integer; 
begin 
i:=x div taille; 
j:=y div taille; 
if damier{j,i]=mur then 
exit; 
Damier|[j.,i]:=sortie; 
TImage(Sender).canvas.brush.color:=CoulSortie; 


TImage(Sender).canvas.fillrect(rect(i*taille,j*taille,(i+1)*taille,(j+1)*taille)); 


end; 


procedure TLabyrinthe.Dessine; 
var i.j,Larg,Long:integer; 
begin 
for i:=0 to Dim.largeur do 
for j:=0 to Dim.hauteur do 
begin 
if cell{j.i] then 
begin 
planLaby.canvas.brush.color:=CoulFond; 
end 
else 
begin 
planLaby.canvas.brush.color:=CoulMur 
end; 
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planLaby.canvas.fillrect(rect(i*taille,j*taille,(i+1)*taille,(j+1)*taille)); 
end ; 

if Assigned(planLaby) then 

begin 

Larg:= (Dim.largeur+1)*taille+1; 
Long:= (Dim.hauteur+1)*taille+1; 
planLaby.canvas.Pen.Color:=ciBlack; 
planLaby.canvas.Pen.Width:=2; 
planLaby.canvas.MoveTo(0,Larg); 
planLaby.canvas.LineTo(Long,Larg); 
planLaby.canvas.LineTo(Long,0); 
end 

end; 


procedure TLabyrinthe.RegenerAutre; 
begin 

Lancer; 

Regener Meme; 

end; 


procedure TLabyrinthe.Regener Meme; 
begin 
planLaby.canvas.brush.color:=clSilver; 
planLaby.canvas.fillrect(rect(0,0,planLaby.width,planLaby.height)); 
CreerDamier; 

Dessine; 

posPelerin:=Point(0,0); 
MovePelerin(Point(0,0)); 

sens:=aller; 

FSortieFound:=false; 
FNosortie:=false; 

end; 


procedure TLabyrinthe.Savelmage; 

var InputString:string; 

begin 

InputString:= InputBox(Nom du fichier’, ENTREZ’, 'LabyPerso.bmp'); 
planLaby.Picture.SaveToFile(InputString); 

end; 


procedure TLabyrinthe.SetNbrcases(x: integer); 
begin 
if x in [2..maxTab] then 
begin 
ENbrcases:=x; 
Dim.largeur:=x; 
Dim.hauteur:=x; 


RegenerAutre; 

end 
end; 
[---------- Le déplacement dans le labyrinthe 
procedure TLabyrinthe. MovePelerin(vers:TPoint); 
begin 


Pelerin.Top:=posControl.y+vers.y; 
Pelerin.Left:=posControl.x+vers.x; 
end; 


procedure TLabyrinthe.ChangeCoulCell(coord:TPoint;coul:TColor); 
begin 
planLaby.canvas.brush.color:=coul; 


Les bases de l'informatique - programmation - (:6:. 05.09.2004 ) 


page 


907 


planLaby.canvas.fillrect(rect(coord.y*taille,coord.x*taille, 
(coord.y+1)*taille,(coord.x+1)*taille)); 

planLaby.Update 

end; 


procedure TLabyrinthe.MovelHM{(x, y: integer; posExpl: TPoint; 
caillou: integer); 
begin 
inherited; 
MovePelerin(Point((posExpl.y)*taille, (posExpl.x)*taille)); 
case 
caillou of 
markaller: 
begin 
ChangeCoulCell(Point(x,y),CoulAller); 
Pelerin.Color:=clRed; 
end; 
markretour: 
begin 
ChangeCoulCell(Point(x,y),CoulRetour); 
Pelerin.Color:=clBlue; 
end; 
carrefour, sortie: ChangeCoulCell(Point(x,y),CoulAller); 
end; 
end; 


end. 


Aspect après plusieurs appuis sur le bouton Déplacer : 


_Labyrinthe- Debugging pas à pas - Banc de test [ MIO XI 


Pèlerin dans le 


labyrinthe 
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Extension de la solution à une nouvelle version sous forme de composant d'animation réutilisable à déposer dans 
la palette des composants Delphi dans l'onglet Exemples’, il est construit par association sur un TPanel du 
Labyrinthe proprement dit dessiné sur un TImage, de 4 TSpeedButton permettant d'intervenir sur la génération 
d'un nouveau labyrinthe et sur l'animation de la recherche dans le labyrinthe et enfin d'unTSpinEdit qui permet 
de changer la taille du labyrinthe (valeur entre 2 et 40), l'animation est assurée par un TTimer : 


Inspecteur d'objets 
Theseel TThesee 


Propriétés | Evénements | Propriétés : 
=. = ColorFond = couleur des couloirs. 


ColorMurs = couleur des murs. 


Propriété : 

Taille = nombre de cellules du côté 
du carré du labyrinthe (varie de 2 
jusqu'à 40). 
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Le composant est sensible à 3 événements : 


OnRecherche : qui se produit dès que le pèlerin commence sa recherche de sortie dans le labyrinthe. 

OnSortie : qui se déclenche dès que le pèlerin a trouvé une sortie dans le labyrinthe. 

OnStop : qui se déclenche dès que le pèlerin s'est arrêté dans l'un des 3 cas suivants : on arrête l'animation avec 
le bouton stop, le pèlerin s'est rendu compte qu'il n'y avait pas de sortie dans le labyrinthe, le pèlerin a trouvé une 
sortie dans le labyrinthe. 


Inspecteur d'objets x] 


Theseel TThesee % 


Propriétés Evénements | 


OnSortie 
M OnStop… | 


Dès que l'on clique sur le bouton lancer recherche, l'animation commence, le pèlerin se déplace dans le 
labyrinthe. 


Ce composant utilise la unit UCreerLaby; précédente qui contient les 3 classes de base du labyrinthe : 


unit ULabyrinthe; 
{ un composant obtenu à partir du design pattern sur les labyrinthes } 
interface 


uses UCreerLaby,Messages,Classes,extctrls, Controls, graphics,buttons, 
Spin; 
{ 
code Damier 
0 --> départ 
1 --> carrefour 
2 --> libre 
3 --> aller 
4 --> retour 
10 --> mur 
20 --> sortie 
} 
type 
TThesee =class(TCustomPanel) 
private 
Ftaille:integer; 
Fstop:boolean; 
FOnStop,FOnRecherche,FOnSortie: TNotifyEvent; 
TheseeExplor, Command:Tpanel; 
Plan:Timage; 
LabyMinos:TLabyrinthe; 
Tempo:TTimer; 
SpeedBtnLancer,SpeedBtnNew,SpeedBtnClear,SpeedBtnStop:TSpeedButton; 
SpinEditCases: TSpinEdit; 
procedure Timing(Sender: TObject); 
procedure SpeedBtnLancerClick(Sender: TObject); 
procedure SpeedBtnNewClick(Sender: TObject); 
procedure SpeedBtnClearClick(Sender: TObject); 
procedure SpeedBtnStopClick(Sender: TObject); 
procedure SpinChange(Sender: TObject); 
procedure SetTaille(x:integer); 
procedure WMSizeRedim(var Msg:TWMsize); message WM_ size; 
function GetColorMurs:TColor; 
function GetColorFond:TColor; 
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procedure SetColorMurs(x:TColor); 

procedure SetColorFond(x:TColor); 

public 

constructor Create(AOwner: TComponent); override; 
published 

property Taille:integer read Ftaille write SetTaille; 

property ColorMurs:TColor read GetColorMurs write SetColorMurs; 
property ColorFond:TColor read GetColorFond write SetColorFond; 
property OnStop:TNotifyEvent read FOnStop write FOnStop; 
property OnSortie:TNotifyEvent read FOnSortie write FOnSortie; 


property OnRecherche:TNotifyEvent read FOnRecherche write FOnRecherche; 
end; 


procedure Register; 
implementation 


procedure Register; 


begin 

RegisterComponents( ‘Exemples’, [TThesee] ); 
end; 

"°° TThesee ---------" } 


constructor TThesee.Create(AOwner: TComponent); 
var i:integer; 
begin 
inherited; 
self. Width:=410; 
self. Height:=452; 
self. Bevellnner:=bvLowered; 
self.BevelOuter:=bvNone; 
self.Font.Name:='Times New Roman'; 
self. Font.Size:=8; 
self.parent:=TWinControl(AOwner); 
Command:=Tpanel.Create(self); 
Command.parent:=self; 
Command.SetBounds(0,0,410,40); 
Command.Align:=alTop; 
SpeedBtnLancer:=TSpeedButton.Create(Command); 
SpeedBtnLancer.SetBounds(2,10,90,25); 
SpeedBtnLancer.Caption:='Lancer recherche; 
SpeedBtnNew:=TSpeedButton.Create(Command); 
SpeedBtnNew.SetBounds(93,10,100,25); 
SpeedBtnNew.Caption:= Nouveau Labyrinthe; 
SpeedBtnClear:=TSpeedButton.Create(Command); 
SpeedBtnClear.SetBounds(194,10,100,25); 
SpeedBtnClear.Caption:='Repartir au début'; 
SpeedBtnStop:=TSpeedButton.Create(Command); 
SpeedBtnStop.SetBounds(295,10,60,25); 
SpeedBtnStop.Caption:="Stop'; 
SpeedBtnStop.Enabled:=false; 
for i:=0 to Command.ComponentCount-1 do 
if Command.Components|i] is TSpeedButton then 
with (Command.Components[i] as TSpeedButton)do 
begin 
parent:=Command; 
flat:=true; 
cursor:=crHandPoint 
end; 
SpeedBtnLancer.OnClick:=SpeedBtnLancerClick; 
SpeedBtnNew.OnClick:=SpeedBtnNewClick; 
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SpeedBtnClear.OnClick:=SpeedBtnClearClick; 
SpeedBtnStop.OnClick:=SpeedBtnStopClick; 
SpinEditCases:=TSpinEdit.Create(Command); 
SpinEditCases.parent:=Command; 
SpinEditCases.SetBounds(358,10,45,25); 
SpinEditCases.MaxValue:=maxTab; 
SpinEditCases.MinValue:=2; 
SpinEditCases.Value:=maxT ab; 
SpinEditCases.Increment:=2; 
SpinEditCases.OnChange:= SpinChange; 
Plan :=Timage.Create(self); 
Plan.parent:=self; 

Plan.AutoSize:=false; 
Plan.SetBounds(0,42,410,410); 
Plan.canvas.brush.color:=clSilver; 
Plan.Alien:=alClient; 
Plan.canvas.fillrect(rect(0,0,width,height)); 
Ftaille:=maxT ab; 

Fstop:=true; 
TheseeExplor:=Tpanel.Create(self); 
TheseeExplor.parent:=self; 
TheseeExplor.Color:=ciRed; 
LabyMinos:=TLabyrinthe.Create(Plan); 
LabyMinos.Pelerin:=TheseeExplor; 
TheseeExplor.Width:= LabyMinos.taille; 
TheseeExplor.Height:= LabyMinostaille; 
LabyMinos.posPelerin:=Point(0,0); 
LabyMinos.MovePelerin(Point(0,0)); 
Tempo:=TTimer.Create(self); 
Tempo.lnterval:=50; 
Tempo.Enabled:=false; 
Tempo.OnTimer:=Timing; 

end; 


procedure TThesee.Timing(Sender: TObject); 
begin 
if not LabyMinos.sortieFound and not LabyMinos.Nosortie 
and not fstop then 
labyminos.deplacer 
else 
begin 
tempo.Enabled:=false; 
if assigned(FOnStop) then 
FOnStop (self); 
if LabyMinos.sortieFound then 
begin 
if assigned(FOnSortie) then 
FOnSortie (self); 
SpeedBtnStop.Enabled:=false; 
SpeedBtnLancer.Enabled:=false; 
end; 
if LabyMinos.Nosortie then 
begin 
SpeedBtnStop.Enabled:=false; 
SpeedBtnLancer.Enabled:=false; 
end 
end 
end; 


procedure TThesee.SpeedBtnLancerClick(Sender: TObject); 
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begin 

Fstop:=false; 

Tempo.Enabled:=true; 

SpeedBtnStop.Enabled:=true; 

SpeedBtnStop.Caption:="Stop'; 

if assigned(FOnRecherche) then 
FOnRecherche (self) 

end; 


procedure TThesee.SpeedBtnNewClick(Sender: TObject); 
begin 

LabyMinos.RegenerAutre; 
SpeedBtnLancer.Enabled:=true; 

end; 


procedure TThesee.SpeedBtnClearClick(Sender: TObject); 
begin 

LabyMinos.RegenerMeme; 
SpeedBtnLancer.Enabled:=true; 

end; 


procedure TThesee.SpeedBtnStopClick(Sender: TObject); 
begin 
if SpeedBtnStop.Caption="Stop' then 
begin 
Fstop:=true; 
SpeedBtnStop.Caption:='Continuer'; 
end 
else 
begin 
Fstop:=False; 
SpeedBtnStop.Caption:='Stop'; 
Tempo.Enabled:=true; 
if assigned(FOnRecherche) then 
FOnRecherche (self) 
end 
end; 


procedure TThesee.SpinChange(Sender: TObject); 
begin 

try 

if not odd(SpinEditCases.Value) then 

if SpinEditCases. Value in [2..maxTab] then 

LabyMinos.Nbrcases:= SpinEditCases. Value 

except 

LabyMinos.Nbrcases:=2 
end 
end; 


procedure TThesee.SetTaille(x: integer); 
begin 
if x in [2..maxTab] then 
begin 
if odd(x) then 
X:=x+1; 
LabyMinos.Nbrcases:=x; 
Ftaille:=x; 
SpinEditCases.Value:=x; 
end 
end; 
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procedure TThesee. WMSizeRedim(var Msg: TWMsize); 
begin 

self. Width:=410; 

self. Height:=452; 

end; 


function TThesee.GetColorFond: TColor; 
begin 

result:=LabyMinos.CoulFond 

end; 


function TThesee.GetColorMurs: TColor; 
begin 

result:=LabyMinos.CoulMur 

end; 


procedure TThesee.SetColorFond(x: TColor); 
begin 

LabyMinos.CoulFond :=x; 
LabyMinos.RegenerMeme; 

end; 


procedure TThesee.SetColorMurs(x: TColor); 
begin 

LabyMinos.CoulMur:=x; 
LabyMinos.RegenerMeme; 

end; 


end. 
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Annexe 


Syntaxes de base comparées LDFA - Delphi - Java/C# 


: 12; 13; 
EE 
(ordre d' exécution + fin 
(ordre d'exécution) instruction) 


if P then E1 else E2 if(P) Et; else E? ; 


Si P alors Et sinon E2 Fsi ( attention défaut, pas de ( . ÉRUR PEER 
fermeture !) ‘ 


while (P) E: 


while P do E ( attention, pas de fermeture) 


( attention, pas de fermeture) 


; : ! 
répeter E jusquà P repeat E until P do E; while (!P) 


en C# : 
System.Console.Read( ) 
System.Console.ReadLine( ) 


Tantque P faire E Ftant 


read(fichier,x1,x2,x3 
lire (x1,x2,x3 readin(x1,x2,x3 
Get(fichier) 


en Java : 
System.in.read( ) 
System.in.readin( ) 


en C# : 
System.Console. Write( ) 
System.Console.WriteLine( ) 


ecrire (x1,x2,x3 writeln(x1,x2,x3 
Put(fichier) 


en Java : 
System.out.print( ) 
System.out.printin( ) 


for x:=a to b do E (croissant) RIRE UFES 


pour x<-a jusquà b faire E for x:-a downto bdoE 
Fpour (décroissant) 
( attention, pas de fermeture) 


for(x=a;x<b;x-)E; 
( attention, pas de fermeture) 


if ( P ) Break ; (sort d'une 
boucle) 

if (P ) return ; (sort d'une 
méthode) 


if P then Break (sort d'une 
boucle) 

if P then exit (sort d'une 
méthode) 


uint en C# 
N (entiers naturels) int en Java 
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int en C# 
Z (entiers relatifs) int en Java 


double en C# et Java 


double en C# et Java 


Boolean en C# 
{ Vrai , Faux } (logique) bool en Java 


char en C# et Java 


Q (rationnels) 


!, && 
D nor 2e? 
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